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Se emtomataă 


Conţinutul lucrării 


Cu siguranţă, FoxPro reprezintă cel mai popular subiect românesc în privinţa bazelor de 
date. Oarecum paradoxal, dacă ne comparăm cu Vestul. Cât priveşte Visual FoxPro, aici 
lucrările de referinţă se numără pe degete. Din păcate. Deoarece nu e vorba numai de modă, 
cât de funcţionalităţi. În materie de proceduri stocate (în general, aşa-numita „logică a 
bazelor de date”) — disponibile altădată doar pe serverele de baze de date, complexe şi 
scumpe —, Visual FoxPro este de ani buni în faţa concurenţilor xBase şi chiar a rivalului ce , 


deţine gloria SGBD-urilor „personale? — Access. În plus, suportul pentru programarea 
orientată pe obiecte, lucrul în rețea, ActiveX şi Web conferă modernitate şi actualitate 
produsului. 


De ce, totuşi, VFP nu are gloria internaţională pe care o merită? În primul rând, pentru 
că segmentul de piață căruia i se adresează este tot mai „înghesuit” din mai multe direcții. 
Pe de o parte, de un Access mult mai ieftin (inclus în Office, nu prea se simte la preţ), care, 
indiscutabil, e mai direct şi prietenos cu utilizatorii, mai bine legat de Word, Excel şi 
PowerPoint. Pe de altă parte, cea a SGBD-urilor profesionale — aici lucrurile au evoluat 
spectaculos şi e aproape imposibil de crezut că VFP ar putea spera să atingă gradul de 
viteză, scalabilitate şi securitate din Oracle, DB2, SQL Server, Informix etc, În fine, ultimii 
ani au popularizat ceea ce noi considerăm actualmente a fi inamicul public numărul 1 al 
VFP: SGBD-urile de tip free. Nu atât MySQL, care, în lipsa procedurilor stocate şi cu un 
nucleu SQL rudimentar, este mai degrabă un raft decât un SGBD (un dBase IH plus ceva 
adăugiri — scuze pentru numeroșii fani ai acestui produs), mai ales PostgreSQL. Simple şi 
puternice, din ce în ce mai sigure — şi, să nu uităm, gratuite —, SGBD-urile free constituie 
una dintre puţinele soluţii pentru dezvoltarea de aplicaţii, mai ales într-o țară măcinată de 
jena financiară. 

Atunci de ce, totuşi, Visual FoxPro? Un prim argument este de ordin istoric. Atâţia 
oameni politici, istorici şi alte soiuri de români verzi fac apel la conservarea moştenirii 
seculare (milenare ș.a.m.d.) a neamului nostru, încât nu ne rămâne decât să schimbăm, 
scandalos, sistemul de referință şi vom vedea că, în materie de FoxPro, avem cea mai 
importantă „moştenire informatică” (credem că la moştenire se poate adăuga şi ceva 
polimorfism). 

Însă, ca și în cazul istoriei, dacă această moştenire nu ne foloseşte la a fi mai buni și mai 
performanţi în prezent, vorbim degeaba. Or, cartea de față ar vrea să arate cum, pornind de 
la o tradiție informatică de numai o decadă, dispunem de toate facilităţile pentru a obține per- 
formanţe informatice la nivelul exigenţelor zilelor noastre. Visual FoxPro 6 — care constituie 
obiectul acestei lucrări —, cu atât mai mult VFP 7, conţine toate ingredientele pentru dezvol- 
tarea unor aplicaţii dezirabile, atât ca funcțiuni, cât şi ca preț. Încearcă să vă convingă de 
asta patru autori care nu s-au limitat doar la a cocheta cu teoria sau catedra universitară. 


Capitolul 1 este, în principal, unul de istorie şi de „încălzire””: descrierea modului de 
lucru, tipuri de fișiere implicate în proiectele VFP, configurarea sesiunii de lucru, Cu al 
doilea însă, se intră în miezul bazelor de date: ce înseamnă o bază de date în VFP, care sunt 
componentele unei BD, ce tipuri de date sunt gestionabile, cum creează asistat tabelele, 
indecşii, cum se declară regulile de validare la nive! de atribut şi înregistrare, Întrucât 
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constituie, pe de o parte, suportul unui acces rapid la date şi, pe de altă parte, una dintre cele 
mai frecvente surse de erori ale aplicaţiilor VFP, indecşii au fost tratați mai pe larg, cu toată 
deferenţa cuvenită. Fireşte, nu puteau lipsi din acest capitol chestiunile legate de restricțiile 
referenţiale. 

Al treilea capitol este cel mai xbase-ist, dacă ne permiteţi barbarismul lingvistic. Oricât 
ar părea de demodată, navigarea prin înregistrări (deplasarea pointerului unei tabele) se 
regăseşte în toate SGBD-urile profesionale (cei care au folosit cursoare în Oracle, ca să dăm 
numai un exemplu, ştiu la ce ne referim). VFP rămâne un SGBD care de la dBase se trage. 
Cu atuurile şi slăbiciunile acestui model de date. 

Capitolul 4 parcurge elementele de bază ale programării în VFP: variabile, structuri de 
control, proceduri, funcţii, tratarea erorilor etc. Una dintre vedetele capitolului este 
macrosubstituţia, de peste un deceniu motiv de mândrie pentru foxişti şi încă dorită de 
visualbasicişti (un alt exemplu, la întâmplare). 

Următoarele două capitole, 5 şi 6, tratează nucleul SQL implementat în VFP, precum și 
extensiile şi substituţiile procedurale ale acestuia. Scopul declarat este, pe de o parte, 
obținerea oricărei informaţii dintr-o bază de date (ceea ce duce cu gândul la capitolul 7, 
dedicat rapoartelor), dar mai ales elaborarea a tot ceea ce înseamnă „logica bazei de date” 
într-o aplicaţie file-server, client-server sau cum vreţi să-i zicem: funcţii care întorc valori 
implicite, reguli de validare avansate şi declanşatoare — într-un cuvânt, proceduri stocate. 

Al şaptelea capitol este ceva mai relaxant — orice s-ar spune, rapoartele sunt în partea 
frumoasă şi accesibilă a VFP, pregătind cel mai dur subiect al dezvoltării aplicaţiilor: 
formularele. Tocmai de aceea, formularele au fost împrăştiate în majoritatea capitolelor 
următoare. Capitolul 8 este primul care atacă acest subiect, conturând ceea ce este îndeobşte 
cunoscut sub titulatura de „programare vizuală” (de fapt, în sens riguros, programarea 
vizuală e un pic diferită): formular, controale, proprietăţi, evenimente şi metode, interesul 
fiind apoi concentrat pe legătura controalelor cu tabela şi sincronizarea celor două straturi, 
formular / bază de date. 

Capitolul 9 expune câteva aspecte privind utilitatea şi funcțiunile tabelelor derivate, 
pentru care VFP 6 oferă un suport deplin. Descrierea asistată a creării tabelelor derivate este 
completată cu „filiera” programatică de declarare a tututor opțiunilor (atribute, reguli de 
validare, valori implicite, reguli de actualizare a tabelelor de bază etc.) specifice 
view-urilor. 

Capitolul 10 reia şi adânceşte problematica formularelor, tratându-se probabil cel mai 
elegant, dar şi cel mai dificil control VFP — grid-ul (rețeaua). Modalităţile de tratare a 
erorilor apărute într-o sesiune de lucru cu formularele sunt completate cu câteva „fineţuri” 
legate de parametrizare, precum și utilizarea controalelor de tip ActiveX, ca o prefaţă a ceea 
ce va fi dezvoltat în capitolul 11 — programarea orientată pe obiecte în VEP 6. În materie de 
obiecte lucrurile sunt prezentate gradual, cu exemplificări ce s-ar dori edificatoare asupra 
acestui subiect mereu la modă şi... neînțeles. 

Şi capitolul 12 este unul dintre puţinele relaxante prin tematică — meniurile —, deşi 
discuţia depăşeşte cu mult limitele banalului. În continuare sunt enumerate şi exemplificate 
cele mai importante comenzi şi funcţii pentru lucrul în medii multiutilizator — mai precis, 
modul de dezvoltare a aplicaţiilor în arhitecturile specifice VFP — file-server. lar 
următoarele două capitole, ce dezvoltă chestiunile arhitecturale, sunt 14 — cu facilitățile 
VFP privind aplicaţiile Web şi 16 — cu legarea VFP la servere „profesionale” de baze date, 
în cazul nostru, Oracle. 

Între aceste capitole, mai exact, în capitolul 15, se prezintă o tentativă de acoperire a 
unui gol important al VFP — securitatea. Mecanismul propus, deşi primitiv, se poate dovedi 
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de mare utilitate în practică, bazându-se pe declanșatoare, tabele de drepturi și opţiuni de 
securitate ale sistemului de operare (Windows NT/2000). 

Finalul este... executabil. Toate chestiunile prezentate pe parcursul lucrării sunt strânse 
într-un proiect din care se obține fişierul executabil sau DLL, care, împreună cu celelalte 
componente ale unei aplicaţii (baza de date, sistem de asistenţă, imagini etc.), poate fi 
„împachetat” în kitul de distribuţie. Un paragraf specia! este alocat unui sistem de asistare 


one 


5 (help) interactiv, în maniera similară oricărui help Windows. 


lä 
i ÎN 


i | Acestea ar fi doar câteva repere ale lucrării. Cei care vor avea perseverența necesară, 

“vor descoperi destule elemente de detaliu şi, de ce nu, fineţe şi vor putea să-şi șlefuiască 

ti A licaile VEP pentru a onora orice cerință informaţională şi pretenţie managerială (uneori, 
die două sintagme sunt disjuncte). 

Ar mai fi de adăugat că principalele coduri-sursă (listinguri) din lucrare pot fi descărcate 

pe pagina web a Facultăţii de Economie şi Administrarea Afacerilor de la Universitatea 

LI. Cuza” din laşi — btip:/Awww.feaa.uaic.ro. 
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Capitolul 1 
Visual FoxPro 


Visual FoxPro, produs de firma Microsoft, este un pachet software din Categoria 
sistemelor de gestiune a bazelor de date (SGBD) destinat microcalculatoarelor (există 
versiuni Windows şi Macintosh), 


1.1. Caracterizare generală 


Pentru început şi pentru cei neinițiați (iniţiaţi pot sări peste următoarele două-trei 
paragrafe), vom spune că o bază de date este o colecţie de date de dimensiuni mari, aflate în 
interdependență, memorate pe un suport (de regulă disc magnetic) împreună cu descrierea 
lor şi a legăturilor dintre ele. Evoluţia nivelului de dezvoltare tehnologică în industria de 
software a dus la organizarea bazelor de date după mai multe modele, unul foarte răspândit 
fiind modelul relațional. 


nişte atribute sau Proprietăţi, ce formează coloanele tabelei (în limbaj curent li se mai 
spune şi câmpuri). Pe liniile tabelei se găsesc valori posibile ale atributelor. Ca urmare, 
fiecare linie dintr-o tabelă (căreia i se mai spune și înregistrare) este un tuplu de valori ale 
atributelor şi descrie o entitate particulară. Atributele (coloanele) compun schema sau 
structura tabelei (stabilă în timp), iar liniile definesc conţinutul acesteia (variabil în timp). 
O bază de date relațională este formată din mai multe tabele care conțin date legate 
semantic, Legătura se face prin valorile atributelor, fără a se folosi pointeri sau alte tehnici. 
Spre exemplu, tabela „CLIENŢI” ar conține date despre clienţii unei firme, în vreme ce 
tabela „FACTURI» conţine date despre facturile emise clienţilor respectivi. Pentru un client 
dat, în tabela de facturi pot exista nici una sau mai multe linii, adică facturi emise (avem 
deci o relație one-to-many — „unu la mai mulți”). Pentru ca legătura să fie posibilă, în fiecare 
dintre cele două tabele trebuie să avem câte un atribut cu aceeaşi semnificație (de exemplu, 
numele clientului ori codul fiscal). De aici şi dubla semnificaţie a termenului „bază de date 
relațională”; pe de o parte tabelele, sub forma unor relații matematice, iar pe de altă parte 
relațiile între tabele, sub formă de legături!. Şi valorile atributelor trebuie să respecte anumite 


în dicționarul de date (acesta este de fapt tot o tabelă, dar contine metadate). 


$ 


Noţiunile specifice bazelor de date în general şi în Visual FoxPro în particular constituie 


Un SGBD reprezintă o colecție de programe care permit definirea structurii unei baze 
de date şi, ulterior, gestionarea conținutului acesteia. Prin Caracteristicile sale, FoxPro 


1. În limba română, cuvântul „relație” poate induce o Oarecare confuzie. În engleză se folosesc termenii relation, 
respectiv relationship. 
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(atributul de „Visua!” s-a adăugat numelui o dată cu versiunile recente pentru Windows) se 
încadrează în categoria SGBD-urilor relaţionale. 


1.2; De la xBase la Visual FoxPro 


Conform unei concepţii răspândite printre cei care lucrează în domeniul bazelor de date 
pentru microcaiculatoare, Visual FoxPro aparține familiei de programe „xBase”, numită aşa 
după „pionierul” dBase 11, produs al firmei Ashton-Tate. 

În 1978, C. Wayne Ratliff (un inginer de aeronave care lucrase pentru NASA, scriind printre 
altele software pentru navele Viking care au explorat planeta Marte) a pus la punct un mic 
SGBD dedicat microcalculatoarelor, Microcalculatoarele epocii se remarcau prin. prețuri 
destul de mari şi performanţe extrem de modeste față de ceea ce cunoaștem noi astăzi 
(Ratliff cumpărase cu 1000 de dolari şi montase el însuşi un calculator IMSAI 8080 cu 
1 kB de RAM, dar până la urmă, cu toate accesoriile, a cheltuit aproape 6000 de dolari). 
Programul lui Ratliff se numea Vulcan şi ideea de la care pornise în scrierea lui era 
clasamentul unui campionat de fotbal (american). Ratliff a început să facă reclamă el însuşi 
produsului său, în revista BYTE din octombrie 1979. Curând a avut cereri din partea unor 
clienţi care vedeau în noul program un instrument ieftin şi comod de ţinere la zi a datelor 
financiare, contabile, personale etc. În 1980, Ratliff a primit din partea lui George Tate şi 
Ha! Lashlee, patronii unei firme mici, o ofertă de colaborare. Ceva mai târziu, când George 
Tate conducea casa de software Ashton-Tate?, produsul lui Ratliff (devenit el însuşi un 
asociat al firmei) a stat la baza programului dBase 1I (nu a existat o versiune |, în ideea de a 
sugera maturitatea produsului). Până la începutul anilor 1990, firma Ashton-Tate a vândut 
un număr mare de copii ale produsului dBase II (program pe 8 biţi, care funcţiona sub 
sistemul de operare CP/M) şi un număr copleşitor de copii ale produselor dBase III 
(destinat noilor calculatoare IBM PC pe 16 biţi, cu sistem de operare DOS) şi dBase III+ 
(cea mai populară versiune dBase). Curând a apărut şi concurența, sub chipul unor firme ca 
Borland (astăzi Inprise), Nantucket, Microrim, Computer Associates, MicroPro şi Fox 
Software. Produsele tuturor acestor firme erau asemănătoare ca arhitectură cu dBase (clone 
ale acestuia), de unde şi reunirea lor sub apelativul „xBase”. Din păcate, versiunea 
dBase IV 1.0 din 1988 a fost un insucces răsunător, din cauza frecventelor erori cu care 
produsul era „împănat”. În loc de a depana erorile versiunii pentru DOS, programatorii de 
Ja Ashton-Tate au fost îndrumați să înceapă lucrul la o versiune pe 32 de biţi, pentru 
sistemul de operare OS/2 al IBM, care, şi el, întârzia să apară, Firma Fox Software, cu 
produsul FoxBase+, o clonă dBase, a profitat de descumpănirea ivită pe piață, umplând 
rapid golul. În urma acestor evenimente, Ashton-Tate, slăbită fi imanciar, a fost cumpărată de 
Borland, care a perfecționat produsul dBase pentru a-l face să ruleze sub Windows. Dar nici 
aici succesul nu a fost cel scontat, deoarece Microsoft lansase între timp SGBD Access, 
care nu era poate la fel de performant ca dBase, dar se bucura de o interfaţă prietenoasă și 
de o mare ușurință în utilizare, fiind proiectat să fie exploatat direct în logica interfeței 
grafice utilizator? specifică Windows. Totuşi Borland a creat versiuni îmbunătăţite ale 
programului dBase. 


2. Nu exista nici o persoană numită Ashton în firmă, dar Tate a considerat că numele „cu liniuţă” ar suna mai 
bine în reclame. 
3. GUI - Graphical User Interface. 
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Fox Software şi-a perfecţionat produsul, care a devenit FoxPro. Versiunea 2.0 a fost 
unul dintre marile succese comerciale ale anului 1991. La acea vreme, Microsoft încerca să 
impună Access, dar acesta era oarecum imatur. În lume exista un parc deloc neglijabil de 
microcalculatoare mai vechi, care nu puteau rula Windows (deci nici Access), dar care erau 
foarte potrivite pentru FoxPro. În plus, aplicaţiile FoxPro se remarcau printr-o viteză de 
execuţie mare, impresionantă față de concurentul dBasef, Microsoft a achiziționat în cele 
din urmă firma Fox Software (1992). Din momentul achiziţiei, producţia a continuat cu 
versiunile 2.5 și 2.6 (pentru DOS, Windows, Macintosh şi UNIX), apoi cu versiunile 
„Visual” 3, 5 şi 6. Dacă versiunea 3.0 a fost una de tranziţie, fiind lansată independent, 
versiunile 5 şi 6 erau parte a unui pachet software numit Visual Studio. La data când scriem 
aceste rânduri, versiunea 7.0 a produsului Visual FoxPro este încă în stadiul Beta2. 

Versiunile 2.x ale produsului FoxPro au oferit, pe lângă motorul bazei de date, facilități 
pentru scrierea şi execuţia propriilor programe, proiectarea asistată a interfețelor (meniuri, 
formulare sau machete de preluare a datelor — în mod caracter, tipic mediului DOS), 
proiectarea de rapoarte, caracteristici specifice mediilor de dezvoltare a aplicaţiilor. 
Versiunile „Visua!” au introdus o serie de facilități sistematizate în tabelul 1.1. 


Tabelul 1.1. Versiuni Visual FoxPro 


An Versiune Caracteristici noi 
aparitie | 


1995 Visual FoxPro 3.0 | Versiune pe 16 biţi (destinată mediilor DOS + Windows 3.x), 
funcţionează şi cu Windows 95 sau NT. 

Gestionarul de aplicaţii (Project Manager) a fost 
reproiectat. 

- Suport pentru conceptul de bază de date şi restricţiile de 
integritate aferente (introduce dicționarul de date). În versiunile 
anterioare se lucra cu tabele independente. 

Posibilitatea de a crea proceduri stocate şi declanșatoare. 
Limbaj îmbogăţit cu tehnici de programare orientată-obiect. 
Orientare spre paradigma event-driven proprie aplicaţiilor 
Windows. 

Mod de lucru grafic. Instrumente vizuale de proiectare a 
interfeţelor (formulare şi controale), printre care şi asistenții 
Form Wizard, Graph Wizard, Pivot Table Wizard, 
One-To-Many Report Wizard. 

Se pot crea biblioteci de clase proprii. 

Suport îmbunătățit pentru lucrul în rețea: mecanismul bufering, 
tranzacţiile (maximum 5 niveluri de imbricare a tranzacţiilor). 
Versiune îmbunătățită, optimizată pentru 32 de biţi, a 
produsului. Cerinţe hardware mai reduse ca la versiunea 3, 
cerințe software Windows 95 sau Windows NT. 

Performanţe sporite în manipularea datelor. Creşterea compati- 
bilităţii cu alte baze de date ce respectă standardul ANSI SQL. 
Formatele de fişiere noi fac imposibilă revenirea la versiunea 
3.0 după conversia aplicaţiilor în formatul 5.0. 

Posibilitatea folosirii de controale ActiveX, pentru o 


funcţionalitate sporită a aplicaţiei. 


Visual FoxPro 5.0 


4. Viteza mare era datorată unor tehnici de indexare şi căutare performante, reunite sub numele Rushmore. 
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Versiune 


Caracteristici noi 


Mai multă flexibilitate: structura bazei de date, ca şi procedurile 
stocate, pot fi modificate „din mers”, fără a fi necesară 
deschiderea exclusivă a bazei de date. 

Facilități de conectare la servere de baze de date (standardul 
ODBC). 

Instrumente puternice de depanare a aplicațiilor. 

Wizard pentru crearea de aplicații executabile (şi biblioteci 
DLL) şi instalarea lor asistată. 

Câteva zeci de comenzi şi funcții noi față de versiunea 5. Se 
îmbogățește colecția de evenimente. 

Mecanism îmbunătăţit pentru gestionarea proiectelor 
(Project Hook Manager) şi a bazei de date. 

Utilitar de creare a claselor şi componentelor îmbunătăţit. 
Instrumente pentru optimizarea execuţiei programelor 
(Coverage Profiler). 

Bibliotecă de clase predefinite (FFC - FoxPro 
Foundation Classes). 

Suport pentru crearea de aplicaţii Web. 

Suport pentru Microsoft Transaction Server,un 
produs strategic în viziunea Microsoft. 

Utilitar de verificare a datelor calendaristice, pentru corecţia 
„problemei mileniului”. 

Peste 50 de comenzi, funcţii şi variabile de sistem noi. 
Suport pentru programare distribuită (COM - Component 
Object Model). 

Tehnologii IntelliSense şi AutoList Members 
încorporate în editorul de programe-sursă: sintaxa unei funcții 
ori comenzi, lista de proprietăţi a unui obiect etc. apar la 
scrierea funcţiei ori la scrierea numelui obiectului şi apăsarea 
caracterului „selector” (punct). 

Facilităţi îmbunătăţite de navigare în codul-sursă. 
Compatibilitate sporită cu Microsoft SOL Server. 
Driver OLE DB ce permite crearea de aplicaţii client/server 
non-FoxPro, cu baze de date FoxPro. 

Câteva funcţii XML (eXtended Markup Language). 
Evenimente pentru care pot fi definite metode la nivelul 
container:ului bazei de date. 
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Aceste caracteristici au făcut ca FoxPro să evolueze de la un SGBD simplu, cu oarecare 
facilităţi de realizare a aplicaţiilor, la un adevărat mediu integrat de dezvoltare. În 
accepţiune clasică, un mediu de dezvoltare (în engleză ADE - Application Development 
Environment, iar în franceză AGL — Atélier de Génie Logiciel) constă dintr-un editor de 
texte pentru scrierea codului-sursă într-un limbaj dat, un compilator pentru limbajul 
respectiv şi câteva facilităţi de natura depanatoarelor, pentru verificarea aplicației. O dată 
cu perfecţionările în domeniul hardware-ului şi cu creșterea atât a numărului de limbaje şi 
de variante ale acestora, cât şi a numărului de dezvoltatori de aplicaţii, aceste instrumente 
s-au diversificat și îmbunătățit, integrând noi facilități. 

Astăzi, printr-un mediu integrat de dezvoltare (IDE - Interactive Development 
Environment) înţelegem un cadru completat de un set larg de instrumente pentru realizarea 
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aplicațiilor. Instrumentele sunt mai ales cele din categoria generatoarelor de aplicații, în 
care utilizatorul construieşte aplicația mai mult prin specificații declarative decât prin 
programare procedurală. De exemplu, machetele de introducere a datelor sunt proiectate 
vizual, programatorul plasând pe un ecran (formular) diferite obiecte (controale) 
predefinite, fiecare „ştiind” să interpreteze anumite evenimente — ca, de pildă, un click de 
mouse ori o apăsare de tastă. Nu e nevoie a scrie instrucțiuni detaliate care să asigure 
desenarea acelor obiecte de pe ecran la momentul execuției, generarea codului-sursă, 
pornind de la specificaţiile create, cade în sarcina instrumentului respectiv. Cât priveşte 
cadrul de dezvoltare a aplicaţiei, acesta constă în elemente specifice fiecărei categorii de 
aplicaţii. În cazul particular al aplicaţiilor cu baze de date, elementele sunt de natura 
modulelor de cod, meniurilor, formularelor, rapoartelor, bibliotecilor de obiecte sau de 
proceduri şi funcţii. Pentru gestionarea lor facilă, acestea sunt organizate în proiecte ce 
constituie punctul de plecare pentru aplicații complete. Evident, dintr-un astfel de mediu 
integrat nu lipsesc uneltele de depanare şi optimizare a execuţiei aplicaţiei. Dacă inițial 
editorul, compilatorul şi depanatorul se utilizau separat, mediile integrate contemporane 
înglobează toate instrumentele în cadrul unui același pachet software, a cărui instalare, 
configurare şi folosire nu ridică probleme deosebite. 

În lumea PC-urilor, firma Borland International s-a remarcat încă din anii '80 ca promotor 
al mediilor integrate, prin produsele sale din categoria Turbo (Turbo Pascal, Turbo Prolog 
şi Turbo C). O dată cu dezvoltarea interfeţei Windows (şi, mai târziu, a sistemului de 
operare Windows 95/98/NT/2000), Microsoft a introdus mediile de dezvoltare din categoria 
Visual (Visual Basic, Visual C++, Visual FoxPro, Visual J++), iar Borland — mediile 
Visual dBase, Delphi (Pascal orientat-obiect), C++ Builder. Am dat doar aceste exemple, 
întrucât produsele firmelor Microsoft şi Borland cunosc cea mai mare răspândire pe piaţă. 

În general, un mediu de dezvoltare integrat presupune ca „aport” în sistemele de 
aplicaţii client-server partea „de client” sau front-end, prin care înțelegem, în mare, 
interfața-utilizator. Partea „de server” (back-end), respectiv definirea bazei de date și 
logiciis acesteia, intră într-o altă sferă, realizându-se cu instrumente livrate o dată cu 
SGBD-ul respectiv. Privit din această perspectivă, sistemul Visual FoxPro dezvăluie o 
natură duală: pe de o parte constituie un SGBD relaţional, iar pe de altă parte, integrează 
instrumentele caracteristice unui mediu de tip Rapid Application Development (RAD). În 
consecință, proiectele dezvoltate în mediul Visual FoxPro au în vedere atât partea de 
modelare a bazei de date şi de definire a procedurilor. stocate, cât şi crearea obiectelor 
aplicației care utilizează respectiva bază de date. De menționat că limbajul şi structurile de 
control specifice bazei de date sunt similare celorlalte obiecte ale aplicației. Se obține astfel 
fie o aplicaţie stand-alone (în care toată „munca”, de la gestionarea interfeței la gestiunea 
bazei de date, revine unui singur sistem de calcul), fie, în condiţiile unei separări accentuate 
a interfeţei-utilizator de baza de date, doar partea de client a unei aplicaţii client-server 
tradiţionale (fwo-tier — în două straturi). În acest ultim caz, baza de date şi logica acesteia 
sunt implementate pe un server de baze de date (uzual Microsoft SQL Server sau Oracle). 
Fabricantul oferă chiar un asistent (Upsizing Wizard) pentru portarea unor aplicaţii FoxPro 
către platforme mai puternice. Aplicațiile în care baza de date este implementată în Visual 
FoxPro iar interfața-utilizator în alt mediu de programare sunt de asemenea realizabile. 


5. Prin /ogică se înţeleg aici regulile de funcţionare a mediului rea! pentru care se implementează baza de date 
(aşa-zisele business rules). De exemplu: „Pentru a fi titularul unui permis de conducere trebuie să ai minimum 
18 ani”. 
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FoxPro-ul de astăzi mai păstrează din familia xBase doar modul de organizare a datejor 
(o tabelă înseamnă un fişier pe disc) şi limbajul de programare aferent (care, la rândul lui, a 
fost substanţial îmbogăţit). Caracteristicile sale fac din el un mediu de dezvoltare rapid, 
robust, puternic, relativ uşor de învățat. Dacă mai adăugăm la aceasta şi răspândirea pe care 
aplicaţiile FoxPro (nu neapărat în varianta Visual, dar mai devreme sau mai târziu sună 
ceasul migrării) o cunosc în întreprinderile româneşti, rațiunea scrierii acestui material se 
conturează ceva mai bine. . i 


1.3. Moduri de lucru în FoxPro 


Încă de la versiunile „fragede”, FoxPro a permis lucrul în mai multe moduri, după 
preferinţele şi abilităţile utilizatorului. Astfel, cel mai simplu este modul asistat sau modul 
de lucru meniu, în care utilizatorul are la dispoziţie opţiuni de meniu pentru operațiile 
dorite. Modul direct presupune cunoaşterea sintaxei comenzilor FoxPro, comenzi scrise în 
fereastra de comenzi, unde tasta Enter are rolul de a le lansa în execuţie. 


Sintaxa (formatul general) unei comenzi FoxPro arată astfel: 
VERB [<lista_expresii>)] [<domeniu>) 
[FOR <expLll>] [WHILE<expL1>] 

[TO PRINTER | TO ARRAY < tablou> 
! TO <variabila memorie> 

! TO FILE <fisier>] 


Pentru cei nefamiliarizaţi cu notația Backus-Naur (metalimbaj), furnizăm câteva 
explicații: 

e componentele scrise cu majuscule sunt cuvinte rezervate; se folosesc exact în 

aceeași formă, eventual prescurtate la primele 4 caractere; 

e componentele scrise cu minuscule, în paranteze unghiulare — construcții ale 
utilizatorului (nume de tabele, nume de câmpuri, expresii matematice ori 
logice etc.); i 
[ ] desemnează o construcţie opţională; 

4) desemnează mai multe construcții din care una este obligatorie; 
| separă două constracții care se exclud reciproc; 
desemnează construcții eliptice (care se repetă). 


e o 0 e 


În afara comenzilor FoxPro native, Visual FoxPro dispune de un nucleu SOL ale cărui 
comenzi sunt foarte aproape de specificaţiile ANSI SQL. 

În figura 1.1 s-a exemplificat modul de execuţie a unei comenzi FoxPro dintre cele mai 
simple, „?”, care are rolul de a afişa ceva direct pe ecranul FoxPro. 

Multe dintre comenzile accesibile din meniuri se scriu automat în fereastra de comenzi 
în momentul acţionării lor, ceea ce este, credem, o bună ocazie pentru a le deprinde pe cele 
mai frecvent folosite, fără a fi nevoie să „tocim” formatele lor. 


În fine, modul de lucru program se referă la scrierea de programe-sursă cu ajutorul 
editorului specializat. Într-un program se pot folosi aproape toate comenzile modului de 
lucru direct, plus câteva comenzi specifice reprezentând structurile de control. O dată scris, 


implementării. Acum programatorii tre 
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is | 3 . ; ; 
m ie se memorează ca fişier, se compilează (opțional) ŞI se execută cu ajutorul comenzii 
nume_program>. Cu modul de lucru program ne vom (re)întâini în capitolul 4 


PETES 


Fereastra de 
comenzi 


Linia de stare 


a 


Z gE 


Figura 1.1. Ecranul principal Visual FoxPro 


1.4. Crearea unui proiect Visual FoxPro 


Oetapă extrem de importantă din ciclul de viaţă al unui sistem informatic este “faza 


buie să transpună într-un limbaj de programare toate 


specificaţiile formulate în faza de proiectare. 


construirea unui proiect care trebuie să gestion 


6. 


În a 5 . . s.a . . 
general, elaborarea unei aplicații într-un mediu integrat de dezvoltare constă în 


anui eze o serie de compon 
structurile de date utilizate de aplicație, cum ar fi sciet de baze de dais, 
componente care vor genera interfața aplicației: meniuri ; 
componente dedicate exclusiv structurării Jog 
module de cod (proceduri); i 
e diverse biblioteci refolosibile (clase 
productivităţii echipei de dezvoltare 


e 
` LI 
3 i: n , formulare, rapoarte; 

icii de prelucrare specifice aplicației: 
), utile în standardizarea aplicațiilor şi creşterea 


La lansarea în execuție, FoxPro com 


i ilează auto Că versiune: i 
ol pei pia di p mat programul dacă versiunea-sursă este mai recentă decât 
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Aceste componente se concretizează într-un mare număr de fişiere memorate pe 
suportul specific (disc), iar aici FoxPro nu face excepţie, tipurile de fişiere necesare într-o 


aplicație fiind multe şi diferite, după cum se vede și în tabelul 1.2. - 


Tabelul 1.2. Câteva tipuri de fişiere folosite de Visual FoxPro 


Fişierul index asociat dicționarului de date 

Fişier index asociat unei tabele (index simplu, stocat 
ca fişier distinct) 

Fişier index asociat unei tabele (index compus, adică 
mai mulți indecşi sunt memoraţi în acelaşi fișier) 
Indecşii compuşi sunt preferabili celor simpli 


Fişier ce conține definițiile realizate prin intermediul 
constructorului de machete de ecran (forms = 
formulare) 


Fişier ce conţine informaţii despre datele incluse 
într-un raport (listă) şi definirea parametrilor săi 


Fişier ce conţine informaţii despre datele incluse 
într-o etichetă, împreună cu definirea parametrilor 
săi (etichetele sunt liste mai mici, imprimabile mai 
multe pe o pagină) 

Fişier ce conține definițiile realizate prin intermediul 
constructorului de meniuri 


Menu Memo Fişier memo asociat unui meniu 


Generated Menu Program Programul-sursă generat pornind de la macheta 
meniului 


Compiled Menu Program Programul compilat rezultat din fişierul .mpr 


Ca 
Generated Query Program .9pr  Programul-sursă tip filtru sau interogare, generat de 
constructorul de interogări 
x 


Programul compilat tip filtru (interogare) 


Proiect (conţine date despre baza de date, formula- 


Compiled Query Program 
Project File 
rele, rapoartele, meniurile, programele unei aplicaţii) 


Project Memo Fişier memo asociat unui proiect 


Compiled FoxPro Program Program compilat (pornind de la .prg) 
Fişier cu lista erorilor de la compilarea unui 


Compilation Error File serr 
program-sursă 


7. Fişierele memo sunt un element caracteristic mediului FoxPro şi conţin date nestructurate, de mari dimen- 
siuni, legate de alte tabele cu date. Litera „T” într-o extensie de fişier semnifică fişier memo. 
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Fişier executabil obținut dintr-un proiect ce conține 
măcar un program-sursă, un formular ori un meniu.” 
Este versiunea finală a unei aplicaţii. Funcţionează şi 
fără a avea mediul FoxPro instalat pe : 
calculatorul-țintă, dar numai împreună cu câteva 
biblioteci FoxPro a: 


FoxPro Visual Class Bibliotecă de clase FoxPro (create cu Class 
Library Wizard) 


FoxPro Visual Class Fişier memo asociat unei biblioteci . vex 

Library Memo 

FoxPro dynamic Link 

Librar 

Dynamic Link Library 

Este evident că aproape orice obiect dintr-o aplicație Visual FoxPro are nevoie de două 

sau chiar mai multe fişiere. Modul de organizare a diferitelor categorii de componente 
într-un proiect Visual FoxPro este ilustrat în figura 1.2. l 


Baze de date 
Tabele 
independente 


Proiect VFP f 


OPERE RET tea 


Documente 


aa aricii ia at 


Etichete 
____| Biblioteci de fi TIESNE 
clase ; 
arene | Programe f 


Biblioteci AP! 


EEE: 


aU 


Aplicații 


EPITET STEI 


Fişiere texi 


Diverse _£ 


zen a 0 carco av ec 


| E . Alte fişiere | 


Figura 1.2. Elementele unui proiect Visual FoxPro 


Instrumentul specific Visual FoxPro pentru gestionarea fişierelor care formează un 
proiect este Project Manager (fisura 1.3), care se lansează prin opțiunile de meniu File 
—New.. Project sau în: mod direct prin comanda CREATE PROJECT 
*nume_proiect>. 

Structura unui proiect este redată fie arborescent, elementele specifice proiectului 
putând fi accesate din cadrul de pagină A11, fie sub forma altor cadre de pagină, fiecare 
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categorie de elemente fiind posibil de explorat în pagina specifică ei: Data, Docs sau 
Documents, Classes, Code, Other (aceste pagini sunt utile în „segmentarea” 
proiectelor mari). 

Fereastra Project Manager prezintă în partea dreaptă o serie de butoane prin care 
se lansează rapid anumite acţiuni specifice gestiunii proiectului (New, Add, Remove, 
Build...) sau care au incidenţă asupra unui obiect specific al proiectului: 

e pentru baze de date - Open, Close, Modi fy 

e pentru tabele — Browse, Modify; 

e pentru formulare ~ Modi fy, Run; 

e pentru rapoarte — Modi fy, Preview, Run; 

e pentru programe, meniuri — Modi fy, Run; 

e pentru clase — Modi fy. 


i Project Manager Pro Vanzari. 
E je Doos |. 


Classes f. 


Data 
E: 
: Free Tables 
-E Queries 

CA EEJ Documents 
58] Forms 


e 
ER Ciass Libraries 
"18-00 Code. 
EI Programs 
API Libiaries 
94 Applications 
-E Other 
"E Menus 
fB Text Fies 


Description: ET ; E E 
a |Path: a i 


Figura 1.3. Fereastra instrumentului Project Manager 


Textele afișate pe aceste butoane depind de elementul selectat în arborele din stânga, iar 
acţionarea lor scuteşte utilizatorul de căutarea comenzii adecvate în meniuri ori de scrierea 
sa manuală în fereastra de comenzi. 


1.5. Configurarea mediului Visual FoxPro 


Înainte de a trece la explicarea și exemplificarea oricăror concepte din Visual FoxPro, 
vom prezenta câteva comenzi zise „de configurare”, în care Visual FoxPro pur şi simplu 
abundă. Zisa abundență, pe lângă uşoara confuzie pe care o induce utilizatorului începător, 
are şi părțile sale bune, în sensul că oferă o mare flexibilitate mediului de lucru. 
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1.5.1. Comenzile SET 


Un prim format al acestor comenzi este : 
SET <parametru> TO [<valoare>] 
Un alt format, foarte răspândit, este: 
SET <parametru> ON.OFF 
Sunt şi formate care combină cele două opţiuni, respectiv: 
SET <parametru> ON.OFFITO [<valoare>] ş 
Stările multora dintre parametrii modificaţi de aceste comenzi (vezi tabelul 1.3) se pot 
afla prin invocarea funcţiilor din categoria SYS (număr). 


Tabelul 1.3. Cele mai folosite comenzi de tip SET 


Parametru F Semnificație 


ANSY ONI OFF Dacă este ON, două şiruri de caractere vor fi 
comparate caracter cu caracter, deci „lon” va fi 
diferit de „lon_ ”; în caz contrar, sunt posibile 


E „pseudoegalităţi” de tip „Tom = „Tommy”. see 
BELL ONJ OFF sau Activează/dezactivează semnalizarea sonoră 
TO (producerea sunetului are loc cu comanda 
<numefisier> ??CHR (7) ). Opţiunea TO specifică un fişier . wav 


pe post de sunet de atenţionare. De exemplu: SET 
BELL TO „Cc: N<windowsimedialding”. 
| CARRY ON|OFF Dacă este ON, o înregistrare nou-adăugată într-o 

i tabelă prin comanda APPEND (vezi capitolul 3) va =— 
copia în câmpurile sale valorile din înregistrarea ~ 


recedentă. | aa 
CENTURY ON |OFF | Activează sau dezactivează afişarea anului în format 
TO ([<secol> cu 4 cifre (este utilă ia introducerea datelor 
[ROLLOVER calendaristice din secole diferite}. Formatul cu TO 
<an>] ] <secol> permite specificarea secolului implicit, iar 


opțiunea ROLLOVER <an> permite, în cazul 
introducerii doar ultimelor două cifre, să se decidă 
de la ce an inclusiv începe secolul trecut şi la care an 


se termină secolul curentă. Valoarea implicită a 
E parametrului <an> este anul curent minus 50. 
CLOCK ON |OFF | STATUS Afişează sau nu ora exactă în colțul din dreapta-sus al 
ecranului ori pe bara de stare, în colțul din dreapta-jos. 

DATABASE TO <nume Specifică numele unei baze de date care va deveni 

-baza-de-date> curentă. Această bază de date trebuie să fie deschisă, 
DATE TO AMERICAN | Permite stabilirea unui format de afişare a datelor 

ANSI | BRITISH calendaristice. Formatul implicit este cel 

| FRENCH | AMERICAN, LL/ZZ/AA, dar se poate opta pentru 

GERMAN altele (BRITISH ori FRENCH sunt de forma 

| ITALIAN | 22/LL/AA, GERMAN este ZZ. LL. AA, ANSI este 

JAPAN | TAIWAN BA. LL. 22 etc.). Numărul de cifre afişat pentru an 

l OSA: | Mpy depinde de starea parametrului CENTURY {vezi mai 

DMY | YMD l 


rii 


8. De exemplu, dacă anul curent este 2001 și argumentul an are valoarea 51, introducerea valorilor de la 51 la 99 
semnifică anii 1951...1999, pe când valorile 00...50 vor însemna 2004)...2050. 
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Parametru 


DECIMALS 


DEFAULT 


DELETED 


| 


SHORT | LONG 


Ti 


TO <numar> 


TO <cale> 


Semnificație 
sus). Formatele SHORT și LONG preiau modul de 
afişare stabilit în Windows Control Panel şi nu 

in seama de comanda SET CENTURY. 

Specifică numărul de zecimale (între O și 18) afişat 
la expresiile numerice. 
Specifică directorul de lucru (cel în care Visual 
FoxPro caută orice bază de date, tabelă, program, 
formular, raport etc. când se lansează o comandă de. 
deschidere ori execuţie). Iniţial, acesta este 
directorul în care s-a instalat Visual FoxPro”. 
Parametrul cale poate fi: o unitate de disc, o 
unitate urmată de o cale de directoare, un 


una din notaţiile prescurtate \ sau .. Calea stabilită 
prin această comandă se află prin combinaţia de 
funcţii SYS (5) + SYs(2003). 


ON | OFF 


DELETED este în starea ON. 
ESCAPE ON |OFF Permite întreruperea (starea ON) execuţiei unui pro | 


iabelă vor fi ignorate de comenzile de prelucrare a 
înregistrărilor (excepții notabile sunt INDEX, 

RE INDEX şi SELECT - SQL). Cu OFF, aceste 
înregistrări sunt „ascunse”, Viteza de prelucrare a 
datelor din tabele mari se reduce dacă parametrul 


| gram sau a unei comenzi prin apăsarea tastei Esc. | 


EXCLUSIVE 


FDOW 


ON |OFF 


parametru depinde succesul unor aplicaţii 
multiutilizator. 
EXACT 


ON | OFF 


rațiile şirurilor de caractere operatorul == (doi de „egal”). 


TO <cifră> 


Când este ON, utilizatorul curent încearcă să obțină 
acces exclusiv la deschiderea unei baze de date sau 
tabele; când este OFF, forma de acces este cea parta- | 
jată (shared). Unele comenzi (în special cele de 
întreţinere a bazei de date: INDEX, PACK, MODIFY 
STRUCTURE, VALIDATE DATABASE etc.) cer 
acces exclusiv, De folosirea judicioasă a acestui 


Permite compararea exactă (ON) sau nu a două şiruri 
de caractere cu lungimi diferite („popescu” şi „pop'”). ~ 
Compararea are loc până se termină şirul din membrul 
drept, dacă starea acestui parametru este OFF, deci 
rezultatele obținute pot fi neaşteptate. În loc de 
comanda SET EXACT ON, se poate folosi în compa- 


Precizează prima zi a săptămânii (implicit este 1, 
adică duminică). Are efect în anumite calcule cu date 
calendaristice, folosind funcția DOW (în ce zi a 


CN 


LOCAL | GLOBAL precizând care dintre câmpuri pot fi accesate (dacă 


| 


OFF | 


săptămânii va cădea 25 decembrie 20017). 
Permite o „decupare pe verticală” a tabelei, 


a e 


director-copi! (situat în ierarhie „sub” cel existent), ~i 


Cu ON, înregistrările marcate pentru ştergere într-o 


9. Deregula. c:\Program Files\Microsoft Visual Studio\VFP98, 
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Parametru 


FILTER 


FUNCTION 
<număr> sau 
FUNCTION 
<nume> 


MULTILOCKS 


| 
ORDER 


Tip 


Semnificație 


TO 
<expresie-logi 
că> 


TO <expresie> 


ON | OFF 


este ON, trebuie urmată de SET FIELDS TO 
<listă-de-câmpuri>). 
Stabileşte un criteriu pentru „decuparea pe 
orizontală” a tabelei, permiţând accesarea doar a 
liniilor care satisfac expresia. Filtrul este ignorat de 
comanda SELECT - SQL. 
- Permite atribuirea unei expresii apăsării unei taste 
funcționale (exemplu: SET FUNCTION 2 TO 
„Salut“ sau SET FUNCTION CTRL+F2 TO 
„Ciao!”). Efectul acestei asignări de taste se 
anulează cu comanda CLEAR MACROS. 
Permite (ON) accesul concurent la înregistrările unei 
tabele, Este necesar pentru implementarea 
mecanismului buffering (vezi capitolul 13). 


TO TAG 
<nume-index> 


Permite specificarea unui index existent într-un fişier 
index de structură ca şi index principal al tabelei 
(pentru indecşi vezi capitolul 2). Indexul principal 
influențează operaţiile de căutare (cu comanda SEEK). 


PATH TO <listă-căi> 


Permite specificarea uneia sau mai multor câi 
(separate prin virgulă), în afara căii stabilite prin 
SET DEFAULT în care Visual FoxPro să caute 
fişiere. Convenţiile de denumire sunt aceleaşi ca la 
SET DEFAULT. De.exemplu: 

SET DEFAULT TO k:\aplicatie 

SET PATH TO forms,proqs,imagini\foto 


PRINTER 


SAFETY 


ON|OFF|TO 
<nume- 
imprimantă> 


Direcţionează către imprimantă rezultatele unor 
comenzi. Opţiunea TO permite alegerea altei 
imprimante decât cea implicită, Încercaţi în fereastra 
de comenzi următoarea linie de cod: i 

SET PRINTER TO GETPRINTER () 


ON |OFF 


Dacă este ON, utilizatorul este avertizat înainte de 
operaţiile care suprascriu un fişier existent (tabelă, 
index, fişier text etc.). Dacă este OFF, operaţia are 
loc fără avertisment. Folosiţi această comandă cu 

precauție. 


STATUS BAR 


rsr 
Ars 


3 


ON | OEF 


Afişează/ascunde linia de stare a ecranului principal 
Visual FoxPro, 


STRICTDATE 


TO 011 


Are rolul de a asigura compatibilitatea cu anul 2000. 
TO 0, permite atribuiri de genul: > 
datacalend=(21/12/2001) 

TO 1, cere o atribuire neambiguă, de tipul: 
Gatacalend=1"2001-12-21) 


'SY SMENU 


ON | OFF | AUTOMAT 
IC 

ITO 
(listaoptiuni) 
| TO [DEFAULT] 


Are rolul de a ascunde (OFF) ori afişa (ON) un 
meniu, care poate fi meniul principal Visual FoxPro 
ori anumite opțiuni specificate într-o listă. Numele 
opțiunilor de meniu încep cu _M şi continuă cu textul 
lor: _MFILE, MTOOLS ete.; mai multe detalii în 
capitolul 12, 


TALK 


ON | OFF 


Decide dacă mesaje despre rezultatele execuţiei unor 
comenzi vor fi afişate sau nu pe ecran ori pe bara de 
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Parametru Semnificație 


stare (un exemplu este cel al comenzii INDEX, care 
va afişa „n records indexed”). 

Stabileşte modul de transmitere a parametrilor de Ta 

o procedură apelantă către o procedură apelată 

pentru detalii, vezi capitolul 4). 

Există şi o comandă SET fără nici un parametru, al cărei rol este de a afișa la un 
moment dat tabelele deschise, împreună cu zonele lor de lucru şi cu eventualii indecşi (vezi 
figura 1.4). Despre tabele, zone de lucru și indecşi veţi afla mai multe în capitolele 
următoare. Deocamdată precizăm că această comandă este similară ca efect opțiunii de 
meniu Window—Data Session. l 


UDFPARMS 


VALUE. | REFERENCE 


Ta Data Sessio E E aa 


Localitati 
Produse 
Liniifact 


maica 5” focas Fi 


Figura 1.4. Efectul comenzii SET 


Mulți dintre parametrii comenzilor SET pot fi modificaţi ṣi de o manieră asistată, prin 


dialogul lansat de opțiunea de meniu Ţools-Options. În figurile 1.5...1.7 sunt 
exemplificați câțiva asemenea parametri. 


Cancel: |. “Hep: Sei As Dotat 


Figura 1.5. Parametri ai mediului Visual FoxPro (1) 


Visual FoxPro 


Notă. Situaţia multora dintre parametri poate fi urmărită şi prin scrierea comenzii 
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Figura 1.6. Parametri ai mediului Visual FoxPro (2) 


DISPLAY STATUS în fereastra Command. 
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Figura 1.7. Parametri ai mediului Visual FoxPro (3) 


1.5.2. Comenzile ON 


În afara comenzilor SET, o serie de opțiuni de configurare sunt disponibile pri 
comenzi care încep cu cuvântul-cheie ON. lată câteva: 
e ON KEY LABEL — permite asignarea unei funcționalități oarecare unei taste sa 
combinaţii de taste. 
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Exemplu: combinația Ctrl+F10 are ca efect în Visual FoxPro maximizarea 
ferestrei curente. Putem „deturna” acest comportament scriind în fereastra de 
comenzi (de exemplu) ON KEY LABEL CTRL+F10 ?“Salut”, prin care, 
la apăsarea numitei combinaţii se va afișa pe ecranul principal Visual FoxPro 
cuvântul „Salut”. Restaurarea comportamentului „norma!” se face cu ON KEY 
LABEL CTRL+F10. Dacă sunt mai multe asemenea definiţii în uz şi vrem să le 
anulăm pe toate, vom folosi ON KEY. 

a ON ESCAPE — asemănătoare cu ON KEY LABEL - permite atribuirea unei 
misiuni tastei Esc, după întreruperea programului curent (deci funcționează numai 
dacă parametrul SET ESCAPE este ON). 

e ON SHUTDOWN — permite declanşarea unei comenzi sau proceduri atunci când se 
încearcă ieşirea din Visual FoxPro, cu una dintre modalităţile QUIT, File=>Exit 
sau butonul de închidere a ferestrei principale, ori chiar la încercarea de a părăsi 
mediul Windows fără a fi închis mai întâi sesiunea Visual FoxPro. Este un bun prilej 
de a atenţiona un utilizator asupra necesităţiifiminenţei unei salvări/pierderi a 
datelor. De remarcat că părăsirea mediului Visual FoxPro nu mai are loc decât dacă 
programatorul o doreşte în mod explicit. 

De regulă, acestor comenzi li se atribuie nu o simplă instrucțiune, ci o procedură 
întreagă invocată prin comanda DO. Pentru edificare, dăm totuşi un exemplu. Astfei, în 
fereastra de comenzi se poate scrie: ON SHUTDOWN DO atentie 

Redăm aici codul procedurii „atenţie”, scrisă şi salvată separati (caracterele && 
introduc comentarii pe marginea codului). 


Listing 1.1. Procedura „Atentie” declanşată la ieşirea din Visual FoxPro 


IF S=MESSAGEBOX('Sunteti sigur(a)?”) && daca se raspunde “Yes” la aceasta intrebare 
QUIT && se paraseste Visual FoxPro, altfel ramanem pe loc 
ENDIF 


Într-o aplicație „îngrijită”, comanda ON SHUTDOWN DO... se va plasa într-un 
program principal, iar în procedura de terminare a aplicaţiei (vom reveni la multe dintre 
aceste lucruri în capitolele următoare) se va scrie o instrucțiune ON SHUTDOWN fără nimic 
altceva, pentru a restaura comportamentul „normal!” al mediului Visual FoxPro. 


1.5.3. Variabile de mediu 


Pentru configurarea numeroaselor sale opţiuni, Visual FoxPro dispune, încă de la 
versiunile cele mai vechi, de o mulţime de variabile de mediu (environment variables) ale 
căror caracteristici comune sunt acelea de stabilire a valorilor unor parametri şi faptul că 
numele tuturor încep cu caracterul „liniuță-de-subliniere” (underscore). Vom da aici câteva 
exemple: 

° DBLCLICK — stabileşte intervalul dintre două click-uri succesive pentřu a fi 
considerate dublu-click. Acest interval e măsurat în fracțiuni de aproximativ 
1/18 s; 

e  _DIARYDATE — conţine data curentă, dar i se poate atribui și o altă dată; 


10. După cum se va vedea în capitolul 4. 
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° PAGENO — conține numărul paginii curente, fiind utilizată la imprimarea 
rapoartelor (vezi capitolul 7); 

e SCREEN — este o referință la ecran (fereastra principală Visual FoxPro). Se 
comportă ca un formular special (vezi capitolul 17), având multe din 
proprietățile şi metodele acestuia. Astfel, o comandă precum 
_SCREEN. BackColor = RGB(255,0,0) va colora fundalul ecranului în 


roşu pur'l; _SCREEN.Caption = „Sesiune de lucru Visual 
FoxPro” va afişa acest text în bara de titlu a ferestrei principale Visual 
FoxPro; 


e _TALLY — va conţine numărul de înregistrări prelucrate de ultima comandă, 
fiind utilă la compunerea unor mesaje de stare adresate utilizatorului, în unele 
reguli de validare sau declanşatoare etc. 

e  _THROTTLE — permite specificarea unei pauze (de la 0 la 5,5 s) între execuția 
liniilor succesive dintr-un program și se utilizează numai la depanarea 
programelor; 

e _ VFP —variabilă ce permite accesul la o serie de proprietăţi ale instanței Visual 
FoxPro (programului executabil), cu precizarea că la un moment dat, pe un 
singur calculator se pot executa mai multe sesiuni de lucru Visual FoxPro. De 
exemplu, ?_VFP.Name va afişa textul „Microsoft Visual FoxPro”. Cu 
comanda ?_VFP. Ful1Name putem afişa pe ecranul principal calea completă 
a programului VFP6.EXE, iar cu comanda ?_VFP.Version se va afişa 
versiunea curentă (6.0). 

În încheiere, precizăm că parametrii stabiliți prin comenzile enumerate mai sus sunt 
memoraţi în baza de date a sistemului (Registry) — vezi figura 1.8. Alte opțiuni, cum ar 
fi poziţiile diferitelor ferestre, bare de instrumente ori meniuri pe ecran sunt memorate în 
fişiere specifice zise „fişiere de resurse” (foxuser . dbf). 


1.5.4. Fişierul CONFIG.FPW 


Încă de la „vârste fragede”, FoxPro a permis memorarea unor parametri specifici, 
precum şi efectuarea unor operaţii preliminare deschiderii sesiunii de lucru cu ajutorul unui 
fişier special de configurare. Pentru versiunile „Visual”, acest fişier se numeşte 
CONFIG. FPW şi conţine o serie de comenzi de parametrizare. Este un fişier de tip text, ce 
poate fi scris cu un editor simplu, gen Notepad. Un exemplu este dat în listingul 1.2. 


Listing 1.2. Exemplu de fişier de configurare 


DEFAULT=,c:lacasa” 

PATH=,„progs, reports, database” 

CLOCK=STATUS 

TALK=OFF 

EXCLUSIVE=OFF 

EXACT=ON 

COMMAND=_SCREEN.Caption = „VEP, configuratie de lucru pentru acasa” 


11. Cu funcția RGB se poate compune o culoare din trei valori: pentru roşu (Red), verde (Green) şi albastru 
(Blue). Valorile variază, fiecare, de la 0 (absenţă) la 255 (saturație maximă). 
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Câteva explicații: 

e liniile de forma <parametru>=<valoare> ţin locul comenzilor obişnuite SET 
<parametru>=<valoare>; 

ə > liniile de tip COMMAND=. . . reprezintă comenzi care, în mod normal, s-ar scrie în 
fereastra Command (în exemplul de față, textul „VFP, configuraţie de lucru pentru 
acasă” va fi plasat în bara de titlu a ferestrei principale Visual FoxPro). 
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Figura 1.8. Locaţia din Registry care memorează parametrii de lucru 


Necesitatea acestui fişier apare datorită setărilor diferite care sunt cerute pentru 
funcţionarea unor programe create de utilizator. Am văzut că parametrii sunt memoraţi în 
Registry. De acord, numai că aici intervine ceva adesea trecut cu vederea, chiar de către 
cei experimentați: un program Visual FoxPro compilat ca fişier .EXE nu consultă baza de 
date Registry, deci fie se va folosi un program principal („punct de intrare” în aplicație) 
ce cuprinde toate comenzile SET necesare (sau, pentru programatorii cu experienţă, funcții 
pentru citirea valorilor din Registry), fie se va folosi un fişier CONFIG. FPW, fie (mai 
rar) o solutie mixtă. | 

Cum se foloseşte acest fişier, CONFIG. FPW ? Soluția constă în crearea unui shortcut la 
programul principal (YFP6.EXE sau altul, în cazul unei aplicaţii compilate). Comanda 
asociată acestui shortcut va conţine în cale și numele programului executabil, urmate de un 
spaţiu şi de textul -C<cale-şi-nume-fişier-de-configurare> (vezi figura 
1.9). Lansarea unei sesiuni Visual FoxPro cu parametrii stabiliţi prin acest fişier se va face, 
evident, prin dublu-click pe shorrcut-ul respectiv. 
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Figura 1.9. Shortcut care foloseşte un fişier CONFIG. FPW 


29 


Dacă dezvoltatorul dorește să poată lansa mai multe sesiuni, fiecare cu parametrii săi, 
atunci poate recurge la mai multe shorrcut-uri, fiecare folosind un alt fişier CONFIG. FPW, 


plasat într-un director distinct și indicat la crearea shortcut-ului, cum se arată în figura 1.9. 


Listing 1.3. Alt exemplu de fişier de configurare 


DEFAULT=,kaplicatie” 
PATH=,programe, rapoarte, baza_de_date” 


TALK=ON 


EXCLUSIVE=OFF 
EXACT=ON 


COMMAND=_SCREEN.Caption = „VFP, configuratie de lucru la serviciu” 


General Shoncut | Securty | Compatibilty | i 


A FoxPro Serviciu ~ 
RP e 


Target îype: Application 


: Target locătiore Vips8 
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Figura 1.10. Alt shortcut, alt fişier de configurare... 
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Baze de date în Visual FoxPro 


Noţiunea de bază de date apare la finele anilor '60. Anii '70 şi chiar o parte din 
deceniul 8 plasează termenul în umbra băncilor de date. Astăzi, această confuzie a cedat 
locul altora. 


2.1. Conceptul de „bază de date” şi o confuzie 
de pe vremea xBase-urilor 


La vremea apariţiei bazelor de date, aplicaţii cu volum mare de date erau organizate în 
jurul fişierelor independente, denumite arhitecturi file-based sau flat files. Necazul era că 
descrierea unui asemenea fişier (chiar în aplicaţii medii existau zeci de asemenea fişiere de 
date) trebuia făcută în fiecare program care-l utiliza. Iar în condiţiile în care într-o aplicație 
există sute de. asemenea programe (fiecare sortare, actualizare, listare are nevoie de 
propriile programe ce conțin, de aproape fiecare dată, descrierea datelor din fişiere), vă 
închipuiţi ce efort presupune modificarea tipului sau lungimii unui câmp, în general tot ce 
tine de modificarea structurii de date. | 
La modul cel mai simplu şi simplist, o bază de date conţine fişierele de date propriu- 
-zise, plus un fişier special în care se stochează structura fişierelor de date Şi legăturile 
dintre acestea, precum şi o serii de restricţii ce pot fi definite asupra câmpurilor şi 
înregistrărilor din fişiere — vezi figura 2.1. 
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Figura 2.1. Schemă de principiu a unei baze de date 
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Nu vom .intra în detalii cu privire la alte modele de organizare a datelor decât cel 
relațional. Se cuvine însă de remarcat că în lumea xBase, din care au făcut parte 
„înainte-mergătorul” dBase, alături de RBase, FoxPro, Clipper și alte produse mai puțin 
cunoscute, termenul SGBDR (Sistem de Gestiune a Bazelor de Date Relaţionale) a fost 
folosit cu oarecare îndrăzneală, pe alocuri nejustificată. 

Unul dintre motive ține de faptul că, până la jumătatea anilor '90, xBase-urile etichetau 
ca bază de date orice tabelă — fişier . DBF. Şi acum mai întâlnim lucrări în care se vorbeşte 
despre comanda dBase/FoxPro CREATE prin care „se creează baza de date CLIENTI”, 
ceea ce nu-i tocmai în regulă. Drept este că orice .DBF (tabelă) are propriul header, în 
care se stochează structura fişierului. Însă dicționarul de date, numit în Visual FoxPro 
containerul bazei de date, este cu mult mai generos, în sensul înglobării nu numai a 
tabelelor, ci şi a restricțiilor bazei, a definiţiilor tabelelor virtuale (view-urilor), a funcţiilor 
şi procedurilor stocate, a conexiunilor cu surse externe (gestionate de alte SGBD-uri), a 
tabelelor derivate la distanță etc. Pe disc, containerul bazei se găseşte sub forma a trei 
fişiere cu extensiile .DBC, .DCT şi .DCX, din care primul este containerul propriu-zis 
(celelalte două sunt un fişier memo şi un index asociate . DBC-ului). 

Principalele tipuri de obiecte ale unei baze date sunt vizibile din modul de afişare în 
cadrul managerului de proiect — figura 2.2. 
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Figura 2.2. Obiecte din schema bazei de date VINZARI 
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Baza de date VINZARI este compusă din: 

e tabelele: CLIENTI, FACTURI, GESTIUNI etc.; 

ə tabelele virtuale (view-uri) locale: VFACTURI, VLINIIFACT ete. | 

s o serie de proceduri stocate (funcții, proceduri, declanşatoare) dintre care primele 

patru sunt vizibile în figură (def _codcl clienti, 
“def codcl facturi...). 

Crearea unei baze date se poate realiza în oricare dintre cele trei moduri prezentate în 
capitolul 1: din fereastra de comenzi, printr-un program în care apare comanda CREATE 
DATABASE, însă cel mai lejer este să se aleagă opţiunea New din cadrul de pagină Data al 
proiectului, ca în figura 2.3. 


D-E E vinzari 
Fiee Tables 
Queries 


Figura 2.3. Vizualizarea bazei de date în cadrul proiectului 


Instrumentul ideal pentru lucrul asistat cu o bază de date este Proiectantul bazei 
(Database Designer — figura 2.4), deoarece permite, în egală măsură: 

o adăugarea de tabele (şi tabele virtuale) la cele existente; 

ə modificarea structurii tabelelor; 

e vizualizarea conținutului tabelelor; 

e stabilirea de relaţii permanente între tabele (pe baza indecşilor); 

e ştergerea de tabele, tabele derivate, relații permanente etc. 


Figura 2.4. Modulu! de proiectare a bazei de date 


Baze de date în Visual FoxPro 33 


Modulul de proiectare a bazei poate fi lansat fie din cadrul proiectului (după 
poziţionarea pe numele bazei de date şi apoi alegerea opțiunii Modi fy), fie direct, prin 
comanda MODIFY DATABASE. 

Ulterior creării, bazei de date îi este actualizat conținutul şi/sau modificată structura, în 
conformitate cu tranzacţiile şi procesele pe care le reflectă şi cu noile nevoi informaţionale. 
Utilizarea unei bazei de date presupune în prealabil deschiderea sa, operațiune care se poate 
realiza: 

e prin meniu; 

e din proiect; 

e prin comanda OPEN DATABASE. 


Pe parcursul celorlalte capitole vor fi tratate fiecare dintre tipurile de obiecte ale bazei 
de date. Pentru început însă, ne vom concentra atenția pe noţiunea centrală de gestiune a 
informaţiilor — tabela. 


2.2. Tabelele unei baze de date în Visual FoxPro 


În termeni pretenţioşi, tabela este unitatea organizaţională fundamentală dintr-o bază de 
date relațională. O bază de date conține una sau mai multe tabele, în funcție de 
complexitatea aplicaţiei. Chiar la aplicații de anvergură medie, numărul tabelelor poate 
atinge ordinul zecilor, iar VFP se descurcă onorabil în aceste situații. 

Gruparea atributelor în tabele, relaţiile dintre tabele, numărul tabelelor dintr-o bază de 
date sunt chestiuni ce privesc procesul de proiectare a bazei, proces care îl include pe cel de 
normalizare. Lucrarea de față nu-şi propune să intre în detalii „normalizatoare”, ci vom 
pleca de la o structură gata „fabricată”, pe care o vom prezenta ceva mai jos. 

Este recomandabil ca toate tabelele să fie incluse în baza de date, chiar dacă legarea lor 
de alte tabele nu pare întotdeauna atât de evidentă. Cu toate acestea, tabelele pot exista şi 
independent de orice bază de date. Acestea sunt denumite libere (free tables) şi, contrar 
denumirii, sunt supuse unor restricţii severe: nu pot avea nume lungi, nu li se pot defini 
restricții la nivel de linii, declanşatoare etc, Astfel încât, vom „pedala” doar pe tabele ce 
aparțin bazei de date, aşa „dependente” cum sunt, 


2.2.1. Tipuri de date în VFP 


Înainte însă de a Prezenta structura tabelelor bazei de date „martor”, să zăbovim preț de 
câteva rânduri asupra tipologiei datelor gestionabile în VFP. Orice tabelă este alcătuită din 
atribute sau câmpuri. La creare, fiecărui atribut i se precizează numele, tipul, lungimea şi, 
eventual, numărul de poziții fracționare (pentru câmpuri de tip numeric). 

In funcţie de semnificaţie, orice atribut poate fi de tip: 

e integer — conţine numere întregi; ex.: 34580; conform documentaţiei YFP6, 

intervalul în care trebuie să se încadreze o valoare de tip integer este Cuprins între 
- 2147483647 şi 2147483647; 

e numeric — număr real cu sau fără poziții fracţionare; ex.: 34580, 456.657789; 
valoarea minimă acceptată pentru acest tip de dată este - .9999999099£+19, iar 
valoarea maximă 9999999999E+20; 

e float — similar tipului numeric; 
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e double — număr real reprezentat în virgulă mobilă dublă precizie (pentru calcule 
ştiinţifice); intervalul de reprezentare a datelor de tip double este cuprins între 
+/-4.94065645841247E-324 şi +/-8.9884656743115E397, 

e currency — numere în format monetar, la partea fracționară pot fi maximum patru 
poziții; la conversia din formatul numeric, atunci când sunt cinci sau mai multe 
poziții zecimale, se face trunchierea (cu rotunjire), ex.: 456.6578, 54. Valoarea 
minimă reprezentabilă în acest format este - 922337203685477.5807, iar cea 
maximă 922337203685477.5807 (ne pare rău că nu putem despărți în silabe un 
număr !); 

e character — șiruri de maximum 254 de caractere; ex.: „ana are mere.”, “Ana are 
merel’; 

e date — dată calendaristică, stocabilă/afişabilă de formatul ales (ISO, american, 
francez, german, englez etc.); constantele de tip dată calendaristică sunt scrise între 
acolade, folosindu-se şi accentul circumflex pentru indicarea anului; ex: 
{^2000/12/31}; 

e datetime — data plus ora; ex.: {^2001/07/23 14:55:56} care este echivalentă cu 
{^200 1/07/23 2:55:56PM) 12, 
logical — poate avea două valori logice, true (.7.) sau false (.F.); 

e memo — este util pentru stocarea unor blocuri de text mai mari de 254 de caractere, 
stocare exterioară tabelei, într-un fişier cu extensia .FPT (ex.: pentru CV-uri, 
procese-verbale etc.); lungimea unui câmp memo este limitată numai de spațiul 
disponibil pe disc; 

o general — constituie o referință către un obiect OLE stocat într-un fişier extern bazei 
(foaie de calcul, document Word etc.). 


Într-un program sau în fereastra de comenzi, pentru a determina tipul unei variabile sau 
câmp se poate folosi funcţia TYPE (). De exemplu, 
? TYPE ('("2001/07/23 2:55:56PM)!) 
afişează T (de la DateTime). 


Literele returnate de funcţia TYPE () sunt următoarele: 
ə C —pentrutipul character, 
e N —pentru numeric, integer, float şi double, 
e D —date, 
T — datetime, 
Y — currency, 
L — logical, 
e M —memoşi 
G — general. 


12. Acest format „straniu” pentru constante de tip Date şi DateTime a fost introdus de Visual FoxPro 6.0 
pentru a evita confuziile legate de anul 2000. Versiunile mai vechi foloseau formatele (LL/ZZ/AA) ori 
IZZ LLIAA}, format încă operabil în Visual FoxPro 6.0 dacă se foloseşte comanda SET STRICTDATE TO 
9 (zero). 
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2.2.2. Conversia între tipurile de date: 


Uneori, în aplicații este necesară conversia între diversele tipuri de date, cel mai adesea 
pentru concatenări. În paragraful dedicat indecşilor, vom vedea că, atunci când cheia de 
indexare este compusă, VFP solicită concatenarea atributelor, posibilă numai cu ajutorul 
conversiei atributelor în şiruri de caractere. 
Conversia în şiruri de caractere necesită următoarele funcții: 
e pentru datele numerice, funcţia STR(); ex: STR(NrFact,7), unde 7 este 
lungimea şirului proaspăt obținut; y 

e pentru date calendaristice, funcţiile Dros() sau _DTOC(); ex: 
?DTOS ((%2001/07/23)) afişează 20010723, în timp ce 
DTOC (4”2001/07/23)), 23/07/2001 (atunci când formatul datei este 
british); 

e pentru atribute, variabile sau constante dată/timp se foloseşte funcţia TTOC () ; 

e datele logice (boolean) nu pot fi convertite direct în şiruri, dar se pot folosi, în 

expresii, IF-uri imediate (11F-uri). 


Relativ frecvent sunt folosite şi funcțiile: VAL () pentru conversia unui şir de caractere 
într-un număr, CTOD()- care transformă un şir de caractere în dată calendaristică, 
TTOD{)- ce întoarce data calendaristică dintr-o constantă/variabilă/atribut de tip 
dată/timp şi CTOT () — ce transformă un şir de caractere într-o valoare de tip dată/timp. 


2.2.3. Valori nule 


Unul dintre cele mai discutate ingrediente ale modelului relaţional îl reprezintă teoria (şi 
practica) valorilor nule. O valoare nulă este o valoare lipsă sau inaplicabilă. Dificultatea 
este cu atât mai mare, întrucât până la versiunea Visual FoxPro 3, foxiştii nu erau obişnuiţi 
cu asemenea gen de valori, zero sau spațiu ţinând locul valorilor necunoscute sau 
neaplicabile. 

O tabelă BENEFICIARI ar putea conţine câte o linie pentru fiecare persoană fizică şi 
juridică care a cumpărat un produs/serviciu de la firma noastră, în care, printre altele, apar 
şi atributele CNP (fireşte, pentru beneficiari — persoane fizice) şi CoaFiscal (pentru 
beneficiarii — persoane juridice). Pentru liniile referitoare la persoane fizice CodFiscal 
ar trebui să fie NULL, iar pentru persoanele juridice CNP-ul ar trebui null-ificat. Însă mulți 
practicieni preferă încă valorile zero/spațiu. 

Pentru a verifica dacă atribute/variabile/constante de tip numeric sau şir de caractere 
sunt necompletate, în sensul că valoarea lor este zero/vidă (nici măcar spaţiu), se poate 
folosi funcția EMPTY () sau, numai pentru şiruri de caractere, ISBLANK (). Pentru o 
valoare NULL, funcţiile EMPTY () şi ISBLANK () întorc însă false (F.). 

Atribuirea de valori vide se poate face, în funcție de tipul variabilei, astfel: 

X=0 (numeric) sau x=”” (şir de caractere) sau x={ / / } (dată calendaristică), 

Dacă un câmp/variabilă primeşte valoarea NULL, tipul acestuia/acesteia nu se modifică. 
Testarea null-ității unei variabile/atribut se realizează cu ajutorul comenzii ISNULL (). 


, Visual FoxPro 
36 i 


2.2.4. Crearea şi modificarea structurii unei tabele 


icei, pri î i i oxPro. 
Crearea unei tabele reprezintă, de obicei, primul pas în lucrul efectiv cu tai sd n 
Graţie unui modul special, proiectantul de tabele ie ooh PE 
; E istat di iu, din proiect sau din proiectantu : 
CREATE, sau asistat din meniu, 5 i 
P se Deeigner), crearea şi modificarea structurii unei tabele este o CREA 
i cp exemplu, pentru tabela FACT URI din baza de date VINZARI, proiectantu 
tabelei se prezintă ca în figura 2.5. 
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Figura 2.5. Modulul de proiectare de tabele 
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următoarelor elemente: | , APN 
Name indică numele câmpului. Tabelele independente (neincluse în vreo bază ) 


â i ifică versiunilor 
trebuie să respecte limita de 10 caractere pentru numele câmpurilor, specifică versiun 
r 
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i i â i. 

e Type specifică tipul câmpulu l TOES 

° o indică numărul maxim de caractere sau de cifre alocat fiecărui câmp. 

e Decimal precizează numărul de cifre pentru partea fracționară (când este cazu ). 


a l 
e Index specifică indecșii obişnuiţi (regular) pentru ordonarea valorilor 


â i endent. 
câmpului ascendent sau desc l l 
e NULL — când este marcat, atributul respectiv poate accepta valori nule. 
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Prezența dicționarului (catalogului) bazei de date face posibilă o serie de opțiuni şi 
„înflorituri”, dintre care merită amintite: folosirea de nume lungi (mai explicite) pentru 
tabele şi atribute, declararea de valori implicite pentru orice atribut, instituirea unor reguli la 
nivel de atribut şi înregistrări, ca şi declanşatoare. 

Să parcurgem rapid „înfloriturile”: 


° Format — permite definirea şablonului de preluare (tipul de date/caractere) a 
valorilor atributului respectiv; de obicei se folosesc următoarele caractere: 9 — 

pentru cifre, A — pentru litere, ! — pentru majuscule etc. 

Input Mask — este util în facilitarea preluării valorilor unor câmpuri pentru care 

se pot defini „măşti”; exemplul din documentaţia VFP este cel al formatului 

numerelor de telefon din SUA, pentru acest tip de atribute fiind adecvată masca 


(HEE) Făt 


Caption — permite declararea unui nume explicit pentru atributul respectiv, 
nume care să apară la editarea tabelei, de exemplu, pentru NrFact să apară în 
fereastra Browse: NumarFactura, 


Pentru exemplificare, să presupunem că într-o tabelă PERSOANE există un atribut BI 
pentru stocarea seriei şi numărului buletinului de identitate. Cele trei elemente pentru 
facilitarea preluării/editării valorilor acestui atribut ar putea fi configurate ca în figura 2.6. 


rDisplaj-— ea E R ceai 


[Formats [999399 ] 
„Input mask: : * AA. tnt i 
& Caption: 5 3 Buletinidentitate 1 


Figura 2.6. Opţiuni de ameliorare a preluării unor date de intrare 


Format-ul ne asigură că primele două litere preluate (seria buletinului) vor fi 
majuscule, indiferent de starea tastei Caps Lock, iar restul de şase caractere trebuie să fie 
obligatoriu cifre. Input Mask determină afişarea unui punct după fiecare dintre cele 
două litere şi a unui spațiu între serie şi număr. Caption determină afişarea, în fereastra 
Browse, pentru acest atribut, a antetului BuletinIdentitate. 

Pentru tabela FACTURI, modul de afişare a antetului şi valorilor atributului NrFact, 
precum şi comentariul referitor la acest câmp sunt cele din figura 2.7. 
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Figura 2.7. Optiunile de afişare şi de preluare ale atributulut NrFact din tabela FACTURI 


După crearea tabelei, aceasta va fi stocată pe disc ca fişier cu extensia . DBF. Modifi- 
carea ulterioară a structurii, în sensul (restrâns): 

e adăugării unui nou atribut, 

e  ştergerii unui atribut, 

e modificării denumirii, tipului sau lungimii unui atribut, 

e modificării formatului de afişare etc. 
se poate realiza tot cu ajutorul proiectantului de tabelă, lansat fie din meniu sau proiect, fie 
prin comanda MODIFY STRUCTURE. 


O tabelă creată prin Database Designer este automat inclusă în baza de date 
curentă, lucru valabil şi dacă baza de date este deschisă prin comanda OPEN DATABASE, 
Asocierea tabelă — bază de date se face în ambele sensuri. În dicționarul bazei se păstrează 
calea (directorul) și numele fişierului . DBF ce reprezintă, fizic, tabela, iar, pe de altă parte, 
antetul (header-ul) tabelei conţine informaţii despre baza de date de care aparține (calea şi 
numele .DBC-ului). De aceea, atunci când fişierele dicționarului de date sau tabele sunt 
mutate pe altă unitate de disc sau alt director, legăturile stocate în antetul tabelei şi în 
containerul bazei pot fi alterate. 

După o eventuală mutare a unei tabele/baze, actualizarea legăturilor dintre tabelă şi bază 
se realizează folosind opțiunea RECOVER a comenziii VALIDATE DATABASE, astfel: 

OPEN DATABASE vinzari 

VALIDATE DATABASE RECOVEF 
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Atunci când se doreşte ştergerea marcajului tabelei către baze de date (s-au şters/pierdut 
fişierele containerului bazei), „eliberarea” tabelei se realizează prin comanda: 

FREE TABLE tabelă. 

Fireşte, după această comandă se pierd restricţiile, declanşatoarele, numele lungi şi alte 
facilități stocate în dicționar. 

Documentaţia VFP recomandă evitarea acestei comenzi atunci când baza există pe disc, 
deoarece FREE TABLE poate face baza inutilizabilă. Din acest punct de vedere, comanda 
REMOVE TABLE este mult mai „blândă”, deoarece elimină din bază numai referinţele 
către indecșşii primari, valorile implicite şi regulile de validare asociate tabelei, 


2.2.5. Restricţiile unei baze de date 


Există două aspecte complementare de abordare a bazelor de date relaționale: schema 
(Structura, intensia) şi conținutul (instanţierea, extensia). Conţinutul unei relaţii este 
reprezentat de ansamblul tuplurilor ce o alcătuiesc la un moment dat. Pe parcursul 
exploatării bazei, conținutul poate creşte liniar (sau exponențial), în funcţie de volumul şi 
complexitatea operaţiunilor consemnate. Schema relațională poate fi definită ca un 
ansamblu de relații asociate semantic prin domeniul lor de definiţie şi prin restricții de 
integritate. Schema este independentă de timp şi reprezintă componenta permanentă a 
relațiilor, 

De multe ori se operează numai cu schema simplificată ce cuprinde numele tabelelor şi 
enumerarea atributelor acestora, atributele-chei primare fiind subliniate. La acestea se 
adaugă restricţiile la nivel de atribut, înregistrare şi cele referențiale. 


2.2.6. Cheia primară 


În teoria bazelor de date relaţionale se interzice apariţia în tabele a două linii (tupluri) 
absolut identice. Aceasta deoarece accesul într-o tabelă trebuie asigurat exclusiv pe baza 
valorilor atributelor, iar aceasta presupune ca, pentru delimitarea unei linii de toate 
celelalte, să existe măcar o valoare care să facă diferenţa. 

Atributul sau combinaţia de atribute care nu poate avea valori duplicate în cadrul unei 
tabele reprezintă un candidat la cheia primară a relaţiei (tabelei). Dintre cheile candidat se 
alege una care va fi declarată cheie primară, celelalte căpătând statutul de chei alternative. 
Spre exemplu, într-o tabelă PERSONAL ce conţine câte o linie pentru fiecare angajat al 
firmei pot exista două atribute candidat: CNP -— codul numeric personal și BI — seria şi 
numărul buletinului de identitate, Dacă se alege drept cheie primară CNP, atunci BI devine 
cheie alternativă. 

În teoria relațională se interzice ca un atribut ce este sau intră în componența cheii 
primare să prezinte valori nule. 


2.2.7. Restricţia referenţială 


Proiectarea bazei de date se materializează într-o serie de tabele aflate în legătură. De 
cele mai multe ori, legătura se stabileşte prin intermediul unui atribut cu aceeași 
semnificaţie (şi nume). Să luăm două tabele, JUDETE şi LOCALITATI, cu atributele: 

JUDETE (Jud, Judet, Regiune) 

LOCALITATI (CodPost, Loc, Jud} 
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Cele două tabele prezintă un atribut comun — Jud — care reprezintă indicativul auto al 
judeţului. În JUDETE atributul Jud este cheie primară, deoarece identifică fără 
ambiguitate un judeţ (cheie alternativă fiind Judet — denumirea județului). Cheia primară 
a tabelei LOCALITATI este codul poştal — CoaPost, iar în aceeaşi tabelă Jud este cheie 
străină sau coloană de referință. Tabelele se află într-o relaţie părinte-copil prin atributul 
Jud. Tabela în care acest atribut este cheie candidat reprezintă părintele, iar cealaltă, în 
care Jud este cheie străină, reprezintă copilul. 

Dacă în relaţia copil (LOCALITATI) se interzice apariţia de valori nenule ale 
atributului Jud, care există deja în tabela-părinte (JUDETE), se spune că între cele două 
tabele s-a instituit o restricție de integritate referențială sau, pe scurt, restricție 
referenţială. 


2.2.8. Alte tipuri de restricții ale bazei de date 


Dintre celelalte tipuri de restricţii ce pot fi declarate într-o bază de date relațională, 
merită amintite restricţiile la nivel de atribut şi la nivel de înregistrare ce vor fi prezentate în 
paragraful 2.5. 


2.3. Tabelele bazei de date VINZARI 


Pe parcursul acestei lucrări, va fi folosită preponderent o bază de date denumită 
VINZARI, ce conţine următoarele tabele: : 


JUDETE (Jud, Judet, Regiune) 

LOCALITATI {CodPost, Loc, Jud) 

PERSOANE (CNP, Nume, Prenume, Adresa, Sex, CodPost, TelAcasa, TelBirou, TeiMobil, EMail} 
CLIENTI (CoacCl, DenCi, CodFiscal, Adresa, CodPost, Telefon} 

PERSCLIENTI (CNP, CodCI, Functie) 

PRODUSE (CodPr, DenPr, UM, Grupa, ProcTVA, Imagine) 

GESTIUNI (Gestiune, Den_Gest, Adresa, CodPost, CNP, Telefon, EMail} 

FACTURI (NrFact, DataFact, Gestiune, CoaCi, Obs) 

LINIFACT (NrFact, Linie, CodPr, Cantitate, PretuUnit) 

INCASARI (Codinc, Datalnc, CodDoc, NrDoc, DataDoc) 


INCASFACT (Codinc, NrFact, Transa) 


Tabela JUDETE (figura 2.8) conţine informaţii generale despre judeţele în care sunt 
clienţi. Fiecare linie a tabelei descrie un judeţ. Atributele sunt: 

ə Jud- indicativul auto al judeţului (alcătuit din două litere, majuscule); 

e Judet — denumirea judeţului; 

e Regiune — regiunea istorică (provincia) din care face parte judeţul. 
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Regiune 


Figura 2.8. Tabela JUDETE 


Cheia primară este atributul Jud. Atributul Judet este cheie alternativă. Pot fi 
instituite o serie de restricții-utilizator: 

e Jud este alcătuit numai din majuscule (eventual un spaţiu, pentru Bucureşti); 

e Fiecare cuvântdin Judet începe cu majusculă; restul literelor sunt mici; 

+ Regiune începe cu majusculă; restul literelor sunt mici; 


e Regiune poate avea numai una dintre valorile: Banat, Dobrogea, Muntenia, 
Oltenia, Transilvania, Moldova. 


Tabela LOCALITATI (figura 2.9) conţine câte o linie pentru fiecare oraş sau comună. 
Atenţie: satele nu sunt preluate în această tabelă, deoarece, într-o comună, fiecare sat 
component are acelaşi cod poştal ca şi comuna ! 

Atribute: 


e  CodPost —codul poştal al comunei sau oraşului; 
e Loc — denumirea comunei/orașului; 
e Jud -— indicativul auto al județului. 


L 53 

Figura 2.9. Tabela LOCALITATI 

Cheia primară este atributul CoaPost. Atributul Jud este cheie străină, tabela-părinte 
fiind JUDETE (prin atributul Jud). Pot fi instituite o serie de restricții-utilizator: 


e Jud este alcătuit numai din majuscule (eventual un spațiu, pentru Bucureşti); 
e Fiecare cuvânt din Localitate începe cu majusculă; restul literelor sunt mici. 


Tabela CLIENTI (figura 2.10) grupează date generale ale clienţilor firmei pentru care 
s-au constituit baze de date (o linie — un client). Atribute: 
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e  CodCl ~ codul clientului; 

e  DenCi — denumirea clientului (persoană juridică); 
e  CodFiscal — codul fiscal; 

e Adresa —adresa sediului firmei client; 

e  CodPost — codul poştal al comunei sau oraşului; 
ə Telefon —telefonul (principal) al clientului. 


dad 
Telefon i 


1092; Chent 2 SA 


Figura 2.10. Tabela CLIENTI 


Cheia primară este atributul CodC1. Atributul CoaPost este cheie străină, tabela- 
-părinte fiind LOCALITATI (prin atributul CodPost). DenCl şi Adresa încep cu 
majuscule. După cum punctam anterior, valorile nule indică o lipsă de informație. Pentru 
primu! client nu se cunoaşte telefonul, celui de-al doilea — adresa etc. | 


Tabela PERSOANE (figura 2.11) are ca obiectiv stocarea datelor despre persoanele- 
-cheie de la firmele-client: directori generali, directori financiari, şefi ai compartimentelor 
comerciale (aprovizionare şi/sau vânzări) ete., dar şi ale pesonalului propriu (în primul rând 
gestionari). Atribute: 


e CNP — codul numeric al persoanei; 

e Nume; 

ə Prenume; 

* Adresa; 

e Sex; 

ə  CoaPost; 

e  TelAcasă — numărul telefonului de acasă; 

e  TelBirou- numărul telefonului (fix) de la birou; 
e  TelMobii — numărul „mobilului”; 

e Email- adresa e-mail. 
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_ |Sex|Codpost| Telacasa Telbirou Teimobil_ 
‘B 16600 4567 1878543 24272423; 


Figura 2.11. Tabela PERSOANE 


Cheia primară este atributul CNP. Fiind vorba și de persoane exterioare întreprinderii, 
un atribut precum Marca este mai puţin indicat. CNP-ul este greoi, relativ lung (de aceea 
am preferat să scriem, pur şi simplu CNP1, CNP2...), dar stabil și unie. Atributul 
CodPost este cheie străină, tabela-părinte fiind LOCALITATI (prin atributul codPost). 
Celei de-a doua persoane nu i se cunoaşte domiciliul (adresa). Cu excepția lui Vasile lon, 
nimeni nu are cont deschis pentru poşta electronică, 

Alte restricții-utilizator: pA 

e Fiecare cuvânt din Nume și Prenume începe cu majusculă; restul literelor sunt mici; 

e Adresa începe cu majusculă; i 

e Atributul Sex poate lua numai două valori: B de la Bărbătesc şi F de la Femeiese. 


Tabela PERSCLIENTI (figura 2.12) indică funcția deținută de fiecare persoană la unul 
(sau mai mulți, deşi aceste cazuri sunt rare) clienți. O linie din această tabelă reflectă o 
funcţie deținută de o persoană la un client. O persoană poate avea mai multe funcţii, chiar la 
aceeași firmă (cumul de funcții). Cele trei atribute sunt: 

e CNP — persoana care deține funcţia; 

a  CoacCl — firma la cdre persoana deține funcția; 

* Functie — funcția deținută. 


1007:Sef aprovizionare 


Figura 2.12. Tabela PERSCLIENTI 


Cheia primară este compusă din toate cele trei atribute: CN2+CoaCl- Functie, 
deoarece am convenit că o aceeași persoană poate cumula două sau mai multe funcţii la. 
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aceeaşi firmă. CNP şi Coaci sunt chei străine, tabelele-părinte fiind PERSOANE, 
respectiv. CLIENTI. Atributul Functie începe cu majusculă, restul literelor fiind mici. 


Tabela PRODUSE (figura 2.13) reprezintă nomenclatorul de produse şi servicii pe care 
le comercializează firma (produsele sunt obținute prin manufacturare sau revânzare). 
Atribute: i 

ə CodPr -codul produsului; 

è  DenPr — denumirea; 

ə — UM — unitatea de măsură a produsului; 

e Grupa — grupa de mărfuri (sortimente) în care se încadrează; acest atribut este 
i important pentru analiza vânzărilor; 

e  ProcTVA — procentul TVA care se aplică la prețul de vânzare (preţ care este fără 
TVA); pare de prisos în condiţiile actuale, când toate produsele au un singur 
procent, 19%, dar nimeni nu poate garanta cum vor gândi promoţiile viitoare de 
guvernanti „relaxarea fiscală”; 

e Imagine — este un câmp de tip general folosit la stocarea fotografiei digitale a 
fiecăruia dintre produsele vândute. 


Figura 2.13. Tabela PRODUSE 


Cheia primară este atributul CoaPr. Alte restricții-utilizator: 
e  DenPrşiGrupa încep cu majusculă; restul literelor sunt mici; 
e unitatea de măsură (UM) se scrie numai cu litere mici. 


Tabela GESTIUNI (figura 2.14) conţine câte o linie pentru fiecare gestiune de 
produse/mărfuri a firmei, gestiune din care se fac vânzări (un soi de puncte de vânzare ale 
firmei). Atribute: 

o Gestiune — codul gestiunii/depozitului; 

e Den Gest — denumirea gestiunii; 

e Adresa — adresa depozitului; | 

e  CodPost — codul poştal al localităţii în care se află depozitul; 

e CNP — codul numeric personal al gestionarului; 

e Telefon — numărul de telefon al depozitului; 

e Email -~ adresa de e-mail a depozitului. 
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Adresa |Codpost|. Cnp - | Telefon | 
i 500 CNF 


145 bi NF10 


etistului, 56 


Figura 2.14. Tabela GESTIUNI 


Cheia primară a tabelei este atributul Gestiune. 


Tabela FACTURI (figura 2.15) conține câte o linie pentru fiecare factură emisă, factură 
ce reflectă o vânzare (către un client). Atribute: 

e  NrFact — numărul facturii; 

e  DataFact —data întocmirii facturii; 

ə Gestiune —codul gestiunii/depozitului din care se face vânzarea; 

e  Coacl — codul clientului căruia i s-au vândut produsele/serviciile consemnate în 
factură; 

e Obs — observaţii; e folosit relativ rar, pentru a introduce eventuale detalii sau 
probleme care au apărut în legătură cu o factură. 


Figura 2.15. Tabela FACTURI 


Cheia primară este atributul NrFact. Explicaţia este una simplă: gestionarea facturilor 
emise este, conform legii, strictă. Nu pot exista două facturi (care reflectă două vânzări) cu 
acelaşi număr. Sau, de fapt, pot exista, dar aceasta înseamnă o ilegalitate destul de gravă (se 
mai poartă încă prin economia subterană). CoaCl este cheie străină (tabela-părinte este 
CLIENTI). Ca restricție-utilizator suplimentară, nu pot fi introduse facturi întocmite înainte 
de 1 august 2001 (DataFact >= (01/08/20019). 


Tabela LINIIFACT (figura 2.16) detaliază tabela precedentă. Un tuplu se referă la un 
produs/serviciu vândut şi consemnat într-o factură emisă. Pentru fiecare factură vor fi 
atâtea linii câte produse/servicii au fost consemnate la vânzarea respectivă. Atribute: 

e  NrFact — numărul facturii; 

e Linie -—numărul liniei din factura respectivă; 


46 i Visual FoxPro 


e  CoaPr — codul produsului/serviciului vândut; 
ə Cantitate — cantitatea vândută; 
e  PretUnit — prețul unitar (fără TVA) la care s-a făcut vânzarea. 


Figura 2.16. Tabela LINIIFACT 


Cheia primară este combinația NrFact+Linie. Atributele NrFact şi CoaPr sunt 
chei străine. Pentru a determina valoarea de încasat a unei facturi (inclusiv TVA), la 
valoarea fără TVA, pentru fiecare linie (obținută prin produsul Cantitate * PretUnit) 
trebuie adăugată TVA colectată, obținută prin aplicarea procentului de TVA al 
produsului/serviciului (atributul ProcTVA din PRODUSE) la valoarea fără TVA. 


Tabela INCASARI (figura 2.17) reprezintă un nomenclator al încasărilor. Printr-o 
încasare, un client îşi stinge una sau mai multe obligații de plată, adică achită una sau mai 
multe facturi. Documentul primar pe baza căruia se consemnează încasarea poate fi ordinul 
de plată, cecul, chitanța etc. Atributele tabelei sunt: 

e Codinc — codul încasării este un număr intern, util pentru a diferenţia o încasare de 

celelalte; 

e Datalnc — data încasării — data la care banii au intrat în contul sau casieria firmei; 

e CodDoc — codul documentului justificativ al încasării: OP — ordin de plată, CHIT — 

chitanţă, CEC — filă cec; 

e NrDoc — numărul documentului justificativ; 

e DataDoc — data la care a fost întocmit documentul justificativ; din momentul 

întocmirii documentului de plată până la data la care banii ajung efectiv în 
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convcasierie trec câteva zile sau săptămâni (datorită circuitului documentelor între 
firme şi bănci). 


Dat adoc. 


Figura 2.17. Tabela INCASARI 


Cheia primară este atributul CodInc. Ca restricții-utilizator pot fi instituite: 

e data încasării nu o poate precede pe cea a întocmirii documentului (DataDoc <= 
Datalne); 

ə data documentului de încasare nu poate fi anterioară datei de început a aplicaţiei: l 
august 2009 (DataDoc >= {01-08-2000} ); 

e codul documentului se scrie numai cu majuscule. 


Tabela INCA SFACT (figura 2.18) detaliază tabela precedentă şi indică ce facturi (tranşe 
din facturi) sunt achitate prin fiecare încasare. Un client poate plăti mai multe facturi o dată 
(printr-o singură plată)..Pe de altă parte, orice factură poate fi plătită în una sau mai multe 
tranşe, în funcţie de banii de care dispune clientul la momentul întocmirii documentului de 
plată. Atributele tabelei sunt: 

e  Codinc — codul încasării; 

e NrFact — factura pentru care se încasează valoarea integrală sau numai o tranșă; 

e Transa - tranșa din factură (sau întreaga valoare) care se încasează prin 

documentul primar ce stă la baza încasării. 


SNe] 


Figura 2.18. Tabela INCASTACT 


Cheia primară este combinaţia CodIne+NrFact, deoarece la o încasare se pot achita 
mai multe facturi, iar pe de altă parte, o factură poate fi plătită în mai multe tranșe. 
CodInc şi NrFact sunt chei străine, 
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2.4. Despre indecşi 


Orice produs software dedicat gestionării bazelor de date este de neconceput fără 
opțiuni privind suportul indecşilor. Aceasta deoarece un parametru vital pentru buna 
funcţionare a unei aplicaţii este viteza. 

Tipologia indecşilor este destul de largă, chiar şi în VFP. Noi însă ne vom ocupa doar 
de cei compuși structurali, care sunt organizaţi în fişiere cu același nume ca al tabelei, dar 
cu extensia . CDX. Un index compus este alcătuit din unul sau mai mulți indecşi elementari 
(tag-uri) ce conţin. valorile ordonate ale câmpului sau combinației de câmpuri ce 
constituie expresia de indexare, precum şi adresele înregistrărilor corespunzătoare din 
tabela originară. 

Indecșii sunt absolut necesari pentru declararea cheilor primare, ale celor alternative şi a 
restricţiilor referențiale. Pentru a evidenția aportul la creșterea vitezei, vom apela la un 
exemplu edificator (sau cel puţin aşa ni se pare nouă): dată fiind o tabelă TEST {cod 
N(10), den _test C(20)) aflată pe un server de aplicaţii în reţea (2x400 Mhz cu 
128 RAM, rețea pe 10 Mbps) şi care conține 2.500.000 de înregistrări, se doreşte obținerea, 
pe o staţie de lucru, a acelor înregistrări care au codul cuprins între 999.999 şi 1.239.000. 
Rezultatul se prezintă astfel: 

e pe tabela neindexată interogarea respectivă are o durată de 1 min 10 s, 

în timp ce 

ə  petabela indexată după Coad durata obţinerii rezultatului se reduce la 12 s. 


În funcţie de expresia de indexare, indecşii pot fi: 
e simpli — expresia de indexare este chiar atributul respectiv; 
e complecși — expresia de indexare reprezintă o combinaţie de atribute. 


Astfel, tabela LINIIFACT {NrFact N(6), Linie N(2), Codpr N(6), 
Cantitate N(5), Pretunit N(12) } (figura 2.19) are drept cheie primară 
combinaţia între numărul de factură şi cel al liniei. Declararea cheii primare se realizează 
construind un index cu numele Primar şi expresia de indexare str(nrfact)+ 
srr (linie). Pentru cheile străine codpr (cu referință la tabela PRODUSE) şi 
nrfact (cu referinţă la tabela FACTURI) se creează câte un index obişnuit (regular) 
astfel: NrFact cu expresia de indexare nrfact şi CoaPr cu expresia de indexare 
codpr. Prin urmare, fişierul index compus nou — LINIIFACT. CDX — va conține trei 
indecşi elementari (tag-uri). Fiecare dintre acești indecşi va conţine expresiile de indexare 
ordonate şi adresele înregistrărilor din tabelă (figura 2.20). 
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Figura 2.20. Organizarea internă a fişierului index LINIIFACT. CDX 
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În Visual FoxPro 6.0 pot fi utilizate următoarele tipuri de indecşi: 

e Primar — pentru declararea cheii primare — blochează introducerea de valori duble 
pentru expresia de indexare. | 

ə Candidat — același efect ca și indexul primar. Deşi pare oarecum redundant, este 
nevoie şi de acest tip, deoarece o tabelă poate avea mai multe chei candidat la 
postul de identificator primar (ex.: marca salariat şi cod numeric personal). 

e Regular — permite duplicarea valorilor, fiind folosit pentru cheile străine, precum şi 
pentru construirea unor indecşi necesari creşterii vitezei accesului la înregistrări. 

e Unique — inclus pentru compatibilitatea cu versiunile mai vechi de FoxPro, acesta 
generează şi ordonează în fişierul index doar valorile unice ale expresiei de 
indexare, în cazul în care respectivele valori se dublează în tabela de bază. 


2.4.1. Crearea indecșilor în mod vizual 


Pentru crearea asistată a indecşilor vom parcurge următorii paşi: 
|. în Project Manager se selectează cadrul de pagină Data, apoi baza de 
date şi tabela pentru care doriți să creaţi un index şi se execută un click pe 
butonul Modify; 
2. în Table Designer se alege-cadrul de pagină Indexes. 


Numele 
indexului 


NRFACT EEE 


primat Primary = 
CODPR Regua - 


e] 


Ordonare ascendentă 
sau descendentă 


Zona pentru creare 
index nou 


Expresia de indexare 


Sterge indexul | 


curent | 


ea I— Constructorul de expresii * 
Tip index 


Figura 2.21. Cadrul de pagină pentru construirea asistată a indecşilor 


După cum se observă şi din figura 2.21, nu este obligatoriu ca numele indexului să fie 
diferit de expresia de indexare (nume index — NRFACT, expresia de indexare — nrfact). 
Pentru indexul complex cu numele Primar, expresia de indexare se constituie din 
concatenarea câmpurilor nrfact şi Linie transformate în caracter cu ajutorul funcției 


STR () :str(nrfacti+str(linie), 
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2.4.2. Crearea indecşilor prin comenzi 


În funcţie de tipul indexului dorit, avem următoarele situaţii: 


° Îndecşi de tip regular, candidate sau unique: 
INDEX ON expresie de _ indexare TAG numeindex 
[ASCENDING / DESCENDING) | 
[UNIQUE / CANDIDATE) 
Utilizarea comenzii de mai sus necesită deschiderea şi selectarea zonei de lucru în care 
este deschisă tabela curentă (vezi capitolul 3). 
<expresie_de_indexare> — poate fi un atribut sau o combinație de atribute 
(pentru indecşi complecși) 


e  Indecși primari (cheile primare) şi indecși pentru cheile străine: 
ALTER TABLE numetabelă ADD PRIMARY KEY f 
expresie_de_indexare TAG Nume_Index- 


ALTER TABLE numetabelă ADD FOREIGN KEY 
expresie_de_indexare TAG Nume_Index REFERENCES 
NumeTabela_Parinte TAG Nume Index Parinte. 

Comanda ALTER TABLE, fiind o comandă SQL (tratată pe larg în capitolul 5), va 
ui automat tabela, astfe] încât nu mai este necesară efectuarea acestei operaţii în mod 
explicit. - i 


Atenție! Adăugarea cheilor străine priņ această metodă realizează numai legăturile 
permanente între tabelele părinte şi copil, modul de comportament specific modelului 
relațional fiind stabilit ulterior prin editarea restricțiilor referențiale sau a declanşa- 
roarelor (triggere)?. l ny 


Pentru exemplificare, vom crea indecşii tabelei LINIIFACT: 
e crearea cheilor primare și străine: 


ALTER TABLE liniifact ADD PRIMARY KEY str(nrfact)+str(linie) TAG primaru 
ALTER TABLE liniifact ADD FOREIGN KEY nrfact TAG nrfact REFERENCES Facturi TAG nrfact 
ALTER TABLE liniifact ADD FOREIGN KEY codpr TAG codpr REFERENCES Produse; TAG codpr 


ə crearea unui index simplu pentru atributul Linie, spre exemplu, presupune şi 
deschiderea“? tabelei (dacă aceasta nu este deja deschisă): 


SELECT liniifact 
INDEX ON linie TAG linie 


Rezultatul acestor linii de cod se concretizează în următoarele: 
e Se creează indexul primar Primaru cu expresia de indexare str (nrfact) + 
str (linie). 


13. Vezi paragraful 2.5 al acestui capital, 
14. Vezi capitolul 3. 
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e Se creează indecşii obinşuiți („regulari”) pentru cheile străine cu numele Nrfact, 
Codpr și expresiile de indexare nrfact, codpr, indecşi care leagă tabela 
LINIIFACT cu tabelele-părinte PRODUSE şi FACTURI prin  indecșii 
corespunzători. Este de la sine înțeles (sperăm) că, înaintea construirii cheilor 
străine pentru tabela LINIIFACT, este obligatoriu să construim indecşii de legătură 
pe tabelele-părinte PRODUSE şi FACTURI, 

e Se creează indexul obişnuit (regular) cu numele Linie şi expresia de indexare 
atributul cu același nume — linie —, cu scopul de a spori viteza de procesare a 
înregistrărilor. 

e Toți indecşii creați se regăsesc în fişierul LINIIFACT.CDX. 


Cum construim indecşii complecși ? 

Pentru construirea indecşilor complecși, de multe ori este necesară convertirea valorilor 
atributelor în şiruri de caractere. Pentru cheile primare, această operaţiune este obligatorie. 
Avem aşadar următoarele situaţii: 

e Toate atributele care constituie indexul sunt de tip caracter — rezultă expresia de 

indexare : atributitatribut2+ ~... 

ə  Atributi este de tip numeric, atribut? de tip caracter, iar atribut3 de 

tip dată calendaristică etc... — rezultă expresia de indexare: 
STR (atribut) +ratribut2+DTOsS (atribut3), 


2.4.3. Probleme şi erori legate de indecşi 


Aportul indecşilor la buna funcţionare a unei aplicaţii este esențial. Acesta este şi 
motivul pentru care deteriorarea lor constituie o preocupare majoră a celor care răspund de 
buna funcţionare a software-ului dezvoltat în VFP. Din păcate, indecşii constiuie un 
adevărat călcâi („crăpat”) al lui Ahile. Motorul de bază de date Visual FoxPro nu 
actualizează întotdeauna la timp indecşii în pas cu actualizările efectuate în tabela de bază. 
Cu alte cuvinte, uneori indecşii „rămân în urmă” faţă de situația existentă la un moment dat 
în tabelă. 

Cea mai frecventă eroare legată de acest aspect, pe care o vom întâlni în practica de 
toate zilele, o regăsim în figura 2.22. 
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Iridex does not match the table; Delete the index file and: i 


re-cieate the index. 


Help- | 
Figura 2.22. Mesaj de eroare pentru un index „crăpat” 


Eroarea este cu atât mai apăsătoare cu cât de multe ori apare „din senin” şi nu permite 
nici măcar deschiderea tabelei în cauză. Negăsind, până acum, nici o explicație privind 
cauzele producerii acestei erori (oricum o regăsim mai des în aplicaţiile de mai mare 
amploare, cu un volum ridicat de tranzacţii pe o perioadă scurtă de timp), vom prezenta 
două modalități de tratare a acesteia, 
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Întrucât tabela GESTIUNI face parte din baza de date VINZARI, se poate recurge la 
următorii paşi: 

e în fereastra de comandă introducem secvenţa: 

OPEN DATABASE vinzari 

VALIDATE DATABASE RECOVER 

Această comandă verifică integritatea şi existența fizică pe disc (acolo 
a tuturor obiectelor bazei de date. În cazul în care un obiect este invalid 
refăcut automat, există posibilitatea ştergerii acestuia din containerul bazei de 
reconstruirii lui. În cazul nostru va apărea mesajul de eroare din figura 2.23: 


unde este cazul) 
şi nu poate fi 
date şi 


Fi 


107 (Table 'gestiunt)- Carn 
midatabasepestiuni. dbi. 


e to delete this obiect o 


Figura 2.23. Mesaj de eroare la validarea BD în cazul inconsistenţei unul index 


ə se apasă butonul Delete, care va şterge obiectul de tip tabelă GESTI UNI din 


containerul bazei de date (tabela rămâne pe disc, dar nu se mai află în baza de date); 

e se şterge de pe disc (fizic) fişierul GESTIUNI. CDX (fişierul index care nu Mai 
corespunde cu tabela). Atenţie, nu trebuie ștearsă tabela GESTIUNI.DBF; 

e în Project Manager, ne poziţionăm în zona tabelelor şi apăsăm butonul ADD, 
buton care adaugă în containerul bazei de date o tabelă aflată pe disc dar care hu 
este deja în baza de date (aşa-numitele tablele libere). În formularul de ciuțare 
deschis se alege GESTIUNI.DBE (figura 2.24); 


EJ Piciect M anaE Fapt ia d ae pei i st e ţi 


a E z] mt] era pe 
i a SR 
E locaati. dif 


e: Mator yea Foxi 
| tusa! 


Figura 2.24. Adăugarea unei tabele „libere” existente pe disc la containerul bazei de date 
e anterior Şi se 


e se reconstruiesc indecșii folosind una dintre modalităţile presentat le) 


refac restricțiile referențiale sau se creează/adaugă declansatoarele UNggeTe 
tabelei (figura 2.25). 
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Fes | indexes Labe: 


Name: pestrit 


Database” hiNdalabazelivinzaii dbe 


y Statistios ema - 


i Tabie He: Hidatabase\gasüuni dbi ui 
$ Recoder 3- 


| op del gerr] 


Figura 2.25. Adăugarea declanşatoarelor tabelei GESTIUNI în mod asistat 


A doua modalitate de remediere a situaţiei este utilizarea unei secvențe de comenzi 
specifice. Această metodă este mai mult decât recomandată în cazul unor aplicații 
finalizate şi furnizate clienţilor, deoarece nu necesită existența unei versiuni instalate de 
Visual FoxPro şi poate fi introdusă sub forma unei opţiuni în meniul aplicaţiei (sau într-un 
formular), pentru a fi accesată rapid de utilizator în caz de nevoie. Pentru cazul tabelei 
GESTIUNI, procedura o regăsim în listingul 2.1. 


Listing 2.1. Refacerea indecşilor tabelei GESTIUNI prin program 


OPEN DATABASE vinzari 

REMOVE TABLE gestiuni 

ERASE DATABASE/gestiuni.CDX 

ADD TABLE gestiuni A Pe „meta ala 

ALTER TABLE gestiuni ADD PRIMARY KEY gestiune TAG gestiune: 

ALTER TABLE gestiuni ADD FOREIGN KEY codpost TAG codpost REFERENCES localitati TAG 


codpost 
ALTER TABLE gestiuni ADD FOREIGN KEY cnp TAG cnp REFERENCES persoane TAG cnp 


** numai pentru cazu! în care avem nume de atribute mai lungi de 10 caractere, 
*!* prin scoaterea tabelei din baza de date tot ce depaseste 10 caractere 

*!* se pierde fiind necesara si o comanda de redenumire a atributelor: 

ALTER TABLE gestiuni RENAME COLUMN telefon_pt TO telefon_pitr 


** adaugarea declansatoarelor : f 
CREATE TRIGGER ON gestiuni FOR UPDATE AS trg_upd_gestiuni() 


CREATE TRIGGER ON gestiuni FOR DELETE AS trg_del_gestiuni() 
CREATE TRIGGER ON gestiuni FOR INSERT AS trg _ins_gestiuni() 
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2.5. Restricțiile declarate într-o bază de date VFP 


Pentru asigurarea integrității și coerenței bazei de date, precum şi pentru a facilita 
preluarea datelor, ceea ce înseamnă şi un spor de productivitate, în Visual FoxPro se pot 
declara diferite tipuri de restricții, ce decurg fie din regulile specifice modelului relațional, 
fie în urma aplicării anumitor reguli ce ţin de domeniul de implementare al aplicaţiei. Dacă 
în versiunile mai vechi ale FoxPro toate aceste reguli erau implementate exclusiv prin 
intermediul interfeței-utilizator, în Visual FoxPro le putem introduce direct în definiţia 
tabelei. Ca urmare, restricțiile vor fi memorate în dicţionarul bazei de date şi va fi 
Aira încălcarea lor chiar prin actualizări ce ocolesc interfața şi se execută direct pe o 
abelă, 

Tipurile de reguli ce pot fi definite astfel sunt: 3 

> restricții la nivel de atribut şi/sau înregistrare ce decurg din reguli specifice 

mediului de implementare a aplicaţiei; 

e restricții referenţiale ce decurg din modelul relaţional. 


2.5.1. Definirea restricţiilor la nivel de atribut şi înregistrare 


O regulă de validare la nivel de atribut sau înregistrare este o funcție care întoarce” o 
valoare logică, . T. (TRUE) sau . F. (FALSE). Dacă valoarea returnată este TRUE, atunci 
modificarea este operată în tabelă. Dacă este FALSE, se afişează un mesaj de avertizare, iar 
operațiunea prin care s-a încălcat restricția este anulată. 


Reguli la nivel de atribut 

Modulul de editare a structurii tabelei (Table Designer), pe lângă cele şase 
elemente care permit definirea atributelor acesteia, prezintă în jumătatea de jos a ferestrei 
alte două grupuri de opțiuni, Display şi Field validation. Display permite 
formatarea valorilor atributului la culegere şi afişarea pe ecran. Pentru acest punct al 
discuţiei interesează cel de-al doilea grup. Opţinea Rule permite definirea unei reguli de 
validare la nivel de atribut, în timp ce Message va indica ce mesaj apare pe ecran atunci 
când regula nu este respectată, Cea de-a treia opțiune, Default value, este utilă pentru 
specificarea valorii implicite a atributului, valoare care va „umple” câmpul respectiv la 
adăugarea unei noi înregistrări. 

Pentru tabela LINIIFACT se stabileşte o regulă de validare la nivelul atributului 


Linie, regulă ce nu va permite introducerea unor valori negative pe câmpul respectiv 
(figura 2.26), 


Atenţie! Pentru că fiecare atribut al tabelei poate avea propria regulă de validare, 
primul pas va fi poziţionarea pe câmpul căruia dorim să-i definim regula. 
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[Nu suni permise v. =: 
del. inie. rifece) 


i Erei comment: 


Figura 2.26. Stabilirea regulilor de validare la nivel de atribut 


Aşadar, la fiecare actualizare a atributului Linie se verifică dacă noua valoare este 
pozitivă, iar dacă nu, se afişează mesajul de avertizare Nu sunt permise valori negative pe 
acest câmp! şi se restabileşte automat situaţia inițială. Mesajul trebuie încadrat între 
ghilimele. 

În căsuţa de tip text Default Value din imaginea de mai sus avem o funcție- 
utilizator (def_linie_liniifact ()) stocată în dicționarul bazei de date (procedură 
stocată!5) care incrementează automat cu câte o unitate valoarea atributului Linie pentru 
fiecare linie nouă a aceluiaşi număr de factură. 


Notă. Valoarea implicită poate fi însă orice valoare care corespunde tipului atributului 
şi care nu încalcă regulile de validare. Dacă atributul este de tip caracter, şirul de 
caractere ce va constitui valoarea implicită (dacă nu folosim o funcţie) trebuie încadrat 
între ghilimele. 


Reguli la nivel de înregistrare 

Deseori, interesează nu numai valorile pe care le poate avea un atribut, dar și restricțiile 
ce privesc relațiile dintre două sau mai multe câmpuri ale aceleiaşi înregistrări. Revenind la 
tabela LINIIFACT, instituim următoarea regulă impusă de conducerea firmei: pentru 
produsul ce are codul 4, cantitatea ce poate apărea pe o factură nu trebuie să depăşească 300 
de unități. Specific acestei reguli este faptul că implică două câmpuri: atunci când 
cod_prod = 4,cantitate e musai <= 300. Cum pentru cuvântul-cheie „musai” nu 
există o clauză specială, în Visual FoxPro regula se scrie cu funcţia 11F (codpr=4 
„AND. cantitate>300, .F., .T.). Această expresie se introduce în cadrul de 
pagină Table al proiectantului de tabele (Table Designer), după cum se observă în 
figura 2.27. 


15. Vezi capitolul 6, paragraful 6.3. 


m aaa PEAR 
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Figura 2.27. Reguli (restricţii) la nivel de înregistrare 


Cadrul de pagină Table oferă informaţii generoase despre tabelă: numele bazei de date 
din care face parte, câte înregistrări conţine, câte atribute alcătuiesc tabela şi care este suma 
lungimilor acestora. Pentru declarea restricției la nivel de înregistrare, interesează grupul 
Record validation. În căsuţa de text Rule a fost introdusă funcția descrisă anterior, 
în timp ce pentru Message s-a specificat şirul de caractere: „Cantitate nepermisa pentru 
acest produs !!P., 

Figura 2.28 prezintă modul de comportament al tabelei la încălcarea secol ia nivel 
atribut şi la nivel înregistrare). 


i tapia] piere ga is 
Ntiael | Linie „Eos Cenitare! 


Figura 2.28. Mesajele de avertizare generate la încălcarea restricţiilor la nivel de atribut 
(stânga) şi la nivel de înregistrare (dreapta) 


Atenție! În momentul introducerii regulilor de validare, toate înregistrările introduse 
deja în tabelă (înainte de stabilirea regulilor) sunt verificate. Dacă măcar una încalcă 
restricțiile, regulile nu vor fi salvate în dicţionarul de date. Din acest motiv este bine ca 
acestea să fie definite înainte de a introduce înregistrări în tabele. 
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2.5.2. Legăturile permanente dintre tabele şi editarea restricțiilor referențiale 


După cum am văzut anterior (la începutul capitolului), construirea restricțiilor 
referențiale în Visual FoxPro se bazează pe indecşi. Din baza de date VINZARI luăm spre 
exemplificare tabela LOCALITATI, care este tabelă-copil pentru JUDETE şi părinte pentru 
PERSOANE, GESTIUNI şi CLIENTI. Restricţiile referenţiale se instituie astfel: 

e între tabelele JUDETE (părinte) şi LOCALITATI (copil) atributul de legătură este 

jud; . 
între tabelele LOCALITATI (părinte) şi PERSOANE, GESTIUNI,. CLIENTI 
(copii) atributul de legătură este codpost. 


Pentru stabilirea legăturilor permanente (suportul restricțiilor referențiale) este necesară, 
pe de o parte, crearea indecşilor primari în tabelele-părinte şi, pe de altă parte, crearea, în 
fiecare tabelă-copil, a câte unui index de tip Regular pentru fiecare dintre atributele de 
legătură ce constituie chei străine. Pentru simplificare, numele indecşilor „obişnuiţi” au 
același nume ca și cel al atributului din expresie. 

Cel mai simplu mod de creare a legăturilor permanente între tabele se realizează din 
proiectantul bazei (Database Designer) printr-o simplă „tragere” de mouse pornind 
de la numele indexului primar din tabela-părinte spre numele indexului „obişnuit” 
(regular) corespondent al tabelei-copil. Figura 2.29 ilustrează acest lucru. 


Figura 2.29. Crearea legăturilor permanente între tabele în mod asistat 


Linia ce uneşte tabelele JUDETE şi LOCALITATI este simplă „înspre” părinte şi 
„trifurcată” „înspre” copil (LOCALITATI). Această înseamnă că relaţia dintre cele două 
tabele este de tip one-to-many (una-la-mai multe). 


Atenție! Declararea legăturii permanente între tabele nu echivalează cu instituirea 
restricțiilor referenţiale! În VFP, stabilirea restricţiilor referenţiale presupune indicarea 
modului în care SGBD-ul va „reacţiona” la actualizarea tabelei-părinte și a celei copil. 


Pentru declararea regulilor de urmat într-o restricție referențială şi pentru a nu avea 
„surprize” neplăcute, se vor parcurge, în ordine, următorii paşi: | 
l. În fereastra de comandă se scrie şi se execută secvența de comenzi: 


CLOSE TABLES ALL x 
OPEN DATABASE vinzari.dbc EXCLUSIVE 


. MODIFY DATABASE ; i | | 

2. Cu Database Designer-ul deschis, se alege din meniul sistem opţiunea 
DATABASE-—CLEAN UP DATABASE, : 

3. Din acelaşi meniu se foloseşte opțiunea DATABASE—EDIT REFERENTIAL 

INTEGRITY, care va lansa formularul de editare a restrictiilor referențiale 


(figura 2.30) . - 


2 Refesential intemity Auddei: 


ules for Upang] Rules tor Deleting | Rules fór inseñing 


ch rile doyoù want to apply when the key value in the patent table is modified 


Qascade: updates ail Tetated'retorge.in ine child table wiih the new key valu 
7 Restict prohibits the:updatè în there ar rècords în the child table... 
„G ignăre: alowsthe'update ând lsaves related recorăs în the child tahie alone... < 


i Pareri Tabie „Child Table“ ; updale . Delete. “irisen |Pareni Tag = „iChidTag. . [a 


e locattati =. » illonore ignore jua t: pd 
clienti ignore |ignore cospost enapost 
_|persoane ignore ignore codposi jeesposi 
gastiuri ignore ignore endpost jeodpost kans 
perscierti 7 ignore cnp onp 
gestiuni lIgnere enp cnp 3 


Restrict 


Figura 2.30. Construirea restricţiilor referenţiale 


După cum se observă în figura 2.30, fiecare legătură permanentă declarată anterior între 
două tabele are o linie corespondentă în tabela de editare a restricţiilor referenţiale astfel: 
primele două coloane din stânga conţin numele tabelelor implicate în relație şi care dintre 
ele este părinte sau copil, ultimele două coloane conțin numele indecșilor de legătură, iar 
cele trei coloane din mijloc se referă la regulile instituite la inserarea, modificarea şi 
ştergerea de înregistrări în tabelele-părinte şi copil, operaţiuni care ar putea afecta 
integritatea referențială. Fiecare dintre celulele acestor trei coloane ascunde un obiect de tip 
listă derulantă din care putem alege opţiunile dorite. 
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Cele trei reguli pe care le putem defini se referă la : 

e modificarea cheii primare în tabela-părinte; 

e ştergerea unei înregistrări în tabela-părinte; 

e inserarea unei înregistrări sau modificarea valorii cheii străine în tabela-copil. 


În mod normal, conform modelului relațional, vom institui următoarele reguli: 

ə modificarea cheii primare în tabela-părinte trebuie să declanşeze modificarea auto- 
mată a vechilor valori ale cheilor străine din tabelele-copil (aşa-numita modificare 
în cascadă); 

e nu se pot şterge înregistrări din tabela-părinte dacă valorile cheii primare se 
regăsesc pe atributele ce constituie cheie străină în tabelele-copil; 

e nu se pot introduce, în tabelele-copil, valori ale atributelor-cheie străină care să nu 
se regăsească în atributele-cheie primară din tabela-părinte. 


Putem spune că toate cele trei reguli converg spre acelaşi scop comun şi anume: baza de 
date nu trebuie să permită să se ajungă în situația ca într-o tabelă-copil să existe valori pe 
atributele-cheie străină care să nu se regăsească pe atributele-cheie primară din tabela 
(tabelele) părinte. Figura 2.31 reflectă modul în care va arăta editorul restricţiilor referen- 
tiale după stabilirea regulilor: 


Figura 2.31. Editorul restricţiilor referențiale după stabilirea regulilor 


Practic, luând spre exemplificare tabela LOCALITATI, în modulul de editare a 
restricțiilor de integritate referenţială prezentat în figura 2.31 s-au instituit următoarele 
reguli: ; 

e modificarea valorii codului poştal în tabela LOCALITATI atrage modificarea în 
cascadă a tuturor liniilor-copil (linii în care atributul codpost avea valoarea 
dinaintea modificării) în tabelele CLIENTI, PERSOANE şi GESTIUNI; 

e modificarea valorii câmpului jud în tabela JUDETE atrage modificarea în 
cascadă a tuturor liniilor-copil în LOCALITATI; 

e nu se şterg linii din tabela LOCALITATI şi JUDETE dacă există linii-copil 
corespondente în tabelele CLIENTI, PERSOANE, GESTIUNI, respectiv 
LOCALITATI (copil al tabelei JUDETE); 
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ə nu se permite inserarea sau modificarea unei linii în tabelele CLIENTI, 
PERSOANE, GESTIUNI dacă valoarea cheii străine, codpost, nu există în 
tabela-părinte LOCALITATI; 

e nu se permite inserarea sau modificarea unei linii în tabela LOCALITATI dacă 
valoarea cheii străine, jud, nu există în tabela-părinte JUDETE. 


Nu mai rămâne decât de apăsat butonul OK, apoi să răspundem cu YES sau OK la cele 
două mesaje ce vor apărea înainte ca SGBD-ul să implementeze regulile respective şi, apoi, 
să testăm restricțiile generate. 

Mesajul universal de eroare pe care îl produce motorul bazei de date atunci când o 
restricție referenţială este încălcată este TRIGGER FAILED. Pentru a obține un comporta- 
ment mai „elegant” (mesajul de eroare să fie inteligibil utilizatorilor), există o altă moda- 
litate de implementare a restricţiilor referenţiale, modalitate tratată pe larg în capitolul 6. 


Figurile următoare reflectă testarea restricțiilor generate anterior. 


i 2 
Figura 2.32. Update-ul în cascadă (codul !aşiului : 6600 devine 0000) 


Figura 2.33. Mesaj de eroare la încercarea de a şterge o linie ce are linii-copil 
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Figura 2.34. Mesaj de eroare la încercarea de introducere pe atributul jua a unei valori 
(„XX”) ce nu se regăseşte în tabela-părinte JUDETE pe acelaşi atribut 


2,5.3. Valori implicite pentru atributele de tip cheie străină 


În lipsa buffering-ului (detaliat în capitolele 9 şi. 13), la inserarea unei linii în tabela- 
-copil se verifică dacă valorile atributei .-cheie străină se regăsesc în tabelele-părinte. Cum 
aceste valori sunt vide, se va afișa un mesaj de eroare de tipul Trigger failed. Cea 
mai neinspirată soluţie este de a introduce în toate tabelele-părinte câte o înregistrare vidă, 
drept corespondent al noilor valori introduse pe liniile-copil. i 

Mult mai inspirată este însă precizarea unor valori implicite pe care să le ia atributele- 
-copil la adăugarea unei linii noi în tabelele respective, valoare care sigur există în tabela-părinte 


şi care poate fi specificată prin sintaxa generală: 
numetabelă părinte.atribut_de_legătura (adică valoarea curentă de pe 


atributul de legătură din tabela-părinte'$). 


Atenţie! Această modalitate de tratare a valorilor implicite necesită obligatoriu 
deschiderea tabelei-părinte înainte de adăugarea de înregistrări în tabela-copil. 


Spre exemplu (figura 2.35), în cazul tabelei LINIIFACT (NrFact şi CodPr — chei 


străine) paşii sunt următorii: | 
+ se deschid tabelele PRODUSE şi FACTURI (prin comanda USE sau dublu-click 


pe fiecare tabelă în Database Designer); 

ə se lansează editorul structurii tabelei LINIIFACT (butonul Modify în Project 
Manager sau comanda MODIFY STRUCTURE); 

ə pentru câmpul NrFact (tabela LINIIFACT) se introduce în casuţa de text 
Default value: facturi.nrfact; 

e pentru câmpul CodPr în casuţa de text Default value se tastează 


produse.codpr 


16. Pentru detalii, vezi capitolul 3. 
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Figura 2.35. Valori implicite pe cheile străine 


aa a a nu se mută pointerul pe altă înregistrare a tabelei-părinte,. valoarea 
implicită în tabela-copil va fi întotdeauna aceeaşi, lucru ce poat i la încă 
. s .. s. . Š duce H i a 
unicității cheii primare. i P a aa 
De exemplu, dacă tabela LINIIFACT ar fi avut drept cheie primară combinatia 
o CodPr), la adăugarea celei de-a doua linii într-o factură, fără modificarea 
prealabilă a pointerului din FACTURI şi/sau PRODUSE înc icți 
al s-ar 
ea il 5 fi încălcat restricțtia de 
Pentru evitarea unor asemenea situații, există posibilitatea definirii, ca valoare implicită 
pe atributul în „cauză, a unei funcţii-utilizator care să întoarcă întotdeauna o valoare 
„Ccondiționată” (în cazul expus mai sus, un cod de produs care să nu existe deja pe factura 
curentă). Despre o asemenea funcţie însă, vom discuta în capitolul 6. 


2.5.4. Momentul activării restricțiilor unei baze de date 


Nu putem încheia prezentarea noastră din acest capitol fără să facem referire și la 
momentul declanșării diferitelor tipuri de validări (restricții) definite pentru o tabelă anume 
in acest sens, putem surprinde următoarele situaţii posibile: l 


RESTRICȚIE 
Tip Nivel 
Cheie primară/candidat 


Moment declanşare 


Inregistrare e adăugarea unei noi 
Înregistrări (chiar în 
momentul adăugării) 

e modificarea unei înregistrări 
(în momentul mutării 
pointerului pe altă 
înregistrare) 
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RESTRICȚIE 


Restricţie la nivel de 
atribut 


Restricție la nivel de Înregistrare 


înregistrare 


Restricţii referențiale Tabelă 


Declanşatoare (triggere) Tabelă 
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trecerea de la un atribut la 
altul (pe aceeași înregistrare 
sau pe înregistrări diferite), 
dar numai dacă s-a modificat 
valoarea pe câmpul 
restricționat 

modificarea unei înregistrări 
(în momentul mutării 
pointerului pe altă 


inserare, modificare, ştergere 
înregistrări (în momentul 


inserare, modificare, ştergere 

înregistrări (în momentul 

mutării pointerului pe altă 
gistrare) 


Capitolul 3 
Nucleul xBase. Actualizarea înregistrărilor 


După crearea structurii bazei de date urmează etapa de utilizare efectivă a acesteia: 
popularea tabelelor cu înregistrări, modificarea valorilor unor atribute, ştergerea liniilor 
inutile sau eronate. De multe ori, modificarea unei înregistrări necesită şi folosirea unui 
mecanism de acces rapid la respectiva linie. ' 


3.1. Zone de lucru. Deschiderea tabelelor bazei de date 
sau a tabelelor libere 


Accesul la înregistrările unei tabele Visual FoxPro, indiferent dacă este integrată într-o 
bază de date sau este independentă, se realizează prin intermediul unor structuri de 
memorie gestionate de SGBD. Acestea, deşi au un rol similar recordset-urilor din Access 
sau Visual Basic, se numesc zone de lucru. l 

În FoxPro, primele 25 de zone de lucru sunt identificabile prin litere (A...Z) sau cifre 
(1...25). După această limită rămâne doar identificatorul numeric. Aceste zone de lucru sunt 
iniţial libere (neocupate de seturile de înregistrări ale vreunei tabele) şi pot fi ocupate de 
tabele obişnuite VFP (care corespund unui fişier . dbf) ori de tabele temporare, tip cursor 
sau tabelă derivată (view). 

Prin urmare, pentru a lucra cu înregistrările unei tabele VEP (afişare, listare, modifi- 
care etc.), aceasta trebuie deschisă explicit. Astfel, tabelei deschise i se va asocia o zonă de 
lucru, care poate fi identificată fie prin numele ei, fie prin aliasul precizat în comanda USE: 


USE <nume tabelă> IN <zonă de lucru> ALIAS <alias> 


Dacă se omite clauza ALIAS, acesta va fi considerat implicit numele fişierului . dbf. 

Ce se întâmplă dacă se încearcă deschiderea unei tabele într-o zonă de lucru ocupată 
deja? Fără nici un mesaj de avertizare, sistemul închide tabela deschisă în zona respectivă 
şi deschide în locul ei noua tabelă. Acest comportament poate fi evitat prin folosirea clauzei 
IN şi o zonă de lucru liberă. Pentru a verifica dacă o zonă de lucru este liberă sau nu, 
folosim funcţia USED (), ce primeşte ca argument numele (aliasul) zonei de lucru în cauză. 
Dacă este liberă, funcția va întoarce valoarea .F. (False). Implementarea unui 
mecanism în scopul evitării suprascrierii unei zone de lucru ocupate deja ar presupune o 
structură de control repetitivă, în care să fie invocată funcția amintită mai sus cât timp 
aceasta ar întoarce valoarea .f. (False). Versiunile vizuale ale FoxPro vin însă cu un 
mecanism simplu şi elegant prin utilizarea clauzei IN cu valoarea 0 (zero), astfel încât 
sistemul va căuta singur prima zonă liberă: 


USE facturi IN 0 
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Ce se întâmplă dacă se încearcă deschiderea unei tabele deja deschise? De obicei, 
apare un mesaj de eroare File in use (Error 3). Totuşi, incluzând în comanda 
USE clauza AGAIN şi folosind eventual şi un alias diferit, putem deschide una şi aceeaşi 
tabelă în mai multe zone de lucru. De exemplu: 

USE facturi IN 1 

USE facturi IN 2 ALIAS fct AGAIN 

Orice actualizare a înregistrărilor uneia dintre instanțele tabelei va fi reflectată automat 
de toate celelalte instanțe deschise la un moment dat. Dacă nu se specifică un ALIAS, 
sistemul va alege singur unul care să nu se mai regăsească în nici una din zonele de lucru 
ocupate. 

Secvența de program din listingul 3.1 deschide tabela FACTURI, verificând mai întâi 
dacă aceasta nu este deschisă deja. Dacă este deschisă, afişează un mesaj” utilizatorului și, 
în funcţie de răspunsul acestuia, o deschide din nou sau nu, 


Listing 3.1. Deschiderea unei tabele 


IF '!USED('Facturi') 

USE Facturi IN 0- 
ELSE 
a = MESSAGEBOX("Tabela FACTURI este deja deschisâ." +; 

"Doriti sa o mai deschideti odata intr-o alta zona de lucru r, 4+32+256, "Confirmare”) 
IFa=7 

USE Facturi IN O ALIAS Facturi_2 
ENDIF 
ENDIF 


Modalitatea standard de verificare vizuală a tabelelor deschise la un moment dat într-o 
sesiune de lucru Visual FoxPro constă în selectarea opțiunii din meniul sistem: 
WINDOW-—DATASESION sau utilizarea comenzii SET în fereastra de comandă (figura 3.1). 


Figura 3.1. Tabelele deschise în sesiunea curentă 


Deschiderea unei tabele nu este suficientă pentru a avea acces la înregistrările acesteia. 
Dintre toate zonele de lucru, cea asupra căreia au incidență directă comenzi simple ca 
DISPLAY, BROWSE, REPLACE se numește zona de lucru curentă. Prin urmare, următorul 
pas este selectarea zonei în care este deschisă tabela vizată, zonă care va deveni astfel 


curentă (în figura 3.1, zona curentă este Facturi _2). 


17. Vezi parametrii funcţiei MESSAGEBOX () în documentaţia YFP, 
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De exemplu: 
SELECT 1 sau SELECT taana 
LIST 


Selectarea unei zone prin comenzi se reflectă automat în Data Sesion şi invers. Ordinea 
tabelelor în Data Sesion este cea alfabetică şi nu ordinea în care au fost deschise. 

Din acest moment ne vom referi la tabela deschisă în zona curentă de lucru prin 
sintagma tabelă curentă. 

Dacă -nu se cunoşte exact numele tabel lei care urmează a fi deschise, sau pur și simplu 
nu se găseşte în directorul curent (vezi parametrul Default Directory din 
Tools—Options—Filelocations) sau în căile de căutare alternative (vezi 
parametrul Search Path din acelaşi submeniu), atunci se poate invoca comanda USE 
folosind în locul numelui tabelei caracterul „?”: 

USE ? IN Q 

Se va deschide astfel o fereastră de dialog în care sunt afişate tabelele din baza de date 
curentă (dacă este deschisă) sau o fereastră tip Open (care se deschide şi din butonul 
<Other..> al dialogului anterior). Se poate naviga astfel până în directorul în care se 
găseşte fişierul corespunzător tabelei respective: 


ai usure 


“HEI OCALITATI.DBE 
produce. 
“More n (PXETORIDBE EI = 
Faina ip: 
Ao Tums psow 


ep 
n că A 


~ F Excurve ` , ` | 


Figura 3.1 bis. Dialog pentru deschiderea unei tabele 


Rezultă aşadar că procedura de deschidere a unei tabele independente este ușor diferită 
de cea pentru o tabelă inclusă în baza de date. Dacă se procedează absolut „disciplinat”, 
pentru o tabelă „legată”, ar trebui deschisă mai întâi baza de date printr-o comandă OPEN 
DATABASE și apoi deschisă şi tabela: 

OPEN DATA vinzari 

USE facturi IN 0 


Deschiderea tabelei din baza de date printr-o comandă USE implică deschiderea 
automată a bazei de date dacă fişierul ce corespunde dicționarului bazei de date (fişier. 
dbc) se găseşte pe calea implicită de căutare. 
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Folosind Project Manager-ul, o tabelă poate fi deschisă astfel: 
e dacă este vorba despre o tabelă inclusă în baza de date: 

1. selectarea nodului Data sau a paginii Data; 

2.  expandarea nodului Database; 

3 


expandarea nodului corespunzător bazei de date în care se află tabela (de 
exemplu, VINZARI); 


expandarea nodului Tables; 
selectarea tabelei vizate şi click pe butonul Browse sau Modify care, 
înainte de afişarea ferestrei Browse sau Modify Structure, deschide 
şi tabela în prima zonă liberă. 
e dacă este vorba despre o tabelă independentă: 

1. selectarea nodului Data sau a paginii Data; 

2.  expandarea nodului Free Tables; 

3. selectarea tabelei vizate şi click pe butonul Browse sau Modify. 


v A 


Er Databases 
HED E vinzari 

EE Tables 

i B o cieni 
HE O facturi 
-E O gestiuni 
m-i Q incasari 

1E O incaslact 

Ei 


ij © judete 
2 inilact 
i ocaitati 
aE O perchent 
-E O persoane 
P-E O produse 
i mE Otest_mule 
E FA Local Views 


escription:. ; i A 
ath; k:NdatabaseNlocalitati. dt 


f 
D 
IP 


Figura 3.2. Deschiderea unei tabele din Project Manager 


3.2. Noţiunea de pointer sau înregistrare curentă. Navigare 


În Visual FoxPro, înregistrarea, din setul de înregistrări al unei tabele deschise, care este 


afectată direct printr-o comandă simplă gen DISPLAY, se numeşte înregistrare curentă — 
sau, altfel spus, pointerul tabelei indică înregistrarea curentă. Într-o fereastră tip 


N 
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BROWSE, înregistrarea curentă este scoasă în evidență printr-un marcaj specific (vezi 
figura 3.3): 


Pointerul 
înregistrării 
curente 


Figura 3.3. Pointerul înregistrării curente 


Important! Valoarea unui anumit câmp de pe înregistrarea curentă se obține 
utilizând sintaxa generală: Numetabelă . Câmp. Spre exemplu, conform figurii 3.3, 
afişarea codului clientului de pe înregistrarea curentă se poate face astfel: 

? Facturi.Codcl 

sau 

MESSAGEBOX (STR (Facturi. Cogcl)) 


Schimbarea sau mutarea pointerului de înregistrare se poate face prin comenzi de 


repoziţionare directă cum sunt GO, GOTO, SKIP sau prin repoziționare indirectă folosind 
comanda LOCATE, SEEK sau funcția SEEK () . 


Sintaxa comenzii GO sau GOTO poate fi redată astfel: 
GOTO [RECORD] număr înregistrare 

[IN zonă de _ lucru | IN alias tabelă] 
sau 


GOTO TOP | BOTTOM [IN zonă de_ lucru | IN alias tabelă] 

Astfel: 

e dacă se încearcă mutarea pointerului tabelei pe înregistrarea cu numărul 3 (în 
fişierul corespunzător de pe disc, .abf, înregistrările au asociat un număr de 
identificare unic, alocat fizic în ordinea în care au fost introduse), se procedează 
ca în listing 3.2. 


Listing 3.2. Poziționarea directă pe altă înregistrare 


USE FACTURI IN 0 
SELECT FACTURI 
GO RECORD 3 

eieh Sau 

Ga? 3 
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Precizare. Numărul intern al fiecărei înregistrări poate fi obținut cu ajutorul funcției 
RECNO (), iar numărul total de înregistrări al unei tabele, cu funcţia RECCOUNT (). 


e dacă se doreşte a se ajunge pe prima înregistrare indiferent unde este plasat 
pointerul tabelei, se procedează astfel: GO TOP 

ə dacă se dorește deplasarea pointerului tabelei pe ultima înregistrare, este necesară 
comanda: GO BOTTOM 


Sintaza comenzii SKIP poate fi redată astfel: 


SKIP [număr de înregistrări] [IN zonă de lucru | IN alias_tabelă] 

Ca urmare: ! 

e dacă se doreşte deplasarea înainte peste 3 înregistrări, comanda SKIP va fi 
invocată astfel: 


SKIP 3 

e dacă se doreşte deplasarea înapoi cu 2 înregistrări, va trebui procedat în felul 
următor: : 

SKIP: =2 


Dacă se doreşte să se afle numărul înregistrării curente după ce s-au făcut mai multe 
manevre de repoziţionare, se poate folosi funcţia RECNO (): 


?RECNO 4) 
De asemenea, deplasarea într-o tabelă se poate face şi în mod asistat, folosind opțiunile 
din meniul Table (vezi figura 3.4): . 


Uitima inreg. echiv. GO BOTTOM ] 


if Urmatoarea inreg. echiv. SKIP 1 | 
— Precedenta înreg. echiv. SKIP -4 | 


Figura 3.4. Poziționarea în mod asistat în tabela curentă 


Există situaţii în care prin manevre de repoziționare, pointerul înregistrării curente ar 

putea să depăşească domeniul de înregistrări. De exemplu: 

e tabela conţine 10 înregistrări şi se execută o comandă SKIP 30. Ca urmare, 
pointerul tabelei este trimis într-o zonă aflată dincolo de limita numărului de 
înregistrări, şi anume în zona end of file (adică după ultima înregistrare). Pentru a 
se verifica acest lucru se poate utiliza funcţia EOF (): dacă se obține valoare 
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.T. (True) înseamnă că s-a depăşit numărul de înregistrări, dacă se obţine 
valoare .F. (False) înseamnă că pointerul tabelei se găseşte undeva pe o anume 
înregistrare; 

ə tabela conţine 15 înregistrări şi se execută o comandă SKIP -17. Ca urmare, 
pointerul tabelei este trimis într-o zonă aflată dincolo de limita numărului de 
înregistrări, şi anume în zona begin of file (adică înainte de prima înregistrare). 
Pentru a se verifica acest lucru, se poate testa funcția BOF (): dacă se obține 
valoare .T. (True) înseamnă că s-a depăşit numărul de înregistrări, dacă se 
obţine valoare .F. (False) înseamnă că pointerul tabelei se găseşte undeva pe o 
anumită înregistrare a tabelei, 


Toate înregistrările 
tabelei FACTURI 


Figura 3.5. Zonele în afara domeniului de înregistrări 


3.3. Acces la înregistrări în modul indexat şi neindexat 


Deplasarea pointerului într-o tabelă se poate face și prin localizarea înregistrărilor după 
o anumită condiţie. Una dintre comenzile cu care se poate realiza acest lucru este LOCATE, 
care parcurge tabela, înregistrare cu înregistrare, până o găseşte pe prima care îndeplineşte 
condiția şi se poziţionează pe ea. Comanda are următoarea sintaxă: 


LOCATE FOR <expresie logicăl> [<domeniu>] 
[WHILE <expresie logică2>] INOOPTIMIZE] 


De exemplu, pentru a se localiza facturile din data de 8 august 2001, se poate proceda 
astfel: 


Listing 3.3. Căutare valori folosind LOCATE 


USE Facturi IN 9 
SELECT Facturi 
SET DATE TO DMY 
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LOCATE FOR DataFact = (01/08/2001) && data calendaristică se specifică între {} şi trebuie 
&& respectat formatul specificat prin SET DATE 


?FOUNDQ 
DISPLAY 
CONTINUE 
?FOUND() 
DISPLAY 


Funcţia FOUND () întoarce valoarea de adevăr .T. (True) dacă ultima căutare a avut 
succes. Dacă ultima căutare nu a avut succes (funcţia a întors valoarea .F.), atunci 
pointerul tabelei se află întotdeauna în zona EOF. 

Comanda CONTINUE declanşează o nouă secvență de căutare, de la înregistrarea pe 
care s-a plasat pointerul tabelei ca urmare a ultimei comenzi LOCATE spre sfârşitul 
fişierului. 

Comanda DISPLAY afişează înregistrarea curentă, 

În modul asistat, acelaşi lucru poate fi realizat (bineînţeles, pentru tabela curentă) 
folosind opţiunea de meniu Table—Go to record-Locate (vezi figura 3.6). 


: Recall Records:, 
Reinove Deleted Records 


j 
Figura 3.6. Localizarea unei înregistrări după o expresie, în modul asistat 


Căutarea unei înregistrări folosind comanda LOCATE este destul de flexibilă în ceea ce 
priveşte criteriul specificat prin clauza FOR, însă pentru tabele mai „voluminoase” (câteva 
mii de înregistrări) se poate dovedi destul de anevoioasă. Acest fapt se datorează modului 
de parcurgere secvenţială a înregistrărilor care generează performanţe slabe în ceea ce 
priveşte timpii de execuție. 

De obicei, în mai toate SGBD-urile relațional e, ameliorarea vitezei de acces la 
înregistrările unei tabele se face pe baza indecşilor. În Visual FoxPro, comanda SEEK 
reprezintă o alternativă de căutare care invocă indecşii. De asemenea, se poate utiliza 
funcția SEEK (). Prin urmare, pentru a efectua o astfel de operațiune, indexul care va fi 
invocat trebuie să existe, să fie deschis şi să fie curent. În cazul indecşilor compuşi 
structurali (cel mai des utilizaţi în VFP), aceştia se deschid o dată cu tabela pentru care sunt 
definiţi, urmând a fi realizată doar activarea cheii corespunzătoare. Activarea indexului 
dorit se realizează de obicei cu ajutorul comenzii SET ORDER TO numeindex. Ca şi 
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comanda LOCATE, SEEK se va poziționa pe primu înregistrare care îndeplineşte 
condiţia, dar căutarea se realizează în fişierul ce conține indecşii (. cax) şi nu în tabelă. 


Sintaxa comenzii SEEK arată cam în felul următor: 
SEEK <expresie> 
[ORDER <expN> | <fişier.iax>] 
| [TAG <nume cheie> [OF <fişier.cdx>] 
[ASCENDING | DESCENDING] ] 
[IN <zonă de lucru> | <alias>] 

Să considerăm tabela FACTURI care are definiți indecşii NRFACT după câmpul 
nrfact, CODCL după câmpul codcl şi GESTIUNE după câmpul gestiune (vezi 
capitolul 2 pentru structura şi înregistrările tabelelor). Pentru 1 localizarea primei facturi a 
clientului ce are codul 1004 se poate proceda astfel: 

e Se deschide tabela şi se activează cheia corespunzătoare 


USE facturi IN 0 ORDER TAG coacl 
SELECT facturi 

sau 

USE facturi IN 0 

SELECT facturi 

SET ORDER TO TAG codel 


e Se caută prima factură a clientului 1004 

SEEK 1004 

e Dacă a avut succes căutarea, se afişează înregistrarea curentă (DISPLAY) sau se 
deschide tabela în mod Browse (comanda BROWSE) şi se urmăreşte poziţia 
pointerului de înregistrare: 


? FOUND () 
BROWSE 


In cazul în care cheia de căutare nu este activată, comanda SEEK ar trebui folosită în 
felul următor: 


SEEK 1004 ORDER TAG coacl 

Există anumite probleme legate de exactitatea şirului căutat. De exemplu, să 
presupunem că în tabela CLIENTI există cheia (tag-ul) DENCL după câmpul dencl, Însă 
anumiți clienți sunt consemnați ca 'SRL, 'SA”, iar unii nu au nici o astfel de precizare la 
sfârşitul numelui. Dorim să localizăm înregistrarea clientului "Client 4, dar nu ştim nici 
dacă este consemnat ca societate pe acțiuni ("Client 4 SA”), nici ca societate cu răspundere 
limitată Client 4 SRL”). Prin urmare, căutăm o valoare asemănătoare, fără să ştim dacă 
va fi similară sau identică cu şirul de căutare. În cazul în care opțiunea de mediu’? SET 
EXACT este ON, atunci e foarte posibil să nu avem succes dacă numele clientului căutat este 
"Client 4 SRL” sau "Client 4 SA”. În astfel de cazuri este preferabil ca SET EXACT să fie 


OFF, iar SET NEAR -— ON. Interpretarea rezultatului unei asemenea căutări este explicată în 
tabelul 3.1. 


18. Vezi capitolul }, pentru comenzile de tip SET. F 


Visual FoxPro 


gi: 


Tabelul 3.1. Interpretarea rezultatului căutării după o cheie indexată 


Rezultatul căutării 
A fost găsită o înregistrare cu o valoare identică cu cea a 


şirului de căutare 

Nu s-a găsit nici o înregistrare identică, însă pointerul 
tabelei se găseşte pe o înregistrare cu o valoare 
comparabilă — valoarea căutată este un subşir al valorii 
curente 


găsit nici o valoare asemănătoare sau identică 


Funcţia SEEK() are o funcționalitate asemănătoare, adică va trimite pointerul de 
înregistrarea ce conţine valoarea căutată şi va returna: 

e T. (True) dacă găseşte o valoare identică; 

e  .F. (False) dacă nu găseşte o valoare identică. 

Sintaxa acestei funcţii este următoarea; 

SEEK (<expresie> |, <zonă de lucru> | «alias tabelă> 
[, <expN> | <fişier.idx> | <nume cheie>])) 
Pentru exemplele anterioare, alternativa cu funcția SEEK () ar fi următoarea: 


? SEEK(1004, "FACTURI!, "'CODCL!) 
BROWSE 

sau, i 

? SEEK("Client 51, ‘CLIENTI’, "DENCL') 
DISPLAY 


Trebuie să precizăm faptul că funcția SEEK() (sau comanda corespunzătoare) 
constituie întotdeauna cea mai bună alternativă pentru verificarea existenței unei valori 
anume într-o tabelă datorită vitezei sporite de execuție. 


3.4. Adăugarea şi editarea înregistrărilor folosind 
modul asistat şi comenzi xBase 
Editarea înregistrărilor bazei de date poate fi realizată în două moduri: 


e Modul de lucru asistat (cu ajutorul interfeţei furnizate de SGBD); 
e Modul de lucru comandă (prin utilizarea comenzilor specifice, xBase sau SQL). 


3.4.1. Editarea înregistrărilor în mod asistat 


Operaţiunea de actualizare presupune mai întâi deschiderea tabelei şi selectarea ei ca 
tabelă curentă (eventual deschiderea în mod Browse) şi apoi utilizarea. opțiunilor 
submeniului sistem: TABLE (figura 3.7). 
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Figura 3.7. Opțiunile submeniului TABLE pentru actualizarea înregistrărilor 
tabelei curente în mod asistat 


ai pentru adăugarea noilor înregistrări într-o tabelă folosim opțiunile 1 şi 3 
astfel: i i 
Opţiunea 1, Append New Record, adaugă o linie (înregistrare) nouă în tabela 
curentă. Combinația de taste Ct.r1+Y (ca modalitate de apelare directă a opțiunii) este cea 
mai utilizată metodă de adăugare de înregistrări în mod interactiv. Nu trebuie să uităm că, 
pentru tabelele-copil, este absolut necesară definirea valorilor implicite pentru atributele 
care constituie chei străine (vezi capitolul 2). l 
Append Records... (opțiunea 3) — permite adăugarea „în bloc” a unor înregistrări 
noi din alte tabele (cu aceeași structură) sau din fişiere de alt tip (text, Excel, Paradox etc.). 
Bineînțeles că noile înregistrări trebuie să îndeplinească toate condiţiile impuse de 
restricțiile definite pentru tabela respectivă. 
În ceea ce priveşte adăugarea de înregistrări din alte tipuri de fişiere, vom insista asupra 
preluării de date din fişiere de tip Excel şi de tip text, care trebuie să îndeplinească anumite 
condiţii, după cum urmează: 
e în cazul fişierelor Excel (figura 3.8), datele trebuie aranjate în foaia de calcul 
incepând obligatoriu cu prima coloană (A), fără antet (titlul coloanelor), SGBD-ul 
preluându-le în tabela curentă în ordinea în care apar, de la stânga la dreapta; 
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Tipul de fisier importat 


Localizarea fisierului 


Foaia de calcul în care 
se regasesc datele 


Figura 3.9. Utilizarea opțiunii APPEND RECORDS... pentru adăugare de noi înregistrări 
(în tabela JUDETE) importate dintr-o foaie de calcul Excel 


e în cazul fişierelor de tip text (figura 3.10) avem nevoie de un delimitator al coloanelor, 
delimitator care poate fi marcajul TAB sau orice alt caracter care nu se regăseşte şi 
în secvențele de text ce vor fi importate. Spre exemplificare, vom considera virgula 
ca delimitator de câmpuri în fişierul Judete_noi.txt (figura 3.11). 


Bihor „Ardeal 
{CS ,„Caras-Severin,Banat 


Figura 3.10. Fişier text ce urmează a fi importat în tabela JUDETE 
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Detimitatorul de campuri 


(în cazul nostru = virgula} 


Figura 3.11. Utilizarea opțiunii APPEND RECORDS... pentru adăugare de noi înregistrări 
(în tabela JUDETE) importate din fişierul text Judete_noi. tat 


Pentru modificarea înregistrărilor unei tabele avem opțiunea 7 (conform figurii 3.7): 
REPLACE FIELD.. Aceasta oferă utilizatorului posibilitatea de a specifica atributul 
(câmpul) ce va fi modificat, valoarea nouă ce va înlocui valorile curente ale câmpului 
respectiv, precum și înregistrările ce vor fi afectate de modificare (figura 3.12). 


Câmpul ce urmează a fi modificat 


a a Expresia ce va întozui valorile 


atributului selectat 


] Ex. a FE Haa n IRI zona de criterii pnuu stabilirea 


înregistrărilor ce vor Îi modificate ` 


Figura 3.12, Modificarea valorilor atributelor în mod asistat 


În ceea ce priveşte zona de criterii, facem următoarele precizări general valabile atât 
pentru operațiuni de modificare, cât şi pentru operațiuni de ştergere, fie că se realizează în 
mod comandă sau asistat: 


Clauza SCOPE determină scopul actualizării (care înregistrări vor fi afectate de 
modificare) şi poate avea următoarele valori: 

- All — toate înregistrările tabelei ; 

- Next — următoarele n înregistrări începând cu poziţia curentă a pointerului ; 

-~ Record- doar înregistrarea specificată prin numărul ei ; 

~ Rest — restul înregistrărilor pornind din poziţia curentă a cursorului. 


Clauza FOR permite specificarea unei condiții astfel încât numai înregistrările ce o 
îndeplinesc vor fi afectate de modificare 


Clauza WHILE permite şi specificarea unei condiții atfel încât modificarea va avea loc 
atât timp cât înregistrările îndeplinesc respectiva condiție, parcurgându-se tabela de sus în 
jos, din poziţia curentă a pointerului. La prima înregistrare care nu mai îndeplineşte condiţia 
dată, actualizarea este oprită. 
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Pentru cazul luat drept exemplu în figura 3.12, rezultatul se concretizează în trans- 
formarea în litere mari a numelor județelor din Moldova (figura 3.13). 


Figura 3.13. Tabela JUDETE actualizată 


În sfârşit, ştergerea înregistrărilor în Visual FoxPro presupune parcurgerea, în ordine, 
a două faze: ştergerea logică şi ştergerea fizică sau anularea marcajelor de ştergere. Astfel: 


Ștergere logică E: reprezintă primul pas în ştergerea înregistrărilor şi determină 
apariția unui marcaj în dreptul înregistrării în cauză (figura 3.14). În cadrul acestui 
pas are loc şi declanşarea triggerelor sau a restricțiilor referențiale care vor valida 
sau nu operația de ştergere. Utilizăm aici opțiunile 2 şi 4 (figura 3.7) — Toggle 
Deletion Mark (pentru înregistrarea curentă) şi Delete Records (pentru 
marcarea mai multor înregistrări conform unei scheme) ~ sau pur şi simplu dăm un 
click de mouse (valabil numai pentru tabela dechisă în mod Browse) în zona 
marcajului de ştergere din dreptul înregistrării pe care dorim să o ştergem. 


Stergere fizică — determină îndepărtarea - iremediabilă a înregistrărilor marcate 
pentru ştergere şi se poate realiza cu opţiunea 6 (Remove Deleted Records). 
Acest pas necesită deschiderea tabelei în mod exclusiv (pentru lămuriri asupra 
lucrului în rețea, vezi capitolul 13), operaţiunea nefiind posibilă pe o tabelă 
deschisă în mod partajat. 

Anularea marcajelor de ştergere ar putea constitui un pas alternativ al ştergerii 


definitive și se realizează fie utilizând opțiunea 5 (Recall Records...), fie 
printr-un click de mouse pe marcajul de ştergere al înregistrării în cauză, 
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marcaj de ştergere logică 


Figura 3.14. Ştergerea logică a înregistrărilor 


3.4.2. Comenzi xBase pentru actualizarea directă a înregistrărilor 


Toate operațiunile de actualizare despre care am discutat până acum pot fi realizate, 
bineînțeles, şi prin comenzi specifice FoxPro sau instrucțiuni SQL (despre care vom discuta 
în capitolul 5). 

Astfel, pentru adăgare de înregistrări utilizăm comanda generală APPEND, care 
deschide o fereastră ce conține câmpurile tabelei curente pentru adăugarea unei înregistrări 
noi; apoi APPEND BLANK — adaugă o înregistrare vidă (toate câmpurile vor avea valori 
vide, mai puțin cele care au definite valori implicite). 

Extrem de utilă pentru importul de date (vezi şi capitolul 4) este comanda APPEND 
FROM, asupra căreia insistăm doar în privința următoarelor aspecte: 


APPEND FROM <nume_tabela.dbf> — adaugă în tabela curentă înre- 
gistrările din tabela specificată. Tabela din care adăugăm trebuie să aibă aceleași 
câmpuri (mai ales ca nume), dar nu neapărat în aceeași ordine. Atributele care nu se 
potrivesc după nume sau tip sunt ignorate; 

APPEND FROM. ARRAY <nume _tablou> — adaugă elementele unui tablou (în 
general o matrice) î în tabela curentă, în ordinea naturală a coloanelor și liniilor; 
APPEND FROM DBF(„nume cursor“) — adaugă în tabela curentă înre- 
gistrările din cursorul (tabelă temporară) specificat. De asemenea, câmpurile ce nu 
se potrivesc după nume şi/sau tip sunt ignorate. 


Trebuie menționat aici un aspect foarte important în ceea ce priveşte adăugarea de 
înregistrări noi, şi anume: câmpurile de tip general (pentru imagini, sunete etc.). Singura 
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modalitate de inserare a unei imagini pe un astfel de câmp este utilizarea comenzii APPEND 
GENERAL, după ce ne-am poziționat pe înregistrarea dorită, cu sintaxa: 


APPEND GENERAL NumeAtributTipGenera!l | FROM numefişier |] 
( LINK ] 


Utilizarea clauzei LINK determină crearea numai a unei legături între fişier şi înre- 
gistrarea curentă, fără a genera inserarea efectivă a obiectului în tabelă. Este recomandată 
această modalitate de lucru pentru că nu duce la sporirea excesivă a dimensiunilor tabelei, 
pe de o parte, iar pe de altă parte, nu necesită operaţiuni de actualizare ulterioare în cazul în 
care fişierul-sursă se modifică. 

Spre exemplu, pentru inserarea unei imagini în tabela PRODUSE pe câmpul general 
Imagine pentru produsul 2 din categoaria bere vom proceda astfel (figura 3.15): 

ə deschidem tabela în modul Browse şi ne poziționăm pe înregistrarea a doua; 

e pornind de la presupunerea că imaginea dorită se află în subdirectorul „Imagini”, 

introducem în fereastra de comandă secvenţa: 

APPEND GENERAL Imagine FROM imagini Nbergman. gif LINK 

După cum se observă, nu am utilizat calea completă spre fişierul bergman. gif 
presupunând că directorul Imagini este subdirector al directorului principal 
Aplicatie_v_ fox, iar comanda SET DEFAULT TO D:\APLICATIE v_FOX a 
fost utilizată anterior. 

Pentru ştergerea unui obiect dintr-un câmp general folosim: 

APPEND GENERAL NumeAtributGeneral, fără nici un alt parametru: 


Figura 3.15. Adăugarea unui obiect (imagine în cazul de față) într-un câmp general 
şi vizualizarea lui 


`- Pentru modificarea înregistrărilor bazei de date utilizăm comanda: 
REPLACE NumeCâmp WITH Expresie 
[Scop] [FOR Conaitiel)] [WHILE Conaitie2] 
care determină înlocuirea valorilor atributului specificat (din tabela curentă) cu noile 
valori, pentru toate înregistrările specificate prin clauzele Scope, For şi While, 
Utilizarea fără nici una din clauze duce la modificarea înregistrării curente. Spre exemplu, 
actualizarea datei tuturor facturilor trimise clientului 7007 poate fi realizată astfel: 
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SET DATE TO DMY 
REPLACE Datafact WITH CTOD'?(,„01/09/2000”) FOR codcl=1001 


Pentru ştergerea înregistrărilor utilizăm, în general, un grup de comenzi datorită 
modului specific de ştergere în două faze despre care am discutat mai sus (ştergerea logică . 
şi fizică): . E FE: 

DELETE (Scop) [FOR Conditie]l] [WHILE Conditie2] — marchează 
pentru ştergere (ştergere logică) înregistrarea curentă din tabela curentă sau înregistrările 
specificate prin scop şi/sau care îndeplinesc condiţiile din clauzele For sau while; 

Înregistrările marcate pentru ștergere pot fi sau nu vizibile (spre ex.: într-o fereastră 
Browse), în funcţie de starea comenzii SET DELETED, astfel: sa 

SET DELETED ON — înregistrările marcate pentru ştergere nu sunt vizibile şi nici 
accesibile anumitor tipuri de comenzi specifice YFP; 

SET DELETED OFF — înregistrările marcate pentru ştergere sunt vizibile şi castile 

Indecşii primari iau în considerare („văd”) înregistrările marcate pentru ştergere 
indiferent de setarea comenzii de mai sus. Nu aceluşi lucru este valabil peniru 
instrucțiunile SQL. 

PACK ~ șterge definitiv (fizic) enei marcate pentru Gt din abai curentă. 
Nu poate fi utilizat în cazul tabelelor deschise în mod partajat (Shared). sau în 
tranzacții. 

RECALL [Scop] [FOR Conditiel] [WHILE Conditie2] - anulează 
marcajul de ştergere pentru înregistrarea. curentă din tabela curentă sau înregistrările 
specificate prin scop şi/sau care îndeplinesc condițiile din clauzele For sau While; 


19. CTOD ('şir caractere!) - transformă şirul de caractere în format de tip dată calendaristică. irul 
trebuie să respecte formatul curent al datei (SET DATE TO DMY). 
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Pe lângă motorul de baze de date, Visual FoxPro oferă un limbaj de programare propriu 
destul de puternic, ce îmbină perfect stilul de programare clasic (procedural) cu 
programarea orientată-obiect, oferind suficiente instrumente de dezvoltare rapidă a unor 
aplicaţii puternice şi flexibile. În acest capitol vom prezenta modelul de programare 
structurată, urmând ca în capitolul !! să abordăm caracteristicile programării orientate- 
obiect. 


4.1. Scurtă introducere în teoria programării 


Programarea calculatoarelor este o disciplină destul de nouă, dar suportul său matematic 
este ceva mai vechi. În teoria programării calculatoarelor se specifică mai mulți paşi în 
crearea unui program care să rezolve o anumită problemă. Aceşti paşi merg de la formu- 
larea şi specificarea problemei la definirea unei soluții, la implementare, testare și docu- 
mentare şi, în fine, la evaluarea soluţiei. Dacă anumite aspecte ale problemei desprinse din 
analiza problemei se pot reprezenta formal, este bine să se procedeze astfel, deoarece o 
problemă, o dată formalizată, este maj uşor de analizat prin prisma existenței unui mod de 
rezolvare (în cazul nostru, acest mod de rezolvare se concretizează în programul informatic). 

Dacă problema noastră are un model matematic, pasul următor constă în găsirea soluţiei 
sub forma algoritmului. Vom spune, pe scurt, că un algoritm este o suită bine definită de 
instrucțiuni „Clare” care se pot executa „cu o cantitate finită de efort şi într-o perioadă finită 
de timp” şi care „duc întotdeauna la obținerea unui rezultat”. 

În tehnica programării calculatoarelor, algoritmul acţionează întotdeauna asupra unor 
date de intrare, ducând la obținerea datelor de ieșire. Într-un algoritm, aceste date se împart 
în variabile şi constante, după modul în care îşi modifică sau nu valoarea pe parcursul 
execuţiei algoritmului. Dacă datele de intrare sunt numerice, atunci prelucrările pe care le 
va realiza algoritmul sunt prelucrări numerice; dacă e vorba de texte, prelucrările vor fi 
simbolice. Cât despre instrucțiune, aceasta este o operaţie care, cel puţin teoretic, nu poate 
fi descompusă în operaţii de nivel mai mic fără a-și pierde sensul. Astfel, adunarea nu poate 
fi descompusă, dar înmulţirea poate fi considerată o suită de adunări repetate. Practic, în 
informatică, elementare sunt numai instrucţiunile „turnate” în circuitele procesorului la 
proiectarea acestuia, dar programatorii s-au obişnuit să numească instrucțiuni şi operaţii de 
un nivel ceva mai mare, ca de exemplu suita de operații necesare transferului unui text din 
memoria internă pe ecranul monitorului. Unii vorbitori (şi scriitori) folosesc noțiunile 
comandă şi instrucțiune ca sinonime, deşi acestea nu sunt chiar astfel. Așadar, o comandă 
are o sferă mai largă decât o instrucțiune. De exemplu, o comandă de creare a unei tabele 
din Visual FoxPro sau o comandă de căutare a unor date într-o tabelă lansează de fapt un 
întreg algoritm. La fel se întâmplă și cu o comandă a sistemului de operare (de exemplu 
COPY, care, deşi acest lucru nu este evident, există chiar şi în Windows). 
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Într-un algoritm avem următoarele ripuri de instrucțiuni: 
de atribuire; 

de calcul; 

de decizie; 

de intrare-ieşire, 


e è o 


4.2. Structuri de control 


Instrucţiunile algoritmului urmează căi de execuție numite sfructuri de control. Am 
folosit aici pluralul deoarece, în funcţie de anumite condiţii, prelucrarea datelor poate lua 
căi (ramificații) diferite. Structurile de control fundamentale sunt secvența, selecția şi 
iterația (vezi figura 4.1). = 


Instrucțiune 1 


instrucțiune 1 


instrucțiune 2 


F 
E 
ł 
F 
i 
ţ 
1 


instrucțiune 2 


Instrucțiune 3 


Selecţia 


Secvența 


instrucţiune 2 


NU 


lterația 


Figura 4.1. Structuri de control fundamentale 


În 1965, Boehm şi Jacopini au fundamentat teorema care le poartă numele, conform 
căreia orice algoritm poate fi reprezentat prin combinarea celor trei tipuri de structuri de 
control fundamentale. 
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Aşadar, în programarea structurată, avem următoarele posibilități: 


e instrucțiunile se execută secvențial în ordinea în care apar (de sus în jos), până la 


ultima (secvenţa); 


e în funcţie de evaluarea unei condiţii la un moment dat, se execută un grup de 
instrucțiuni sau altul (selecția sau structurile alternative). Trebuie precizat aici că 
putem avea structuri alternative cu o ramură vidă, ceea ce vrea să însemne că, în funcție 


de evaluarea unei condiţii, se poate executa sau nu un anumit grup de instrucțiuni; 


e un grup de instrucțiuni se execută de un anumit număr (finit) de ori, cunoscut 


dinainte sau cât timp o condiţie este îndeplinită (iterația sau structurile repetitive). 
În practică, din iterație au derivat alte două tipuri de structuri de control (figura 4.2): 


e structuri repetitive condiționate anterior, caracterizate prin faptul că mai întâi se 
verifică o condiţie şi, dacă e adevărată, se execută o secvență de instrucțiuni, după 


care bucla se reia ; 


e structuri repetitive condiționate posterior, caracterizate prin faptul că mai întâi se 
execută o secvență de instrucțiuni, apoi se verifică o condiţie şi, dacă e adevărată, 


bucla se reia. 


instrucțiune 1 


instrucțiune 1 


instrucţiune 2 


instrucţiune 3 


Structura repetitivă condiționată 


Structura repetitivă 
anterior condiționată posterior 


Figura 4.2. Subtipurile structurii fundamentale iteraţie 


Primii algoritmi cu aplicabilitate în, domeniul prelucrării automate a datelor se 
datorează, se pare, lui Charles Babbage, proiectantul „maşinii analitice” din anii 1830. 
O dată cu apariţia calculatoarelor electronice, programatorii s-au aplecat asupra algoritmilor 
ca baze ale conceperii programelor. Aceste preocupări au devenit tot mai intense pe măsură 
ce limbajele de programare s-au perfecționat: 

e prima generaţie (cod mașină) este etapa programării „artizanale” a calculatoarelor, 

în care programatorul putea fi uşor asemuit cu un „mare preot”; 

e generaţia a doua (limbaje de asamblare) simulează structurile de control prin 
instrucțiuni de salt (j ump) şi apeluri de proceduri (ca11); 

e generația a treia (limbaje de nivel înalt) dispune de instrucțiuni puternice pentru 
codificarea structurilor de control, pentru atribuire şi pentru calcul. Totodată apare 
programarea structurată, conform căreia o problemă mare este descompusă în 
module mai mici, ce pot fi atacate separat, urmând a fi recombinate; 
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e generația a patra adaugă la puterea limbajelor de generaţia a treia instrumente de 
asistare a programatorului capabile chiar să genereze cod-sursă conform unor 
specificaţii grafice şi textuale întocmite de programator. | Ă | 

Am folosit aici noţiunea de cod-sursă. Acesta este codul Scris de om într-un anumit 

limbaj de programare, traducând instrucţiunile algoritmului în instrucțiuni ale respectivului 
limbaj. Trecerea de la codul-sursă la codul executabil are loc printr-un proces de 
interpretare (instrucțiunile în cod-sursă sunt traduse şi executate pe rând) sau de compilare 
(tot codul-sursă este mai întâi tradus în cod executabil, apoi pot avea loc oricâte execuții ale 
programului fără a mai fi nevoie de „traducerea” prealabilă). ap, 


Codificarea structurilor de control în Visual FoxPro Ă Di 

Este de la sine înţeles că nu se poate concepe un program în programarea structurată 
fără a face apel la instrucțiunile care codifică structuri de control. Visual FoxPro imple- 
mentează asemenea structuri prin câteva sintaxe specifice. 

Structura alternativă (selecţia) se codifică prin: 

IF <conăiţie> [THEN] 


[ELSE] 

foi 
ENDIF . l a ae 
sau, pentru structura alternativă generalizată: 
DO CASE 
CASE <conditie-1> 


[CASE <conditie-2>] 

Pewel. E 

[CASE <conditie-n>] 

begad 

[OTHERWISE] 

pene] 

ENDCASE E 

Tot aici avem şi varianta funcției IIF(<condiție>, <valoare-dacă- 
adevărat>, <valoare-dacă-fals>), care se poate folosi atât în programe, cât mai 
cu seamă în scrierea regulilor de validare la nivel de câmp ori de înregistrare pe care le-am 
văzut în capitolul 2, 

Structurile repetitive se codifică fie prin DO WHILE. . .ENDDO, fie prin FOR... 
ENDFOR: Sp 

DO WHILE <condiţie-de-ciclare> 

[LOOP] 

[EXIT] 

ENDDO | ȘI e 

Clauza LOOP trimite execuţia programului înapoi la linia DO WHILE, iar EXIT la 
următoarea instrucțiune după ENDDO (cu LOOP se poate relua, iar cu EXIT se poate părăsi 
bucla atunci când în interiorul acesteia se atinge o anume condiţie, alta decât cea de 
ciclare). Instrucţiunile din corpul buclei se execută atât timp cât condiția precizată este 
adevărată. 
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Instrucţiunea FOR serveşte la codificarea structurii repetitive cu un număr finit de paşi: 
FOR'. VariabilăContor =  Valoarelniţială TO ValoareFinală 


[STEP increment] 


[EXIT] 

[LOOP] 

ENDFOR | NEXT 

Clauzele LOOP şi EXIT au aceleaşi roluri ca la instrucțiunea DO WHILE de mai sus. 

Visual FoxPro, ca orice produs xBase, dispune şi de o instrucțiune 
SCAN, . , ENDSCAN, care permite execuția unor anumite instrucțiuni concomitent cu 
parcurgerea secvențială a unei tabele .DBF: 

SCAN [<domeniu> FOR <condiţie- 1> WHILE Ai i aa 2>] 

[LOOP] 

[EXIT] 

ENDSCAN 

Toate acestea vor fi exemplificate prin cod-sursă spre finalul acestui capitol. 


4.3. Variabile şi constante. Instructiuni de atribuire 
în Visual FoxPro 


Fiecare limbaj are propriile sale instrucțiuni și propriile tipuri de date. Aţi făcut 
cunoștință cu tipurile de date din Visual FoxPro în capitolul 2, iar cu câteva dintre 
comenzile modului de lucru direct v-aţi întâlnit şi în capitolul 3. 

Atât variabilele, cât şi constantele sunt abstractizări ale unor zone , de memorie. 
Programatorii nu pot memora adrese şi deplasamente de memorie, afară de cazul în care 
chiar le-ar plăcea acest exercițiu mental. În plus, este puțin predictibil ca o anumită 
variabilă să se găsească de două ori la aceeaşi adresă (compilatorul execută o alocare 
dinamică a adreselor, în funcție de memoria liberă la lansarea programului). Sunt două 
motive care cer folosirea de nume pentru aceste zone. Constantele nu au nevoie de nume; 
programatorul scrie expresiile lor direct în cod, ca de exemplu (sperăm că zecimalele lui 7 
sunt suficiente): 


Listing 4.1. Variabile şi constante 


STORE 0 to arie 

STORE 20 to raza 
ARIE=3.141592653"razan2 
?arie 


Şi constantele necesită spaţiu în memorie, dar rezervarea acestuia nu cade în sarcina 
programatorului. Uneori însă este util să se dea şi constantelor nişte nume, pentru a le face 
mai ușor de manipulat; acest lucru este posibil în Visual FoxPro prin directiva de 
precompilare (un tip special de instrucțiune) #DEFINE: 


Listing 4.2. Directiva +DEFINE 


4DEFINE pi 3.141592653 
STORE 0 to arie 
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STORE 20 to raza 
arie=pi*razan2 
?arie 


În treacăt fie zis, definiția de mai sus nu-şi are rostul, deoarece Visual FoxPro dispune 
de funcția PI (), care are exact rolul de a returna numărul z cu primele 6 zecimale, Dar 
definiţii de genul: 


Listing 4.3. Directiva #DEFINE varianta 2 


ADEFINE LINIENOUA CHR(13)+CHR(10) 

#DEFINE MESAJ "Acest program a executat o operatiune incorecta ” + ; 
"Si va fi oprit de Windows.” + linienoua F consuken asistenta tehnica.” 

#DEFINE TITLU “Eroare” 

#DEFINE BUTOANE 1+16 && butoanele OK si Canel semnul STOP 


MESSAGEBOX(MESAJ, BUTOANE, TITLU) 


se dovedesc foarte utile, mai ales dacă trebuie invocată funcţia MESSAGEBOX () în acelaşi 
context de mai multe ori pe parcursul execuţiei unui program. Este bine ca pentru numele : 
de constante să folosim majuscule, iar pentru numele de variabile, litere mici. 


Notă. În secvența de program de mai sus s-au folosit semnele &&, care preced un 
comentariu. Un alt caracter pentru introducerea comentariilor este asteriscul (*), plasat 
la începutul rândului. În loc de asterisc se poate folosi şi cuvântul-cheie NOTE, 
Comentariile au rolul de a mări lizibilitatea programului. 


; = Acest program a executat-o operatiune incorectă si va ari oprit de Windows. 
É Consultati asistenta tehnica. i 


Figura 4.3. Rezultatul execuției funcției MESSAGEBOX() din codul de mai sus 


Renunțarea la denumirea constantei se face cu directiva 4UNDEF nume-constanta. 

Lucrul cu variabile se dovedeşte a fi ceva mai complicat decât lucrul cu constante. În 
primul rând, pentru a folosi variabile, trebuie să le declarăm. Declararea implică rezervarea 
unui spațiu de memorie suficient de mare pentru respectivul tip de dată. În capitolul 2 am 
văzut care sunt tipurile de date folosite în bazele de date Visual FoxPro. Programele Visual 
FoxPro însă nu cer nici declararea explicită, nici specificarea unui tip pentru o variabilă (se 
spune că este un limbaj weak typed — în opoziție cu limbaje strong typed, care cer 
declararea explicită a variabilelor de un anumit tip: Pascal, C). 

Începând cu tehnica programării structurate, se obişnuieşte ca programul să fie compus 
din proceduri şi funcții care se apelează unele pe altele. Limbajul de programare Visual 
FoxPro respectă şi el paradigma ap eat Din acest punct de vedere, se poate lucra cu 
variabile publice (după declarare, pot fi apelate în orice procedură sau funcţie din cuprinsul 
ap licaţiei) ori cu variabile privare (sunt accesibile numai în interiorul procedurii sau funcţiei 
în care au fost declarate). În Visual FoxPro, pentru declararea explicită a variabilelor se pot 
folosi instrucţiunile: 


e PUBLIC nume-variabilal[,nume-variabila2..] 
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pentru declararea unor variabile publice (globale) şi: 
e LOCAL nume-variabilal [,nume-variabila2...] 
în scopul declarării unor variabile locale. Instrucţiunea: i 
e DIMENSION nume-tabloul{nrliniil [,nrcoloanel] 
[; nume-tablou2(nrlinii2 [,nrcoloane2]..] 
se foloseşte la declararea de tablouri cu o dimensiune (vectori) sau cu două dimensiuni 
(matrice), al căror domeniu de vizibilitate este tot local. Dacă se doreşte declararea unor 


tablouri globale, DIMENSION se înlocuiește cu PUBLIC ARRAY. 


Notă. Numele variabilelor pot conține litere, cifre şi caracterul de subliniere 
(underscore) şi se recomandă să nu înceapă cu cifră, şi nici cu liniuţa de subliniere 
(pentru a evita confuzia cu variabilele de mediu, care au fost amintite în capitolul 1). 


În Visual FoxPro există şi instrucțiunea PRIVATE, dar funcțiunea sa e puţin diferită 
faţă de alte limbaje precum BASIC sau C. Astfel, scrisă într-un subprogram (o procedură, 
după terminologia Visual FoxPro), declaraţia PRIVATE <lista-de-variabile> sau 
PRIVATE ALL LIKE <şablon>% permite „ascunderea” valorilor variabilelor globale 
specificate în listă față de programul curent (deci posibilitatea manipulării după dorință a 
unor variabile globale pe parcursul subprogramului, la ieşirea din acesta regăsind valorile 
lor originale): i 


Listing 4.4. Declararea variabilelor PRIVATE 


CLEAR && sterge ecranul 
PUBLIC m_nume, m_annastere, ancalend 
m_nume="Popescu M. Raluca" 


m_annastere=1979 
ancalend=2001 


DO afiseaza_datele_persoanei && apelul procedurii afiseaza_datele_persoanei 
* se va afisa Popescu M. Raluca 1979 2001 

?m_nume, m_annastere, ancalend 

RELEASE ALL && sterge toate variabilele 


PROCEDURE afiseaza_datele_persoanei && inceput de subprogram 
PRIVATE ALL LIKE m_* && se ascund variabilele publice 

&& ale caror nume incep cu "m_” 

m_nume="ionescu Eugen” 

m_annastere=1909 

* se va afisa lonescu Eugen 1909 2001 

?m_nume, m_annastere, ancalend 

RETURN && sfarsit de subprogram 


Tipul unei variabile declarate explicit este stabilit o dată cu prima instrucțiune de 
atribuire care se referă la variabila respectivă şi, în linii mari, putem vorbi despre variabile 
de tip numeric, şir de caractere, dată calendaristică, logic şi obiect. De remarcat că 


variabilele publice (folosirea comenzii PUBLIC într-un program) au după declarare tipul de > 


20. Prin „şablon” (termenul folosit de Visual FoxPro este skeleton, literal „schelet”) se înțelege orice combinaţie 
de litere. cifre, caracterul „_” şi caracterele „?” (înlocuiește o literă ori o cifră) sau „*” (înlocuieşte un grup de 
caractere). 


7 i N anul pa ea ae Reci e i i i tal i ai 


Programarea în Visual FoxPro 89 
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dată Logical şi valoarea . F. La următoarele atribuiri, tipul de dată poate fi schimbat (cu 
alte cuvinte, o variabilă se poate refolosi). 


ionescu Eugen 1909 2001 
Popescu M. Raluca 1979 2001 


Figura 4.4. Rezultatul execuției programului din listingul 4.4 


De asemenea, Visual FoxPro permite declararea implicită a variabilelor, adică o dată cu 
prima instrucțiune de atribuire. Instrucţiunile de atribuire sunt următoarele: 

e operatorul egal”; 

nume-variabila=valoare 

e instrucțiunea STORE: 

STORE valoarel TO nume-variabilal 

[„valoare2 TO nume-variabila2..] 

Pentru variabilele de tip obiect se foloseşte operatorul „=”, combinat cu funcția 
CREATEOBJECT (<nume-bibliotecă.nume-clasă>), pe care o vom mai întâlni în 
capitolul 11. 


Notă. Variabilele declarate implicit sunt locale, în afara celor declarate ad-hoc în 
fereastra de comenzi, care sunt globale. 


Ulterior creării unei variabile, tipul acesteia se poate verifica prin invocarea funcţiei 
TYPE (<nume-variabilă>). Aceasta returnează un număr care arată tipul variabilei 
(vezi tabelul 4.1). 


Tabelul 4.1. Valori posibile ale funcției TYPE 


Rezultat Tip de dată 


Character 

Numeric (inclusiv float, double, integer) 
Currency 

Date 

_ | DateTime | 
Logical i 
Memo 
Object 


General i] 


Nedefinit (variabila nu există) 


clololzlrlalol=lzla 


Notă. Oricare ar fi tipul variabilei, numele său se scrie între ghilimele sau apostrofuri 
(în Visual FoxPro aceste semne au acelaşi sens). 
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Funcția VARTYPE (nume-variabila, [valoare pentru NULL]) are acelaşi 
rol ca şi TYPE (), dar este mai rapidă şi nu necesită scrierea numelui variabilei între 
ghilimele; în plus, cel de-al doilea argument, opțional, permite specificarea unui rezultat 
convențional în caz că variabila este NULL. Astfel, dacă al doilea argument are valoarea 
.T. şi variabila este NULL, se va returna tipul variabilei; dacă al doilea argument este omis 
sau este . F., se va returna „X”, ceea ce înseamnă NULL. Presupunând că var! este de tip 
N (numeric) şi deocamdată are valoarea NULL, VARTYPE (varl, .T.) va returna 
rez latul „N”, pe când VARTYPE (varl) ori VARTYPE (varl, .F.) vor returna 
ambele rezultatul „X”. 

Visual FoxPro permite și folosirea variabilelor de tip tablou (cu o dimensiune — vector 
sau cu două dimensiuni — matrice). Acestea se declară cu DIMENSION sau cu PUBLIC. 
Pentru adresarea elementelor se foloseşte notația <nume-tablou> (i, j). De asemenea, 
pentru tablouri sunt disponibile multe funcţii utile cum ar fi: 

ALEN (nume-tabloul, atribut]) — pentru aflarea numărului total de 
elemente (fără argumentul atribut), a numărului de linii (dacă atribut este 1) ori de 
coloane (dacă atribut este 2); 

ASCAN (nume-tablou, __expresie-căutată F element-de- 
plecare [, număr-elemente-de-parcurs]]) — află numărul de ordine al 
elementului care conține expresie-căutată; returnează 0 (zero) dacă nu există un astfel de 
element. 

Orice variabilă Visual FoxPro poate fi distrusă explicit prin una dintre comenzile: 

__ CLEAR ALL — şterge necondiționat din memorie toate variabilele; comanda CLEAR 
are însă un spectru mai larg; : 

RELEASE  <lista-de-variabile> — şterge din memorie variabilele 

specificate; 

RELEASE ALL — şterge din memorie orice variabilă ori tablou; 

RELEASE ALL LIKE <şablon>| EXCEPT <şablon> — șterge variabilele 
care sunt/nu sunt conforme cu şablonul. 


Notă. Dacă este integrată într-un program, comanda RELEASE ALL nu afectează 


variabilele publice. În caz că se doreşte acest lucru, se va folosi comanda RELEASE 
ALL EXTENDED, 


Visual FoxPro permite şi păstrarea valorilor unor variabile în fişiere speciale, denumite 
fişiere memo, Astfel, puternica instrucţiune: i 
SAVE TO <nume-fisier> ALL LIKE <sablon> |ALL EXCEPT 
<şablon> 
memorează într-un fişier variabilele care sunt/nu sunt conforme şablonului, iar comanda: 
RESTORE FROM <nume-fisier> [ADDITIVE] _ - 
reface variabilele stocate anterior în fişierul specificat; clauza ADDITIVE împiedică 
distrugerea variabilelor care deja există în memorie. De remarcat că variabilele îşi păstrează 
după restaurare caracterul public sau local. 
Comenzile SAVE TO.. şi RESTORE FROM... îşi găsesc utilitatea în stabilirea unor 
opțiuni de configurare a unei aplicaţii (parole, directoare de lucru, luni calendaristice etc.). 
Faptul că Visual FoxPro nu impune declararea explicită a variabilelor şi nici o 
consecvență privind tipurile de date pe parcursul execuţiei programului oferă o mare 
flexibilitate, dar poate constitui și o sursă de erori. 


` stângă) şi produce un avan 
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4.4. Instrucţiuni de intrare-ieşire 


; i Paca zar ta Si 
În Visual FoxPro, cea mai simplă instrucțiune de ieşire este fără sil n? a i > 
r inci i expresii iabilă, combinații 
al a unei expresii (constantă, variabilă, | 
scop afişarea pe ecranul princip e ' 
Staa şi variabile etc.). Fiecare comandă ? începe afişarea din coloana 0 Tae 
s de rând. Dacă se folosesc două semne de întrebare în loc de 


unul, afişarea are loc pe linia curentă, iar dacă se folosesc trei semne de întrebare, afişarea 
bă 


va avea loc direct la imprimantă. | y l 
O altă instrucțiune de ieşire mai veche este instrucțiunea de afişare formatată: 


ini y <expresie> 
8 <linie>, <coloana> SA < i p i 
Ambele insmächuni prezentate se utilizau pe larg în versiunile o e j 
i î d caracter (25 de linii şi 80 de coloane). Cât desp 
care afisarea pe ecran avea loc în mo $ l c 
oa la opima a unor situații complexe, aceasta a avut întotdeauna la bază 


întâlni în capitolul 7. : 
machetele de raport, cu care ne vom in | l 
Ca tt de intrare, Visual FoxPro, menține mal vechile INPUT şi ACCEPT, ca 


i - ES 
i e <linie>, <coloana> GET <variabilă>, urmată de READ. | ȘI 

În versiunile Visual FoxPro, aceste instrucțiuni sunt oa m x i 
i iuni i ieşi ecran) a fost preluat de obiectele de 

iunilor de intrare/ieșire (pentru afişarea pe i £ 

ap aa A TextBox, ListBox etc.) utilizate în formulare, în care modul de afișare 
este exclusiv grafic (vezi capitolul 8). Instrucţiunile €..SAY..GET..READ, tă 
ACCEPT sunt menținute din raţiuni de compatibilitate cu aplicațiile concepute în mod text. 
insifuoieiăea 2” se poate folosi în etapa testării şi depanării unor programe, întrucât oferă 


o modalitate simplă şi rapidă de afişare. 


4.5. Proceduri şi funcţii în Visual FoxPro 


Programarea structurată ne învață că o aplicație este cu atât mai simplu de întreținut cu 
cât codul-sursă este mai bine împărțit pran p NEN A n oa T 
i constituie o metodologie ' 2 i T 
M E care îndeplinesc fiecare o sarcină specifică în dea A pre 
scopului final al programului. Această tehnică (ca şi programarea ae lit aa 
rădăcinile în practica de toate zilele, ea prezentând o serie de avantaje major E a 
e flexibilitatea şi posibilitatea de reutilizare a codului, aceia fiind cu atâ 
puternice cu cât modulele sunt mai mici şi ci a p 
izibili i a mentenanţă a unei aplicaţii ! ; l 
A a şi funcții cuie privită mai mult din past Sta teoretic- 
-conceptual, ea evidențiindu-se chiar din definițiile celor două tipuri de Ea, e cade 
O procedură reprezintă o înşiruire logică a unui număr finit de a -a nr 
de contro! grupate sub acelaşi nume și care duc ia îndeplinire o sarcin ali sd i 
apelată de alte module — prin comanda DO <nume-procedură> Aia c 
mai mulți parametri), dar fără a returna neapărat vreo valoare (figura 4.5). A nt hei 
Funcția are o definiție aproape identică, numai că, obligatoriu, va re 


(una şi numai una). 
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Functia x 


Rezolvå o problemă anume 


Figura 4.5. Diferenţa dintre proceduri şi functii 


Aşadar, spre deosebire de proceduri care pot fi apelate direct (ele funcționând de sine 
stătător), o funcţie are întotdeauna un rezultat şi, ca urmare, o putem utiliza prin asignarea 
acestui rezultat unei variabile sau prin includerea ei într-o comandă Visual FoxPro sau 
într-o frază SELECT - SQL. Există și varianta =>numefuncție () (fără nici o variabilă 
în stânga egalului). 

Crearea programelor (proceduri sau funcții) în Visual FoxPro presupune parcurgerea 
următorilor paşi: 

e lansarea editorului de text propriu prin utilizarea în fereastra de comandă a 
comenzii: MODIFY COMMAND [<NumeProgram>] ce va deschide o fereastră 
specifică pentru introducerea secvenţelor de cod dorite. 

e altă posibilitate o constituie utilizarea Project Manager-ului, cadrul de pagină 
Code şi utilizarea butoanelor New sau Modify, după necesități. Aceasta este, de 
altfel, modalitatea standard de lucru pentru crearea programelor, ea fiind 
recomandată datorită faptului că utilizarea comenzii de mai sus duce la crearea 
programului, dar nu şi la includerea lui în proiect (aspect foarte important atunci 
când dorim livrarea unor aplicaţii compilate în format executabil). 

e compilarea codului-sursă (opțiunea Program|Compile din meniu), operațiune 
care va duce la transformarea lui într-un format interpretabil de UCP. Compilatorul 
va asigura şi corectitudinea sintaxei, astfel încât orice inadvertență în scrierea unei 
instrucţiuni sau utilizarea defectuoasă a structurilor de control va genera un mesaj 
de eroare specific. Compilarea are loc şi dacă în fereastra de comenzi se scrie 
COMPILE <nume-program> | <şablon?!>; 

e: lansarea codului în execuţie — se realizează fie din Project Manager, prin 
selecția programului dorit în cadrul de pagină Code şi click pe butonul Run, fie 
prin utilizarea (în fereastra de comandă sau într-o procedură apelantă) a comenzii: 
DO NumeProgram [WITH <lista-parametri>). 


Notă. Întreruperea execuţiei unui program se realizează apăsând tasta Esc. 


Codul-sursă Visual FoxPro se memorează în fișiere cu extensia .PRG. Codul compilat se 
găseşte în fişiere cu extensia .FXP (dacă nu a avut loc compilarea explicită, un asemenea 
fişier se creează automat la lansarea în execuţie a programului .PRG corespunzător). Putem 
avea însă cod-sursă Visual FoxPro şi în alte tipuri de fişiere: procedurile stocate şi 


21. De exemplu, compile m*.prg va compila toate programele ale căror nume încep cu litera m. 
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declanşatoarele (fac parte din dicționarul de date reprezentat de cuplul de fişiere 
.DBC/. DCT), meniurile (fişierele generate, care au extensia „MPR) şi formularele 
(fişierele . SCT). AF 
Orice funcţie sau procedură poate fi declarată (construită) în 3 moduri: PR 
ə ca program distinct, caz în care va fi accesibilă (va putea fi apelată) din oricare alt 
modul (ca în exemplele anterioare); 5 e 
ə ca parte integrantă a unei alte proceduri sau funcții, caz în care va fi accesibilă m 
mod normal numai modulului respectiv, fiind „invizibilă” altor programe”. 
Asemenea module se declară înfoideauna la sfârşitul secvenţei de cod ce constituie 
programul apelant (pentru exemplificare, vezi şi capitolul 7, partea referitoare la 
rapoarte dinamice) astfel: 
e pentru proceduri: 
PROCEDURE nume _ proc 
[PARAMETERS parametri..] 
<instrucțiuni> 
ENDPROC 
e pentru funcții: 
FUNCTION nume _funct 
[PARAMETERS parametri...) 
<instrucțiuni> 
RETURN valoare 
ENDFUNC 


Notă. RETURN fără valoare realizează ieşirea forțată din modul şi reîntoarcerea la 
instrucțiunea imediat următoare din modulul apelant. ; . : 


O funcție sau o procedură poate fi creată şi ca procedură stocată (capitolul 6), caz în 
care va fi integrată în dicționarul bazei de date, fiind disponibilă oricărui modul de 
program, cu condiţia ca respectiva bază de date să fie deschisă. | 

Atunci când într-un program (sau chiar în fereastra de comenzi) este apelată o procedură 
sau o funcţie definită de utilizator, Visual FoxPro caută modulul respectiv în următoarele 
locuri (în ordine): - t 

ə programul curent (cel în care se află apelul funcției sau procedurii); 

e programul specificat într-o comandă DO <nume-procedura> IN <nume- 

program> sau dacă înainte de instrucțiunea de apel (DO <nume-procedura>) 
s-a introdus comanda SET PROCEDURE TO <nume-program>; 
e procedurile stocate; sp: | i 
ə toate modulele de program din directorul curent şi din directoarele specificate în 


comanda SET PATH. | a 
Figura 4.6 prezintă toate elementele necesare lucrului cu programe în Visual FoxPro. 


22. Vezi, în continuare, modalitatea de apel cu DO <nume-procedură> IN <nume-program> precum și 
comanda SET PROCEDURE TO. 
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t Microsol Viiol Ferebia 


A «| a Bal £ eA 
ompilarea codului la creare şi după 
orice modificare 


= Progt ame 
iE creare, bd_vinzasi 

: PI anemplu_low_leval 

O exemplu var cons!_Isimpiu 

-0 fac. în 

„E lunci total clant 

E funel_tol_tactura 


Buton de compilare şi lansare în executi 


Adâugarea la proiect a unui program 
creat cu MODIFY COMMAND sau 
adus din alte proiecte 


[E popdare_bd_vinzaui 

TA pacienti 

- proc, totaliacturat_ cent s SET TALK OFF 
-EJ tefacere_indecsi SET EXACT ON 


sE stuaia_incasador 
if suatia incasatilor_cu_ sai 
(2 ateuctuii conso 
pof test_500000_incegisteaei 
a test expor ai 
a test, impon_ască 
-EF temmerge 
API Libraries 
3 Appicalions 


d 
i 
i 
i 
t 
i 
Ă - 
i <. SET DEFAULT TO k:\KVFP\APLICATIE 
5 
t 
i 


Figura 4.6. Lucrul cu programe în Visual FoxPro l 


După cum spuneam, o procedură sau o funcție poate fi apelată în două moduri: cu 
parametri (unul sau mai mulți, în funcție de specificul modulului respectiv) sau fără 
parametri. Parametrii sunt variabile locale (declarate obligatoriu explicit la începutul 
modulului” apelat) care preiau valorile furnizate de modulul apelant în scopul utilizării lor 
în prelucrările interne. Putem vorbi deci despre: 

e parametri formali — numele variabilelor locale declarate la începutul procedurii sau 

funcției; 

ə parametri actuali — valorile efective preluate de la modulul apelant. 

Aşadar, în Visual FoxPro, obligatoriu prima instrucțiune a unei proceduri se referă la 
declararea parametrilor formali cu ajutorul sintaxei: 

PARAMETERS ParamFormall, ParamFormal2 

În loc de declarația PARAMETERS se poate utiliza şi LPARAMETERS. 

Apelarea unei proceduri cu parametri se realizează conform sintaxei: 

DO NumeProcedură WITH ParamActuall, Paramactual2.. 

Apelarea unei funcții diferă radical din punct de vedere al sintaxei: f 

Variabilă=NumeFfuncţie (ParamActuall, ParamActual2...) 

Sau (apel direct într-o frază SQL — cu care ne vom întâlni în capitolul 5): 

SELECT câmpl, câmp2,...„. NumeFuncţie (Paramâctuall, 
ParamActual2..) [AS alias |] 

Ordinea în care sunt preluaţi parametrii actuali de către cei formali este cea naturală, de 

la stânga la dreapta, în funcţie de virgulă ca separator, iar tipul parametrilor formali este 


23. Prin modul se înțelege o procedură sau o funcție. 
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determinat de tipul parametrilor actuali. Dacă apelul se face fără nici un parametru actual, 
cei formali sunt declarați implicit de tip logic (boolean). 


f Micas Vaus Foaia 


do test parametri 
do test parametri with 'Ciient 1! 
„do test parametri with 'Cliept 1°,'01/93/2001' 


i RS n nai certi 
A 750) U EI că beta ioan 

1 | parametera P client, P_data ÎN Mac i Parametri formah b 
j$ * procedura va afisa fie un mesaj cu ces doi parametri 
* Lie un mesaj numai cu primul , fie un wegaj de eroare 


do casa 5 i 
sase parapatersij=0 îi 
mersagebox{ iti apelat procedura fara parametri!, +16, 'n fel de eroare’) 
case paremetersijei îs sigur cate vorba de P client 
mesaagedoxi'iti apelet procedura cu parametrul P client cu RENTA p 
+P_ client, 64, "Apei cu primul parametru!) 


OTALRVISI 
messagebox ("CLIENTUL ;'+P_client+' la data ;'+P_ data, 54, 'Apel cu toti parametrii’): 
endcase x 


Figura 4.7. Apelul procedurilor şi transmiterea parametrilor în Visual FoxPro 


Figura 4.7 prezintă o procedură cu numele Test Parametri şi o procedură cu 
numele ApeiTest_ Parametri care o va apela pe prima cu şi apoi fără parametri, 
tocmai în ideea de a demonstra modalitatea standard de lucru cu proceduri în Visual 
FoxPro. Funcţia PARAMETERS () returnează numărul de parametri actuali cu care este 
apelat un modul. Un parametru formal care nu are la un moment dat un corespondent 
actual este întotdeauna de tip logic şi are valoarea .F, (False). 

În Visual FoxPro, de la un modul apelant către un modul apelat se pot transmite 
maximum 27 de parametri. Modul implicit de transmitere în Visual FoxPro este 
transmiterea prin valoare (modulul apelat lucrează cu copii ale variabilelor transmise de 
modulul apelant). Pentru a trece la transmiterea prin referință (modulul apelat preia 
adresele variabilelor transmise de modulul apelant, deci ambele module lucrează cu exact 
acelaşi set de date), se poate folosi comanda de configurare SET UDFPARMS TO 
REFERENCE, care are ca efect transmiterea tuturor parametrilor prin referință. Dacă se 
doreşte transmiterea numai anumitor parametri prin referință, atunci parametrul dorit se 
prefixează cu 6. Astfel se pot transmite ca parametri tablouri (arrays) întregi (transmiterea 
prin valoare ar considera numai primul element al tabloului). O altă utilitate a transmiterii 
prin referință apare atunci când se apelează programe/proceduri externe (scrise în C sau 
C++, de pildă) care cer ca parametri referințe ori pointeri. 
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Listing 4.5. ilustrarea transmiterii parametrilor prin referință 
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* declararea unui tablou pentru pastrarea datelor salariale 
DIMENSION vSp2001(3,4) 

” consideram urmatoarea structura a sporurilor 

j 1 2 3 4 

* salar vechime cond_grele altele 


* popularea tabloului cu date de test pentru 3 salariati 


* prima linie: 
vSp2001(1,1)=2456000 
vSp2001(1,2)=0.2 
vSp2001(1,3)=0.15 
vSp2001(1,4)=365000 
* a doua linie: 


vSp2001(2,1)=3500000 
vSp2001(2,2)=0.15 
vSp2001(2,3)=0.0 
vSp2001(2,4)=100000 
* a treia linie: 
vSp2001(3,1)=4200000 
vSp2001(3,2)=0.3 
vSp2001(3,3)=0.02 
vSp2001(3,4)=0 - 


* apelul procedurii: tabloul se transmite prin adresa | 
CaicSporuri{(@vSp2001} i 


* procedura pentru calculul si afisarea sporurilor 
PROCEDURE CalcSporuri . 
LPARAMETERS vSporuri, 
local inSpor i 
` FOR i= 1 TO ALEN(vSporuri,1) && pentru fiecare linie din tablou 

InSpor=vSporuriţi, 1)*(vSporuri(i,2)+vSporuri(i,3))+vSporuriți,4) 
? "Salariatul nr. " + allt (str()) + ; 

" are salariul de baza de " +alit(str(vSporuri(i,1))) +; 

“ si totalul sporurilor de " + alit(str(InSpor)) 
ENDFOR 
ENDPROC 


fe 


Într-o primă etapă, apelul procedurii (linia redată în caracter bold) fusese scrisă astfel: 
CalcSporuri (vSp2001) — deci transmiterea valorii, care este implicită în 


Visual FoxPro. Acest lucru cauzează o eroare, vizibilă în figura 4.8. 
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* apelul procedurii 
CalcSporuri (vSp2001) 


” procedura pentru calculul si afisarea sporuri lor 
PROCEDURE CaicSporuri 
LPARAHETERS vSporuri 
local InSpor 
FOR i = 1 TO ALEN(Văporurt, 1} ce penttu fiecar 
InSpor=vSporuri (i, 1)" [uSnnruri ti 21 4 
? "Salariatul nr. " + DER a ata 
” are salariul de i: as 
” si totalul sport 
ENDPROC 


E dinte” din tabldu 


jr Snoruri f 


Figura 4.8. Transmiterea valorii unui tablou în procedura apelată cauzează o eroare 


După corectarea erorii, rezultatul execuţiei este cel din figura 4.9. 


alariatul nr. 1 are salariul de baza de 2455009 si totalul sporurilor de 1224800 
Salariatul nr. 2 are salariul de baza de 3500000 si totalul sporurilor de 625000 
Salariatul nr. 3 are salariu! de baza de 4200000 si totalul sporurilor de 1344000 


Figura 4.9. Rezultatele programului din listingul 4.5 


Vom prezenta în continuare câteva exemple de programe în Visual FoxPro. 


Exemplul 1 
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_ Dată fiind baza de date VINZARI, dorim să aflăm care sunt facturile încasate integral. 
In acest scop avem nevoie de datele din tabelele FACTURI şi INCASFACT. Vom 
parcurge tabela FACTURI, căutând pentru fiecare număr de factură înregistrările 
corespunzătoare (dacă sunt) în tabela INCASFACT și cumulând valorile câmpului 


Transa. 


Pentru înţelegerea deplină a modului de calcul, algoritmul a fost redat sub forma 


schemelor logice din figurile 4.10 şi 4.11. 


Visual FoxPro 


PROGRAM SITUATIA_INCASARILOR 


{ START 


to 


Deschide FACTURI, INCASFACT 


| 


Č 


| 


CALCUL INCASARE| H 


B 


NOT 
.OF(FACTURI)2 


inchide FACTURI, INCASFACT 


Figura 4.10. Schema logică pentru programul principal SI1TUATIA_INCASARILOR 


PROCEDURA CALCUL_ INCASARE 


f INCEPUT 


valincas:=0 


Y. 
Pozitionare la inceput de fisier in INCASFACT 


-o 


Cauta FACTURI.CODFACTURA SA 


LBAL pf aineas vaneasrncas fact:TRansa | 


Afiseaza INCASFACT.NRFACT, valincas 


| 


m 4 


În FRS 


Figura 4.11. Schema logică pentru procedura CALCUL INCASARE 
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Codul-sursă al programului Visual FoxPro SITUATIA INCASARILOR. PRG este 


prezentat în listingul 4.6, 


Listing 4.6. Varianta cu DO WHILE 


* program pentru afisarea situatiei incasarilor 
$ LEAR 
at ET TALK OFF && pentru inhibarea afisarii mesajelor-sistem 
Q TORE 0 TO nrf, valfact, valincas 
> t—*|deschidem baza de date 
? CIF IDBUSED("vinzari") i 
2 2 | OPEN DATABASE "kdatabasetvinzari” SHARED 
= ENDIF 
OSET DATABASE TO vinzari && BD vinzari devine curenta 
: 57" peschidem tabelele 
A di! IUSED("facturi”) 
—— USE facturi IN O SHARED 
ENDIF 
IF IUSED("incasfact") 
USE incasfact IN 0 SHARED 
ENDIF 
SELECT facturi 
GO TOP i 
? "factura nr. ”, "valoare cu TVA", "valoare incasata", "valoare de incasat” 
DO WHILE NOT EOF() 
nrf=facturi.nrfact 
valfact=facturi.valftva*1.19 
SELECT incasfact 
SUM TRANSA TO valincas FOR nrfact=nrf 
? nrf, valfact, valincas, valfact-valincas 
SELECT facturi 
SKIP . 
ENDDO 
SET TALK ON 
CLOSE TABLES ALL 
CLOSE DATABASE 


TEE EEIEIEE EI ESEIA AA EEA AEAEE EAA 


În locul combinației DO WHILE NOT EOF () şi SKIP se poate utiliza structura 
SCAN...ENDSCAN, care are avantajul că nu necesită o poziționare prealabilă Ja începutul 
tabelei şi realizează un avans automat la înregistrarea următoare. Partea din codul-sursă 


scrisă în caractere bold se poate modifica după cum se arată în listingul 4.7. 


Listing 4.7. Varianta cu scan Şi SUM 


| SELECT facturi 
? "factura nr. *, "valoare cu TVA", “valoare incasata”, "valoare de incasat" 
SCAN i 
nrf=facturi.nrfact 
valfact=facturi.valftva*1.1 9 
SELECT incasfact 
SUM TRANSA TO valincas FOR nrfact=nrf 
? nrf, valfact, valincas, valfact-valincas 
SELECT facturi 
ENDSCAN 
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În plus, comanda SCAN permite chiar parcurgerea condiţională a tabelei (SCAN NEXT 
3 înseamnă în cazul de mai sus consultarea situației primelor trei facturi). În acest program 
am beneficiat şi de pe urma comenzii SUM, fără de care programul ar fi fost mai complicat 
şi mai greu lizibil, din cauza prezenţei unei structuri repetitive suplimentare. Redăm în 
listingul 4.8, cu caractere bold, porţiunea modificată. 


Listing 4.8. Varianta fără comanda SUM 


SELECT facturi 
? “factura nr. ", "valoare cu TVA", "valoare incasata”, 
SCAN 
nrf=facturi.nrfact 
valfact=facturi.valftva”*1.19 
valincas=0 
SELECT incasfact 
GO TOP : : 
DO WHILE NOT EOF{}) e e 
LOCATE FOR nrfact=nrf i 
IF FOUND() 
valincas=valincas+transa 
DO WHILE NOT EOF() 
CONTINUE 
valincas=valincas+transa 


nn 


valoare de incasat” 


ENDDO 


ENDIF 
ENDDO 
? nrf, valfact, valincas, valfact-valincas 
SELECT facturi 
ENDSCAN 


În interpretarea acestui program trebuie să ţineţi cont și de faptul că, dacă instrucțiunea 
LOCATE /CONTINUE nu găseşte nici o înregistrare care îndeplineşte condiția spécificată; 
„atunci funcția EOF () are valoarea . T. 
Variantele de program prezentate mai sus nu prea respectă schema logică, în care 
calculul valorii încasate pentru fiecare factură se realiza printr-o funcție distinctă. O 
variantă modulară a programului este oferită în listingul 4.9. 


Listing 4.9. Variantă care foloseşte o procedură şi funcţie definită de utilizator 


* program pentru afisarea situatiei incasarilor — varianta structurată 
CLEAR 
SET TALK OFF && pentru inhibarea afisarii mesajelor-sistem 
STORE 0 TO nrf, valfact, valincas 
* deschidem baza de date 
IF IDBUSED('vinzari”) 

OPEN DATABASE "k:databasevwinzari” SHARED 
ENDIF 
SET DATABASE TO vinzari && BD vinzari devine curenta 
* deschidem tabelele 
IF !1USED("facturi”) 

USE facturi IN O SHARED 
ENDIF 
IF IUSED("incasfact”) 

USE incasfact IN O SHARED 
ENDIF 


iara rit iati ar Ei 
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SELECT facturi 
? "factura nr. ”, "valoare cu TVA", "valoare incasata“, "valoare de incasat" 
SCAN 
DO calculeaza_si_afiseaza 
ENDSCAN 
SET TALK ON 
CLOSE TABLES ALL 
CLOSE DATABASE 


PRR PERIE redresa 


PROCEDURE calculeaza_si_afiseaza 
nrf=facturi.nrfact 
valfact=facturi vaiftva*1.19 
SELECT incasfact 
valincas=insumeaza_valoare(nrf) 
? nrf, valfact, valincas, valfact-valincas 
SELECT facturi 

ENDPROC 


EI E DEDE IRI RER B E E EE E E ERE A RE e A Ae A eee 


FUNCTION insumeaza_valoare 
PARAMETERS nr 
STORE 0 TO vi 


SUM TRANSA TO vi FOR nrfact=nr 
RETURN vi 


„Oricare ar fi varianta utilizată, rezultatul execuţiei arată ca în figura 4.12. 


factura nr. valoare cu TVA valoare incasata valoare de incasat 

1111539962500 5399625 0.00 
1112  1337560.00 487705 349855 09 
1113 1160250000 1150250 0.00 
1114 6786570.00 O  5786570.00 
1115 1651125.09 0 1651125.00 
1116 1383375.09 Q  1383375.00 
1417 2320500.00 2320500 0.00 
1118  2052750.00 2052750 0.00 
1119  7242935.00 G 7242935000 
1120  1066240.00 731557 334683.00 
5438276.20 O 5438276.20 

0.00 D 0.00 


Figura 4.12. Situatia încasării facturilor 


O variantă mult mai simplă (folosind instrucțiuni SQL) se obţine prin combinarea a 
două comenzi SELECT: prima cumulează tranşele încasate din fiecare factură, a doua 


efectuează o joncțiune externă între tabela FACTURI și tabela temporară cu încasări 
cumulate, 
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Listing 4.7 bis. Varianta cu interogări SQL 


Eee e ep ee re ee e e ee ee e e re e e E DEEA RE ta ei e 


CLEAR 
* deschidem baza de date 
IF IDBUSED('vinzari”) 
OPEN DATABASE "k:ldatabase'wvinzari" SHARED 
ENDIF 
SET DATABASE TO vinzari && BD vinzari devine curenta 


* selectam intr-o tabela temporara incasarile grupate pe facturi 
SELECT nrfact, SUM(TRANSA) AS va!_incasata ; 

INTO CURSOR temp ; 

FROM incasfact GROUP BY nrfact 


* efectuam o jonctiune externa 
* cu tabela FACTURI 
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* tetuluri facturi pe clienti Para utilizarea îi 2l 
if not used('clienti!) 

use clienti in 0 
endif 


select clienti 
go top 


do while not eof() 
Vtotal _client= funct_total _slient (clienti. codcl) } : 
messagebox (!'Totalul Facturat pentru clientul :'+clienti,dencl+'este : ; 
+str (Vtotal client), 64, Mesaj") 
select clienti |] 
skip 
enddo PER =) 


* (sunt si facturi pentru care nu este nici o plata) 

SELECT F.nrfact AS factura_nr, F.valftva*1,19 AS val_cu_tva, ; 
NVL.(val_incasata,0) as val_incasata, ; 
NVL(F valftva*1.19-val_incasata,0) AS val_de_incasat ; 
FROM facturi F LEFT OUTER JOIN tempi T ON T.nrfact=F.nrfact 


CLOSE TABLES ALL 
CLOSE DATABASE 


DER PE Se SE IE AE PP eee e e dee IER ee e eee je tele ee 


sil 


Aţi observat în programul de mai sus utilizarea frecventă a caracterului „punct şi 
virgulă” folosit în scopul fragmentării pe mai multe rânduri a unei comenzi lungi. 


Exemplul 2 

Pentru evidențierea modului de lucru cu funcţii, precum şi a câtorva dintre structurile de 
control enumerate anterior vom recurge la exemplul calculului totalului facturat pe fiecare 
client în parte, varianta „pură xBase” (fără utilizarea SQL). Pentru îndeplinirea acestui 
obiectiv vom parcurge următorii paşi: 

e construim o funcție (Punct tot factura — figura 4.15) care totalizează liniile 
unei facturi inclusiv TVA (procentul este luat din tabela PRODUSE pentru fiecare 
produs în parte), ce va avea ca parametru numărul de factură; 

e construim o funcție (Funct_total client — figura 4.14) care totalizează 
facturile fiecărui client primind ca parametru codul clientului şi va apela funcția 
Funct tot factura pentru fiecare factură a clientului x (transmițând ca 
parametru numărul facturii); 

e construim, în final, o procedură (Proc totalfacturat client -— figura 
4.13) care parcurge tabela CLIENTI şi, pentru fiecare client, apelează funcţia 
Funct total client transmițând ca parametru codul clientului curent şi 

afişând apoi un mesaj cu totalul clientului respectiv. 


parameters Pcodcl_ 


if lusad('facturi!) 
use facturi in O 
endif 
select facturi 
vtotal_facturi=9 
scan for codci=Pcodcl_ 
vtotal facturi=Vtotál _facturi+funct_ tet _factura (facturi. nrfact) 
select facturi 
endscan 


return Vtotal facturi 


Figura 4.14. Funcţia de calcul al totalului facturat pentru un client 


parameters Pnrfact_ 
if lused{'liniifact') 

use liniifact in 0 
endif 


if iused{'preduse') 
use produse in 0 
endif 


select liniifact 
vrotal factura=9 


scan for nrfact=Pnrfact, 


total _fara_tva= cantitaterpretunit f AAE EET 
vlui pe linia E ala e codului curent in Frog 


* pozitici 
cauta 
tva_=produse. E fara_tva 
Vtotal_factura=Vtotal facturattotal_ fara_tvattva_ 
select liniifact 
endscan 


return vtotal_ factura 


eu iu julia i 3 


Figura 4.15. Funcţia de calcul al totalului unei facturi 


104 Visual FoxPro 


4.6. Macrosubstituţia: într-un cuvânt, mai multă putere 


Putem spune că macrosubstituţia este „mană cerească” pentru orice dezvoltator de 
aplicații mai „răsărite” care se confruntă continuu cu problema generalizării modulelor. 
Unul dintre obiectivele urmărite la o aplicație poate fi: cât mai puțin cod-sursă care să 
răspundă unor necesităţi cât mai variate şi în cât mai multe moduri posibil. Cu alte cuvinte, 
o aplicație informatică profesională trebuie să vină în întâmpinarea cerinţelor noi ale 
utilizatorilor şi chiar trebuie să le provoace pentru a-i mulțumi pe deplin. Programatorul nu 
trebuie întotdeauna să identifice şi să codifice opțiuni statice pentru necesităţi specifice, ci, 
de multe ori, trebuie să aibă o viziune largă asupra spectrului de posibile opţiuni şi cerințe 
şi să construiască module cu un comportament dinamic, flexibile şi în acelaşi timp fiabile 
(in limita posibilului). 

Aşadar, macrosubstituția dotează cu un comportament dinamic diverse obiecte ale unei 
aplicaţii. Ea se realizează prin utilizarea semnului & (ampersand) înaintea unei variabile de 
tip caracter. Această variabilă stochează o instrucțiune sau o expresie evaluabilă și se 
execută astfel: 

&nume-variabilă 

Spre exemplu, secvența următoare este introdusă în fereastra de comandă: 

x='1+1' 
? X 
? &XxX 

Ea va avea următorul rezultat (vezi şi figura 4.16): 

e se creează variabila de tip caracter „X” şi i se atribuie șirul de caractere „1+1”; 

ə în fereastra principală se va afişa (comanda ?) şirul ca atare: 1+1; 

e în fereastra principală se afişează numărul 2 ca rezultat al evaluării expresiei „1+1”. 

De asemenea, secvențele: i 

x="liniifact! 
use &x in 0 
sau 
x= 'use liniifact in 0! 
&X 
vor avea ca rezultat deschiderea tabelei LINIIFACT. 


Fila Edit Vizu Fornal „„Toals Program. Window. - -Help 


Afişarea rezultatului interpretării şi execuției 
conţinutului variabiiei x 


Figura 4.16. Exemplu de macrosubstituție 
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Piciu = au bona id cd a 


Accentuăm faptul că şirul de caractere atribuit variabilei ce va constitui sursa 
macrosubstituţiei trebuie să fie o expresie corectă din punct de vedere sintactic şi interpre- 
tabilă de compilatorul Visual FoxPro. Şirul respectiv nu poate conţine el însuşi semnul &. 

Următoarele listinguri sunt, sperăm, suficient de concludente pentru a demonstra 
utilitatea fantastică a acestui instrument numit macrosubstituţie şi pe care, din păcate, nu-l 
regăsim în multe SGBD-uri sau limbaje de programare. 


Listing 4.10. Deschiderea tuturor tabelelor bazei de date curente 


* exemplu de cod generalizat pentru | 
* deschiderea tabelelor unei baze de date 
* varianta cu macrosubstitutie & 
CLOSE TABLES ALL 
clear 

* extragem din containerul bazei de date(este tot o tabela) numele tabeleior 
OPEN DATABASE "k:aplicatieldatabaseWwinzari” SHARED 
“funcția ADBOBJECTS populeaza un vector cu obiectele bazei de date curente 
ADBOBJECTS(vTabele, "TABLE”) 
FOR i= 1 TO ALEN(vTabele,t) 

USE &vTabeleți) IN Q 


|___ENDFOR RA 


În listingul 4.10 s-a utilizat una din multele funcții „utilitare” ale Visual FoxPro, anume 
ADBOBJECTS (nume-tablou, tip-obiect), care are rolul de a plasa într-un tablou 
numele obiectelor din baza de date deschisă. Filtrarea acestor obiecte depinde de valoarea 
celui de-al doilea argument al funcției, care poate fi „TABLE”, „VI EW”, „RELATION” sau 
„CONNECTION”. În exemplul nostru s-a optat pentru tabele 

Producătorul mediului Visual FoxPro recomandă înlocuirea (acolo unde este posibil) a 
macrosubstituției (considerată lentă) cu „numele de expresii” (named expressions). Acestea 
reprezintă o convenție de includere a unei variabile de tip şir de caractere între paranteze, la 
execuţie evaluându-se nu şirul de caractere, ci variabila sau constanta reprezentată de 
acesta, ca în listingul 4.10 bis. Diferenţa este linia scrisă cu caractere bold. 


Listing 4.10 bis. Deschiderea tuturor tabelelor bazei de date curente (varianta 2) 


* exemplu de cod generalizat pentru i 
* deschiderea tabelelor unei baze de date 
* varianta cu „named expression” 
CLOSE TABLES ALL 
clear 
* extragem din containerul bazei de date(este tot o tabela) numele tabelelor 
OPEN DATABASE "k\aplicatie\database\inzari" SHARED 
“functia ADBOBJECTS populeaza un vector cu obiectele bazei de date curente 
ADBOBJECTS(vTabele, "TABLE") 
FOR i= 1 TO ALEN(vTabele,1) 
USE (vTabele(i)) IN 0 
ENDFOR 


Alt exemplu: 
strAstazi="Astazi este ” + dtoc(date()) 
?(strAstazi) 
În fine, oarecum asemănătoare macrosubstituției este şi funcția 
EVALUATE (<expresie-de-tip-caracter>). De data aceasta expresia trebuie 
scrisă între ghilimele: 
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strAstazi="Astazi este " + dtoc(date()) 
?evaluate ("strAstazi") 
Alte exemple în care macrosubstituția constituie o soluţie salvatoare vor fi prezentate în 
capitolul 5, consacrat dialectului SOL din Visual FoxPro, precum şi în capitolul 7, partea 
rapoartelor dinamice. 


4.7. Importul şi exportul de date 


Instrucţiunile pentru acces la fişiere de tip bază de date au fost tratate în capitolele 
ulterioare. Visual FoxPro are şi facilități pentru lucrul cu fişiere de tip text (ASCII) şi 
fişiere binare. 


Accesarea fişierelor ASCII în Visual FoxPro 
Pentru afişarea unor fişiere text se poate utiliza comanda TYPE <nume- 
fisier.extensie>, care este asemănătoare ca efect cu comanda TYPE din MS-DOS. 
Comenzile 
COPY TO <nume-fişier> TYPE <tip-fişier> 
şi 


APPEND FROM <nume-fişier[.extensie]> [TYPE <tip-fişier>] 
se pot folosi pentru exportul/importul de date din tabele .abf către o multitudine de 
formate, printre care şi cel text (ASCII). 

Dispunem de un fişier ASCII prezentat în figura 4.17. 


dij lisier 1 tat Nateg 

Fie: Edit Format - Help." EAR 
{Peter Green" 29/10/1946 “Londra” 
“Jeremy Spencer” 04/07/1948 "Hartlepool" 
“John Mevie” 26/11/1945 "Londra" 

i"mick Fleetwood” 24/06/1947 “Redruth” 


l 


Figura 4.17. Fişier ASCII de tip delimited with blank 


Acest fişier are o structură „tradițională” formată din câmpuri, dintre care cele de tip şir 
de caractere sunt încadrate de ghilimele. Este un format foarte răspândit, alături de cel CSV 
(comma-separated values) — vezi figura 4.18, la care rolul de delimitator este jucat de 
virgulă, iar prima linie conţine numele câmpurilor. 
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“ Ele “Edit: Foimat Help. SE 
nume, datanast, localitate E $ 

Į Peter Green", 29/10/1946, "Londra ` 
"deremy Spencer ", 04/07/1948, “Hartlepool 
i“ John Mevie", 26/11/1545, "Londra 


"mick Fleetwood", 24/06/1947, "Redruth" 


Figura 4.18. Fişier ASCII de tip csY (comma-separated values) 


Avem nevoie să importăm aceste date într-o tabelă, a cărei structură am creat-o în 
prealabil şi care arată astfel: 

NUME, C, 40 

DATANAST, D (8 octeți, dar nu se scrie) 

LOCALITATE,. C, 20 

Vom concepe, în vederea importului, programul din listingu! 4.11. 


Listing 4.11 


* program pentru importul din fisiere ASCII 
se ee e e se e e e e ee pe e e de ee e e de Fe e ee e e e e e e e de e dr es de de e Se rd de e ee 
* deschidem baza de date 
IF IDBUSED("vinzari”) 
OPEN DATABASE "k:idatabasewinzari” SHARED 
ENDIF 
~ deschidem tabela de test 
IF IUSED("teste_diverse"”) 
USE teste_diverse IN 0 SHARED 
ENDIF 


SELECT teste_diverse 
* importam textul din fisierul ASCII 
APPEND FROM "k:fisieri txt" DELIMITED WITH BLANK 
* adaugam inca o persoana 
APPEND BLANK 
REPLACE nume WITH "Christine Perfect”,; 
datanast WITH (11943-07-12), ; 
localitate WITH "Grenodd” 
* afisarn rezultatul 
BROWSE TITLE "Apasati ESC pentru continuare..." 
* inchidem tabela 
USE 


Dre fre RR PE Dee e A FE BE E AE Ae Ae H Be e e IER RI DE A IER RER 


Dacă se doreşte importul din cea de-a doua variantă de fişier (numele fiind 
fisier2. txt), linia marcată cu caractere bold se va înlocui cu linia: 

APPEND FROM "k:\fisier2.txt" TYPE CSV 

Oricare ar fi varianta de program, rezultatul arată astfel: 
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Figura 4.19. Rezultatul comenzii APPEND FROM la importul unui fişier text 


Avem nevoie să exportăm aceste date într-un alt format, să zicem o foaie de calcul 
Excel 5. Această problemă se rezolvă prin comanda COPY TO, după cum se arată în 
programul din listingul 4.12: 


Listing 4.12 
* program pentru exportul datelor dintr-o tabela 


RARI RR RPR TA DE D HE BE E REPER LII ea în ek 


* deschidem baza de date 
IF IDBUSED("vinzari”) 
OPEN DATABASE "k:databaselwvinzari” SHARED 
ENDIF 
* deschidem tabela de test 
IF IUSED('teste_diverse”) 
USE teste_diverse IN O SHARED 
ENDIF 


SELECT teste_diverse 

* exportam primele 3 inregistrari 

GO TOP && prima inregistrare 

COPY TO „k\export1.xis” type XL5 next 3 
USE 


Ser Pe e re e dr bete e e e e e de ee e PE e Se RT DER Ae A E E E e tii 


Rezultatul arată ca în figura 4.20 (sunt exportate numele câmpurilor pe prima linie). 


T Înume „_datanast localitate PLEIE NR 

2 [Peler Green SA O7IS45]Longra E atent Ai EA 

3 Jeremy Spencer. 04737/1948 Hartlepool PE EA 
_4 John McVie 26/11/1945 Londra y 
E 


Figura 4.20. Rezultatul exportului către o foaie de calcul Excel 


Pentru crearea de fişiere text există şi varianta folosirii comenzilor „N”, respectiv „\\”. 
a 


Deosebirea dintre cele două variante este aceeaşi ca la comenzile „?” și „? 2”. Comenzile N 
şi NN se utilizează în combinație cu comanda SET TEXTMERGE. Astfel, dacă vom lansa 
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comanda SET TEXTMERGE ON, variabilele incluse între semnele << >> vor fi evaluate 
şi înlocuite cu valoarea lor; în caz contrar, vor apărea în text ca atare. Comanda SET 
TEXTMERGE. TO <nume-fişier,txt> are ca efect redirecţionarea ieșirii comenzii 
(trimiterea textelor în fişierul text specificat în loc de ecranul principal Visual FoxPro). 
Anularea acestui comportament se face cu SET TEXTHERGE TO (care închide fişierul) şi 
SET TEXTMERGE OFF (care încetează evaluarea variabilelor dintre semnele << >>). 


Listing 4.13 


* program de test pentru interclasare 
CLEAR 
if !DBUSED('vinzari) && daca baza de date nu-i deschisa 
OPEN DATABASE 'GatabaSsewingan SHARED && cale relativa: BD vinzari 
&& din directorul database 


ENDIF 

IF IUSED( Clienti”) && daca tabela clienti nu-i deschisa 
USE clienti IN 0 SHARED 

ENDIF 


SELECT clienti - 


SET TEXTMERGE ON 

SCAN FOR RECNO()<=4 && parcurgem primele 4 linii ale tabelei 
Clientul ce are codul 

N <<ALLTRIM(str(codci))>> 

\\ se numeste <<ALLTRIM(dencl)>> 

\\ cu sediul pe 

\ <<ALLTRIM(adresa)>>, cod <<ALLTRIM(codpost)>> 


ENDSCAN 
SET TEXTMERGE OFF 


CLOSE ALL &&inchide tabelele si baza de date 

Programul foloseşte şi funcțiile  DBUSED(<nume-bază-de-date>) şi 
USED (<nume-tabelă>), care permit să verificăm dacă o bază de date, respectiv o 
tabelă, sunt sau nu deschise. Şi încă ceva: operatorul logic NOT în Visual FoxPro se poate 
înlocui cu semnul exclamării „!”, deci ! USED () este acelaşi lucru cu NOT USED (). lată 
rezultatul, în figura 4.21: ` 
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Clientul ce are codul 1001 se numeste Client 1 SRL cu sediul pe Tranzitiei, 13 bis, cod 6600 
Clientul ce are codul 1002 se numeste Client 2 SA cu sediul pe , cod 8600 

Clientul ce are codul 1003 se numeste Client 3 SRL cu sediul pe Prosperitatii, 22, cod 6500 
Clientul ce are codul 1004 se numeste Client 4 cu sediul pe Sapientei, 56, cod 5725 


Figura 4.21. Rezultatele execuţiei programului din listingul 4.13 


Dacă linia scrisă în bold (vezi listingul 4.13) se înlocuieşte cu liniile: 

SET TEXTMERGE ON 

SET TEXTMERGE TO 'iesire.txt' 
în loc de un rezultat afişat pe ecran se va obţine fişierul iesire. txt, în directorul curent, 
cu exact acelaşi conţinut. 
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Comenzile SET TEXTMERGE, „” şi „N ” merită a fi luate în seamă atunci când dorim 
să efectuăm o interclasare (ca de pildă trimiterea unei scrisori cu conţinut standard către toţi 
clienţii). Comenzile COPY TO..., APPEND FROM..., N şi NN sunt utile atunci când 
avem nevoie să facem schimb de date cu aplicaţii de pe alte platforme. Formatul ASCII 
este universal, pe când formatele dbf, .x1.s, .wks şi altele similare nu sunt. 


4.7.1. Accesarea fişierelor binare în Visual FoxPro. Recuperarea datelor 
din tabele cu antetul (header-ul) eronat 


Veţi avea probabil nevoie de asemenea facilități în cazul în care doriți să realizaţi o 
aplicaţie mai sofisticată. Ca şi un fişier ASCII, un fişier binar este un şir de octeți pe disc, 
dar spre deosebire de primul, în care fiecare octet reprezintă un caracter (literă sau cifră), 
aici octeţii au semnificaţii diferite. În Visual FoxPro, un număr se memorează pe 8 octeți 
(similar cu tipul Windows DWORD — double din C++ sau Basic), o dată de tip logic pe 1 
octet, un şir de caractere pe atâţia octeți câte caractere are etc. 

În citirea/scrierea unui fişier binar, de o importanță capitală sunt pointerul și depla- 
samentul (offer). Pointerul este un fel de indicator ce arată poziţia în fişier, iar offset-ul, un 
număr de octeți numărați de la începutul fişierului. Astfel, dacă ştim că un fişier binar 
începe cu un număr şi dorim să-l citim, trebuie să avansăm cu 8 octeți printr-o instrucțiune 
adecvată (operaţiile de citire-scriere produc şi avansul pointerului). În Visual FoxPro, 
fişierele binare sunt accesate printr-un set de funcții numite funcții pentru acces low-level. 

Funcţia FOPEN (<nume-fişier>[,atribut)]) returnează un număr ce poate fi 
folosit ulterior deschiderii fişierului specificat, ca şi alias pentru fişier şi care în paginile 
următoare va fi referit ca număr-fişier (denumirea consacrată este file handler). Dacă 
fişierul nu a putut fi deschis, atunci rezultatul acestei funcții este —1. 


Tabelul 4.2. Moduri de deschidere a unui fişier binar 


Co Roca Oy (implici | eu buer OOOO 


Write-Only fără buffer 
Read / Write fără buffer 


Dacă nu se specifică o valoare pentru atribut, se consideră 0, deci „mod de acces 
read-only cu buffer”. i ; 

Funcția FCREATE((<nume-fişier>[,atribut]) are rolul de a crea (Şi 
deschide) un fişier cu numele specificat. Dacă acelaşi fişier există deja, el este distrus. 
Argumentul atribut poate lua una dintre valorile din tabelul de mai jos, cu semnificaţiile 
respective. 


Tabelul 4.3. Atribute posibile la crearea unui fişier binar 


| Atribut | Atributele fişierului creat 
Read-Write (implicit) 
Read-Only 
Hidden 
Read-Only/Hidden 
System 
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Atributele fişierului creat 
Read-Only/System 


S 
{6 | System/Hidden 
Read-Only/Hidden/System 


O dată fişierul deschis, putem scrie în el cu ajutorul funcțiilor: 
FWRITE (număr-fişier, expresie[,număr- octeți-~-đe-scris}]) 
sau 
FPUTS (număr-fişier, expresie[,număr- octeți-de-scris}]). 
Ambele funcții returnează un număr ce înseamnă numărul de octeți scrişi în fişier 
(0 dacă scrierea nu a putut avea loc). FPUTS scrie ca ultim caracter o combinaţie carriage- 
returmn+formfeed (CRLF sau avans de linie, care în Visual FoxPro se simulează prin 
CHR (13) +CER (10)). 
Pentru citire se pot folosi funcţiile: 
FREAD (număr-fişier, număr-octeţi-de-citit) 


sau 
FGETS (număr-fişier[,număr-octeţi-de-citit)), 

A doua funcție citeşte octeții până la perechea de caractere CRLF, dacă nu s-a specificat 
altfel prin argumentul număr-octeţi-de-citit. 

Deplasarea într-un fişier binar are loc cu ajutorul funcției: 

FSEEK(număr-fişier, deplasament-ca-nr-de-octeţi [, 
poziţie-relativă]) i 
care „sare” un număr specificat de octeți, începând de la poziţia indicată prin cel de-al 
treilea argument. Acesta poate avea una dintre valorile 0 (începutul fişierului), 1 (poziția 
curentă) sau 2 (sfârşitul fişierului). Rezultatul funcției arată deplasamentul (în octeți) față de 
începutul fişierului. ; 

Funcția FEOF (număr-fişier) returnează .T. sau . F., după cum ne aflăm sau nu 
la sfârşitul fişierului. Utilă este şi funcţia FFLUSH (număr-fişier), ce are misiunea de 
a scrie informaţiile din buffer pe disc, în cazul accesului „bufferizat” la fişierul binar. În 
fine, funcţia PCLOSE (număr- fişier) realizează închiderea fişierului specificat. 

Utilitatea acestor comenzi pentru un programator de FoxPro se poate dovedi în mai 
multe cazuri. Vom analiza aici o problemă legată de coruperea formatului unui fişier .DBE, 
care face imposibilă deschiderea sa cu USE. 

Dispunem de tabela teste diverse.DBF, a cărei structură ştim că arată astfel; 

NUME, C, 40 E 

DATANAST, D (8 octeți) 

LOCALITATE, C, 20 ` 

Header-ul unei tabele .DBF (zonă cu metadate) memorează multe informații importante 
(numele bazei de date de care aparține tabela, numărul de câmpuri, numărul de înregistrări, 
numele şi ordinea câmpurilor etc.). Presupunând că header-ul unei tabele a fost compromis 
accidental și, ca urmare, comanda USE nu mai funcționează, ne revine misiunea de a 
recupera cât mai mult din datele rămase în tabelă. Acest lucru nu este imposibil cu puţin 
exercițiu în folosirea funcţiilor /ow-leve/. Trebuie să cunoaştem structura tabelei 
(câmpurile, cu tipurile şi lungimile lor) şi câte ceva despre formatul unui fişier .DBF (de 
mare ajutor aici ne este sistemul de help al Visual FoxPro; Programmer! sGuide— 
Appenaix—TableFileStructure). Aflăm de aici că header-ul unei tabele are o 
lungime de 296 octeți+ 32 octeţi*numărul de câmpuri din structură. 
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În cazul nostru sunt 3 câmpuri, deci header-ul tabelei are o lungime de 296+32*3=392 
octeți. Datele propriu-zise vor începe de la octetul 393. Firește, în loc de toate aceste 
calcule am fi putut utiliza funcția HEADER  (<nume-tabelă>), care returnează chiar 
dimensiunea în octeți a header-ului tabelei, dar reamintiți-vă că aceasta funcţionează doar 
pe tabele valide, care se pot deschide cu USE. - 

Secvența de cod pe care o vom prezenta în listingu! 4.14 deschide fişierul în mod binar, 
sare peste primii 393 de octeți (mărimea calculată a header-ului), execută citirea câmp cu 
câmp şi afişează datele citite direct pe ecranul principal Visual FoxPro. 


Listing 4.14. Program pentru citirea unor date în format binar 


CAE 2 ERIE EI EREI ZAC PL PI Ea E Bl AC IER ON IRI i CREADA 
* incercare de recuperare a datelor dintr-o 


* tabela .DBF compromisa 
* numele si structura tabelei: 
* TESTE_DIVERSE(nume, C(40), datanast D, localitate C(20)) 
CLEAR 
* deschidem fisierul (extensia e obligatorie) 
nTabela=FOPEN("k:ldatabaselteste_diverse.dbf") 
IF nTabela=-1 
MESSAGEBOX("Nu pot deschide fisierul. Exista sau e cumva deschis deja?") 
ELSE i 
* deplasare 392 de octeti (296+3cimpuri*32octeti per camp) 
FSEEK(nTabela,392) 
* in fiecare inregistrare primul octet 
* constituie marcajul de stergere 
marcaj=FREAD(nTabela,1) 
* citim tabela pana la sfarsit 
DO WHILE NOT FEOF(nTabela) 
camp1=FREAD(nTabela,40) 
camp2=FREAD(nTabela,8) 
camp3=FREAD (nTabela, 20) 
? marcaj, campi 
?? DATE(VAL(LEFT(camp2,4)),VAL(SUBSTR(camp2, 5,2)), VAL(SUBSTR(camp2,7,2))) 
27", camp3 
* citim primul octet de pe inregistrare: dupa ultima inregistrare 
* el nu mai este marcaj de stergere, ci caracterul EOF 
marcaj>FREAD(nTabela, 1) 
ENDDO 
* inchidem fisierul 
FCLOSE(nTabela) 


ENDIF 


Rezultatul execuției este prezentat în figura 4.22. Asteriscul de lângă prima înregistrare 
arată marcare pentru ştergere. De observat că în cazul câmpului de tip dată calendaristică 
s-a efectuat o retratare cu ajutorul funcțiilor pentru lucrul cu șiruri de caractere: LEFT () şi 
SUBSTR (), funcţiei de conversie din şir de caractere în număr VAL () şi funcţiei DATE 
(an, lună, zi). Acest lucru a fost necesar deoarece în fişier, data calendaristică se 
stochează ca un şir de octeți în forma AAAALLZZ. 
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Peter Green "29/10/1946 Londra 
Jererny Spencer 04/07/1948 Hartlepool 
John Movie 2641141945 Londra 
Mick Fleetwood 24/06/1947 Redruth 
Christine Perfect 120771943 Grenodd 


Figura 4.22. Date recuperate din fişierul teste_diverse. dbf 


Deocamdată afişarea a avut loc pe ecran. Cu titlu de exercițiu, încercați să „treceţi pe 
curat” (într-o tabelă cu structură similară) datele recuperate. pis 


4.8. Tratarea erorilor în programele Visual FoxPro 


Putem spune, pe scurt, că erorile dintr-un program sunt de două mari categorii: erori de 
sintaxă (pot fi depistate deoarece împiedică etapele í de compilare şi de execuţie a 
programului) şi erori de execuție, care nu pot fi descoperite înainte de execuţia programului 
(pentru detecția lor, programul se execută folosind date de test, adică date pentru care 
rezultatele prelucrărilor sunt dinainte cunoscute). 


Testarea este activitatea de descoperire a erorilor, iar depanarea este operația de izolare 
şi corectare a acestora. i part AI | 

În realizarea unei aplicaţii, programatorul poate avea în vedere diferite niveluri ale 
robusteţii acesteia: Fă 

+ execuția fără blocaje şi mesaje de eroare derutante pentru utilizatorul final; 

e acțiuni adecvate în scenariile cele mai frecvente; | 

ə posibilitatea unei acțiuni rezonabile sau oferirea unui mesaj de eroare edificator 

pentru o varietate de scenarii; Și f 
=e capacitatea restabilirii aplicației după o acțiune neaşteptată a utilizatorului. | 

Prudența este mama înțelepciunii, aşa că, înainte de a aştepta ca erorile să apară ja locul 
de exploatare a aplicației, realizatorul acesteia trebuie să o verifice, să elimine erorile 
evidente şi să reducă pe cât posibil riscul apariției de noi erori. Studiile au arătat că o 
practică disciplinată de scriere a codului-sursă (folosirea comentariilor şi a liniilor libere, 
respectarea unor convenții pentru denumirea variabilelor şi constantelor etc.) duce la 
reducerea semnificativă a numărului de erori. > 

În al doilea rând, o cale de a preveni erorile la execuţie este codificarea algoritmilor de o 
aşa manieră încât înaintea unei comenzi să aibă loc o verificare minimală a contextului 
acesteia. De exemplu, comada SKIP generează o eroare dacă se întâlneşte sfârşitul tabelei. 
Dar, pentru ca o astfel de eroare să nu apară niciodată, programatorul poate folosi o 
secvenţă de program de forma următoare: 


IF !EOF() 
SKIP 
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ELSE 
GO BOTTOM 
ENDIF 


Visual FoxPro, ca orice mediu de dezvoltare din categoria sa, dispune de mecanisme 
implicite de semnalare a erorilor şi de corecție a acelor erori care nu sunt fatale. Totuși, 
multe dintre erorile Visual FoxPro cer, atunci când survin într-un program, oprirea imediată 
a acestuia. Dar dacă ar exista o procedură care să intre în acțiune automat şi care, în funcție 
de natura erorii, să ofere, prin structuri de control adecvate, căi (mai flexibile) de rezolvare 
a acesteia ? Este imposibil a cunoaşte dinainte multitudinea acestor situaţii. Programatorul 
însă poate acţiona în direcția „adaptării la problemă”, a manipulării unor erori pe care le 
anticipează (lipsa unor fişiere de date, absența unor drepturi de acces etc.). Deci Visual 
FoxPro este dotat cu mecanisme implicite de captare a erorilor, cu un mare caracter de 
generalitate, iar programatorului de aplicaţii îi revine sarcina de a concepe şi pune în 
practică propriile sale module de tratare a erorilor. 

Acest demers al programatorului este favorizat de existența instrucţiunii ON ERROR, a 
cărei sintaxă completă este ON ERROR [comandă] şi se plasează de regulă la începutul 
programelor pentru care dorim o tratare „personalizată” a erorilor. În cazul apariției unei 
erori pe parcursul execuţiei programului, controlul se transferă instrucţiunii de după ON 
ERROR şi nu mai intră în acțiune mecanismul implicit de semnalare a erorilor. Efectul 
acestei instrucțiuni se propagă de la modulul apelant către modulul apelat, deci în cazul 
conceperii unei rutine de tratare a erorilor pentru o aplicație cu mai multe module de 
program, această instrucțiune se plasează în programul principal. 


Notă. ON ERROR are efect şi în fereastra de comenzi. 


Presupunând că procedura destinată tratării erorilor se numeşte trat _erori, 
comanda pentru activarea sa ar trebui să arate astfel: 


ON_ ERROR DO trat_erori 


Dacă vom scrie doar ON ERROR, fără nimic altceva, atunci va avea loc reactivarea 
mecanismului implicit de manipulare a erorilor din Visual FoxPro. 

După cum se arată în figura 4.23, se poate provoca intenționat o eroare prin scrierea 
unei comenzi greşite. 


use nimic 


Figura 4.23. Provocarea intenţionată a unei erori 
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De asemenea, se poate folosi instrucțiunea: 

ERROR număr-eroare [,parametru eroare] | mesa) eroare] | 
pentru a genera o eroare Visual FoxPro al cărei număr se cunoaşte (documentaţia Visual 
FoxPro specifică şi care sunt codurile de eroare). Putem folosi această instrucțiune în 
scopuri de test, ca de exemplu: : 

ERROR 13 —va afișa fereastra din figura 4.24 stânga; 

ERROR 13, „participatii” - va afişa mesajul din dreapta aceleiaşi figuri. 


ETI + Microso Visual Fan 


Figura 4.24. Erori generate de utilizator 


Listing 4.14 bis. Procedura de tratare a erorilor 


* program demonstrativ pentru 

* simularea erorilor 

ON ERROR DO "kiaplicatietprogsitrat_erori.prg” 

USE nimic IN 0 SHARED && stim ca nu exista tabela "nimic" 
ON ERROR 


Urmează procedura propriu-zisă de tratare a erorilor, redusă la cea mai simplă expresie: 
MESSAGEBOX ("A aparut o eroare!") 


La lansarea programului simulare_erori prin comanda DO k: aplicatiei 
simulare _erori.prg va apărea mesajul din figura 4.25. 


„Figura 4.25. Mesajul afişat de procedura trat_erori 


Exemplul prezentat este pe cât de simplu, pe atât de inutil. Că a apărut o eroare am fi 
aflat şi fără să fi folosit această instrucțiune, şi tot n-am fi putut lua măsuri. În cazul de față 
ar fi fost indicat să cerem de la utilizator precizarea tabelei de deschis şi să continuăm 
lucrul. Dar nu ştim ce anume a cauzat eroarea: să fie comanda DO, să fie comanda USE ? E 
util să ştim că, în caz de utilizare a instrucţiunii ON ERROR [comandă], putem afla 
informaţii suplimentare de la următoarele funcţii: 

e  ERROR() — furnizează numărul erorii. Pentru o listă exhaustivă a numerelor de 

eroare, se va consulta documentația ataşată produsului Visual FoxPro (chiar şi 
help-ul în format electronic, la rubrica Reference=Error Messages); 
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e MESSAGE () — returnează textul mesajului de eroare (descrierea erorii). Pentru 
detalii privind multitudinea mesajelor de eroare, sunt valabile observaţiile privind 
sistemul de help. O cale rapidă de aflare a descrierii unei erori este tastarea unei 
comenzi voit eronate în fereastra de comenzi; 

e  LINENO([1]) — obține numărul liniei curente de program, începând cu prima 
linie a programului curent (sau, dacă se scrie LINENO (1), începând cu prima linie 
a programului principal). 


Notă. În numărătoarea liniilor sunt incluse şi liniile de comentarii, liniile de continuare 
(cele care urmează caracterului „punct şi virgulă”) şi liniile vide, 


e  PROGRAM([nivel-program]) sau SYS(16 [,  nivel-program]) 
returnează numele programului în curs de execuţie. Dacă nu se specifică 
argumentul nivel-program, se obține numele programului curent. Dacă se specifică 
0 sau 1, se obţine numele programului principal, iar dacă se specifică altă cifră 
(până la 128), se returnează numele programului de la nivelul respectiv (vezi 
figura 4.26). 3 ; 


*PROGO 
*program principal 


DO prog! 


*PROGI 


DO prog2 


Figura 4.26. Niveluri de imbricare a programelor Visual FoxPro 
Vom rescrie cele două programe ca în listingurile 4.15 şi 4.15 bis. 


Listing 4.15. Programul de test 


* simulare_erori 
* program demonstrativ pentru 
* simularea erorilor 
ON ERROR DO "kAaplicatie\progs\trat_erori.prg" ; 
WITH ERROR(), MESSAGE(), PROGRAM(), LINENOQ 
USE nimic IN 0 SHARED && stim ca nu exista tabela "nimic" 
ON ERROR && dupa terminare, dezactiveaza tratarea erorilor 


Listing 4.15 bis. Procedura de tratare a erorilor 


* trat_erori 

* procedura de tratare a erorilor 

* cateva definitii de constante pentru functia MESSAGEBOX() 
PARAMETERS nreroate, descriere, numeprogram, nrlinie 
4DEFINE CRLF CHR(10)+CHR(13) && ENTER 
#DEFINE MBOK 0 && numai butonul OK 


a 
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D MBOKCANCEL 1 && OK si Cancel 
ADEEINE MBEXCLAMATION 48 && semnul exclamarii 


4DEFINE TITLU "Eroare captata de utilizator” 


* semnalarea erorii BE: 
MESSAGEBOX('Eroare nr. " +ALLT(STR(nreroare)) +", "+ ; 
descriere +CHR(13)+CHR(10)+ ; i 
“in modulul ” + numeprogram + ", pe linia "+ ; 
ALLT(STR(nrlinie)) + ”.",; 
MBOK+MBEXCLAMATION, TITLU 


Figura 4.27. indicarea detaliată a erorii 


Mesajul afişat de subrutina de tratare a erorilor este de data aceasta ceva mai concludent 
(figura 4.27). diac i R 

Oarecum similară folosirii celor patru funcții de mai sus este utilizarea funcției 
AERROR (<nume-tablou>), care populează cu informații detaliate privind eroarea un 
tablou cu 7 coloane. În cazul apariției unei erori „native? Visual FoxPro, tabloul are o 
singură linie (adică este vector). Semnificațiile elementelor sunt prezentate în tabelul 44. l 


Tabelul 4.4. Elementele vectorului de erori 


Numar Descriere y l 
coloană E 4 
| Numeric. Codul erorii (similar funcţiei ERROR { )). 
Caracter. Textul mesajului de eroare (similar funcţiei MESSAGE ( )). 
NULL. Totuși, dacă eroarea are un parametru suplimentar“, conţine textul 
acestui parametru (similar funcţiei SYS (2018) ). 
NULL. Dacă eroarea se referă la o tabelă deschisă, conţine numărul 


respectivei zone de lucru . 

NULL. Totuşi, dacă eroarea este 1539 — „trigger failed”, conţine una 
dintre următoarele valori numerice: 

1 — a eşuat declanşatorul Insert; 

2 — a eşuat declanşatorul Update; 

3 — a eşuat declanşatorul Delete. 


Folosind un vector pentru preluarea erorilor, putem modifica fragmentele de cod 
prezentate mai sus ca în listingurile 4.16 şi 4.16 bis. 


24. De exempiu, un nume de fişier, un nume de variabilă etc. 
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Listing 4.16. Programul de test 


l * simulare_erori versiunea 2 


” program demonstrativ pentru 
* simularea erorilor 
ON ERROR DO "kAaplicatie\progs\trat_erori.prg" ; 
WITH PROGRAM(), LINENO() 
USE nimic IN 0 SHARED && stim ca nu exista tabela "nimic" 


ON ERROR && dupa terminare, dezactiveaza tratarea erorilor 


Listing 4.16 bis. Procedura de tratare a erorilor 


Pr 
* trat_erori versiunea 2 


” procedura de tratare a erorilor - 
PARAMETERS numeprogram, nrlinie 
4DEFINE CRLF CHR(10)+CHR(13) && ENTER 
4DEFINE MBOK 9) && numai butonul OK 
+DEFINE MBOKCANCEL 1 && OK si Cancel 
4DEFINE MBEXCLAMATION 48 && semnul exclamarii 
4DEFINE TITLU "Eroare captata de utilizator" 
:-* preluarea erorii 
AERROR(vErori) && se creeaza automat vectorul „vErori” 
* semnalarea erorii 
MESSAGEBOX("Eroare nr, " +ALLT(STR(vErori(1,1))) +». "+; 
vErori(1,2) +CHR(13)+CHR(10)+ : 
” in modului ” + numeprogram + ", pe linia "+; 
ALLT(STR(nrlinie)) +", ; 
MBOK+MBEXCLAMATION, TITLU) 


ir 


Am recurs totuşi la o variantă combinată AERRORS (), PROGRAM () şi LINENO(), 
deoarece vectorul de erori nu precizează nimic în legătură cu programul şi linia la care a 
apărul eroarea. Este adevărat că aceste informaţii îl privesc mai mult pe programator, în 
etapa de depanare a programului, şi vor avea foarte puțină relevanță pentru un utilizator 
final; de aceea nici nu se recomandă oferirea lor într-o versiune finală a aplicației. 

“Faptul că informăm utilizatorul despre o eroare nu-l ajută cât ar dori acesta. Trebuie să-i 
oferim şi o cale de acțiune. Pentru aceasta, considerând tot cazul de mai sus, va trebui să 
disociem eroarea nr. 1 (lipsă fişier) de alte erori şi să-i aplicăm un tratament special. Vom 
reda în continuare numai varianta modificată a procedurii trat erori, 


Listing 4.17. Varianta îmbunătăţită a tratării erorilor 


” trat_erori versiunea 3 

* procedura de tratare a erorilor 

icioiniooiticăcininiii nicicând AEE E B AEDE RR AO EAA BEA RPR II 
PARAMETERS numeprogram, nrlinie 

#DEFINE CRLF CHR(10)+CHR(13) && ENTER 
#DEFINE MBOK 0 && numai butonul OK 


4DEFINE MBOKCANCEL 1 8& OK si Cancel 
4DEFINE MBRETRYCANCEL 5 && Retry si Cancel 
ADEFINE MBQUESTION 32 && semnul intrebarii 
#DEFINE MBEXCLAMATION 48 && semnul exclamarii 
4DEFINE IDOK 1 && raspuns OK 
4DEFINE IDRETRY 4 && raspuns Retry 
#DEFINE IDCANCEL 2 && raspuns Cancel 


#DEFINE TITLU "Eroare capiata de utilizator” 


* preluarea erorii 
AERROR(VErori) && se creeaza automat vectorul vErori 
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* semnalarea erorii 
O CASE 


CASE vErori(1,1)=1 && file does not exist 
IF IDRETRY=MESSAGEBOX('Nu gasesc fisierul " +vErori(1,3)+*." +CRLF +: 
"i! cautati (Retry) sau abandonati (Cartcel)?", ; 
MBRETRYCANCEL +MBQUESTION, TITLU) 
* functia GETFILE afiseaza dialogul Open (in care alegem un fisier) 
USE GETFILE("DBF”, "Numele fisierului“, "Deschide", O, ; 
"Alegeti un fisier .DBF:") IN O SHARED : 
ENDIF 
OTHERWISE && eroare netratata (inca) 
MESSAGEBOX("Eroare nr. " +ALLT(STR(vErori(1,1))) +". "+; 
vErori(1,2) +CHR(13)+CHR(10)+ ; | 
” in modulul ” + numeprogram + ", pe linia "+; 
+ ALLT(STR(nrlinie)) +.” ; n 
MBOK+MBEXCLAMATION, TITLU) i mă 
ENDCASE i Paa j 


TAT A A E T Pe BEIE R HE DE BEE IR BE Ve r e DE e E DE Pe e k A He e e E E E e e e e e e E DA e AE E e e k RIP He He Do e e Ae e Fe Hee e ee e 


Într-o procedură de acest tip, programatorul poate completa ramurile structurii DO 
CASE..ENDCASE cu alte secvențe de cod care să permită tratarea erorii în funcție de codul 
acesteia. 


4.9. Depanarea programelor cu instrumentul Debugger 


Visual FoxPro dispune de un instrument sofisticat pentru depanarea programelor, numit 
Debugger (depanator), Acesta se apelează fie din meniul Tools—Debuager, fie în mod 
direct, prin lansarea comenzii DEBUG. Indiferent ce mod de apelare veți folosi, va trebui să 
lucraţi într-un sistem de ferestre cu aspectul din figura 4.28. l 

Vom explica pe rând rolul fiecăreia dintre ferestrele vizibile în figură (care pot fi 
ascunse/afişate şi cu butoanele marcate cu cifre între (8) şi (12); __ 

e Trace afişează codul-sursă în curs de testare; i 

e Watch — prezintă valoarea la un moment dat a unor expresii a căror „urmărire” a 
fost specificată anterior de către programator (prin scriere în căsuţa de text Watch 
sau prin drag&drop din orice fereastră care ar conţine expresia dorită); 

e Call Stack — prezintă numele programelor executate, în ordinea apelării 
(modulul cel mai recent apelat este primul în listă), dacă nu sunt module apelate, 
atunci în această fereastră vom avea numele unui singur program; 

e Debug Output — afişează mesajele generate de utilizarea în programe a 
instrucţiunii DEBUGOUT <expresie>; această instrucțiune se poate utiliza 
pentru a marca trecerea printr-o anumită secțiune a codului-sursă; 

e Locals — permite supravegherea valorilor variabilelor locale din procedura în curs 
de testare. 


Pentru a demonstra folosirea acestui puternic instrument, am' recurs la cele două 
programe simulare _erori, respectiv tratare erori. Am inclus în codurile- 
-sursă ale programelor linia DEBUGOUT „Lansare program „ + PROGRAM() ca 
primă linie (ca a doua linie într-o procedură, deoarece prima trebuie să fie neapărat 
declarația PARAMETERS), pentru a urmări în fereastra Debug Output când se apelează 
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fiecare modul. Apoi am încărcat fişierul simulare _erori.prg în febNages prin 
click pe butonul marcat cu (1). 

Lansarea în execuţie a programului încărcat are loc prin click pe butonul marcat cu (2), 
iar oprirea înainte de final, prin click pe butonul marcat cu (3) (vezi figura 4.28). 


După cum se observă, în momentul execuţiei ferestrele depanatorului sunt foarte 
animate: 


e în fereastra Debug Output s-au afişat cele două mesaje de la începutul fiecărui 
modul de program; 


“fi Visual FoxPro Debúgger 
„Ele. Edt „_Bebug Tools „Window Help * 


[Calistack Unavaila 


Figura 4.28. Ferestrele utilitarului Debugger (modul inactiv) 


e înfereastra Call Stack o săgeată indică modulul în curs de execuție; 
e în fereastra Locals sunt afişate variabilele locale din modulul curent (vectorul 
verori a fost expandat pentru a consulta valorile elementelor sale); 
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e fereastra Watch nu conține deocamdată nimic, deoarece nu s-a optat pentru 
urmărirea nici unei variabile; : 

e pe ecran s-a afişat o casetă de mesaj care provine din koed de tratare a erorilor; 

+ în fereastra Trace se afişează codul-sursă al modulului curent, iar un vârf de 
săgeată indică linia în curs de execuție. 


Ii ale alai] 


#DEF INE TITLU Eroare captata de PETE ETP 
* preluarea erorii 4 e 

spa]  AERROR (vErori) E se creeaza automat vector, 
* semnalarea erorii 
DO CASE 
CASE vErori (1,1)=1 St file does nor exist 

H IF., „IDRETRY= HESS AGEBOX "Nu gasesc fisierul n prErori (1,3)+",! 
: "I1 cautati (Retry) sau abandonati (Cancel})?", : 
MBRETRYCANCEL +HBQUESTION, TITLU) 


Value 


perad 
Lansare program SIMULARE_ERORI 
Lansare program TRAT ERORI 


| trat eron.pig 


numeprogiam 


T 

C 

rulinie N 
veient. T N 

verori[ 1.2) “File *k:Animic.dbf' does not exist.“ E 

în = verorgi,3} “kAnimic.gbf LN 
pe veoki 4] NULL. C 
: verori 1,5) NULL. C 
veron t,6} NULL. E 


iii aaa iai ir a a iii ia iai iati E 


Figura 4.29. Program în curs de execuţie în utilitarul Debugger 


În anumite cazuri se doreşte o execuţie pe porţiuni a programului (numai o procedură 
sau numai o funcţie). Pentru a face aceasta, există următoarele posibil ități (vezi 
figura 4.28): 
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e Step into (4) — realizează execuţia pas cu pas a unei funcții sau proceduri — la 
fiecare apăsare pe butonul (2) se execută câte o instrucțiune; 

e Step over (5)-—sare peste funcția (procedura) curentă; 

e Step out (6)— realizează ieşirea din funcția (procedura) curentă; 

e Run to cursor (7) — execută programul până la poziţia curentă a cursorului 
(care se stabileşte executând click în fereastra Trace, pe linia dorită). 


Observaţi e: viteza de execuţie a programului poate fi influențată de variabila de 
mediu _THROTYILE, Valorii acestei variabile îi corespunde o pauză între două linii de 
cod succesive, variind de la O (fără pauză) la circa 5,5 secunde. Valoarea acestei 
variabile se poate modifica din fereastra de comenzi, de exemplu _THROTTLE=0. 5, 


Uneori e nevoie să suspendăm execuția programului într-un anumit punct şi să 
verificăm anumite condiţii ori valoarea anumitor expresii. Într-o formă rudimentară, aceasta 
se poate face prin plasarea unei instrucțiuni SUSPEND în punctul dorit din codul-sursă În 
atare condiţii, execuţia programului se opreşte şi dacă el este executat în mod normal (nu 
neapărat în depanator). După verificarea condițiilor respective, programul poate fi reluat 
prin comanda RESUME (în fereastra de comenzi, dacă programul se execută în mod direct) 
ori prin butonul (2), dacă execuţia are loc în depanator. Oprirea execuţiei are loc prin 
comada CANCEL (în fereastra de comenzi) sau prin butonul (3), dacă execuția are loc în 


Break at location i zi 
Break at location if expression is true i 


at "simulare _erori, 7 {simulare_eror pig)" ; 
dJ [7] at "simulare_erori, 4 (simulare_erori.prg)" 


= Ș Die | 


x Remove: | 


i Dea: A | 


d it 


aa Display bieakpoint messages = z 


Figura 4.30. Dialogul Breakpoints 
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O modalitate de suspendare a execuției mult mai elegantă este stabilirea de puncte de 
oprire (breakpoints) în codul-sursă, prin poziţionarea cursorului în fereastra Trace, pe 
linia dorită şi prin click pe butonul Toggle Breakpoint (marcat cu [13] în figura 4.28). 
În marginea stângă a ferestrei Trace va apărea un punct roşu, în dreptul liniei respective. 
Același lucru se poate face şi prin dublu-click în chiar marginea stângă a ferestrei Trace, 
la linia dorită. O apăsare repetată a butonului (13) are ca efect anularea punctului de oprire, 
iar butonul marcat cu (14) permite anularea tuturor punctelor de oprire din program. Dacă 
se doreşte specificarea unor puncte de oprire sofisticate (care să intre în acțiune numai la 
întrunirea unor, condiţii [Break if., Break when..] ori la a n-a parcurgere, de 
exemplu), se poate folosi butonul Breakpoint Dialog (15), a cărui apăsare afişează o 
fereastră pe care o putem vedea în figura 4.30, 

Evaluarea performanţei execuţiei aplicațiilor Visual FoxPro se poate face cu ajutorul 
unei alte opţiuni accesibile din depanator, anume Toggle "Coverage Logging 
(butonul 16 din figura 4.28). Acest buton este de tip „toggle” (comutator) — un click 
activează opțiunea, alt click o dezactivează. La activarea sa (numai dacă în Debugger este 
încărcat deja un program) apare pe ecran fereastra din figura 4.31, solicitându-se un nume 
de fişier. í 1 O F0 K 


Figura 4.31. Stabilirea opțiunii Coverage Logging 


Extensia fişierului principal este implicit . 1og (jurnal) şi, de fapt, acesta este și rolul 
opțiunii: de a jurnaliza execuţia programului. Astfel, dacă în fereastra din figura 4.31 se 
execută click pe butonul OK iar apoi se lansează programul, se va obţine fişierul 
simulare_erori.1og, care poate fi consultat ulterior, de pildă cu programul 


Notepad. 


Atenţie! Pentru deschiderea fişierului . 10g cu Notepad este necesar ca acesta să 
fie închis de Visual FoxPro prin dezactivarea opțiunii Coverage Logging 
(verificaţi ca butonul să nu fie apăsat). : 


Activarea este echivalentă cu execuția comenzii SET COVERAGE TO <nume-— 
fişier>, dezactivarea — cu comanda SET COVERAGE TO, 
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„rr 


lată cum arată conţinutul fişierului-jurnal: 


Aj simulaie_erari-LOG 


0. 003776, „simul are_erori,4,k :Naplicarielprogsisimulare_erori „fxp,l 
0. 003131,, simulare erori, 6, k:NaplicatieNprogsNsimulare_erori.fxp,1 
0. 023479, „simulare_erori,7,k i\aplicatie\progs\simulare erori .fxp,1 


plicatieN rogsNtrat_erori,fxp,3 
:Naplicatievprogsirrat_erori.f 
:NaplicatievprogsNtratr_arori. 


o. 

„0. 

4. 

y 18. 
o. 

0. 

0. 


Figura 4.32. Jurnalul execuției unui program 


Fişierul . 1log are atâtea rânduri câte linii de program s-au executat (incluzând modulele 
apelate). Elementele de pe o linie a acestui fişier au următoarele semnificaţii: 
durata de execuţie, în secunde; 
numele clasei în care se află linia de cod (dacă e cazul); 
numele modulului în care se află linia de cod; DE 
numărul liniei de cod (liniile care lipsesc sunt linii albe sau comentarii); 
numele şi calea completă a fişierului compilat din care face parte linia de cod; 
ordinea apelării modulului respectiv (Call Stack). 

Execuţia liniei 26 din procedura trat_erori a durat mai mult de 18 secunde! E 
normal ? Da, deoarece acea linie conține funcţia GETFILE ( ), care afişează un dialog de 
tip Open și aşteaptă până ce utilizatorul selectează un fişier. Și se pare că utilizatorul l-a 
selectat în 18,65 secunde... 

O analiză mai elegantă decât simpla citire cu Not epad o realizează accesoriul 
Coverage Profiler, apelabil din meniul Tools al ferestrei principale Visual 
FoxPro. Încărcarea unui fişier „log se face prin File-—0pen. În bara de titlu (vezi 
figura 4.33) se observă fişierul .1og creat mai înainte. 


% e oo o 


lks Microsoft Visual FoxPro Coverage Profiler Do ; Eim X] 


* sinulare_erori versiunea 2 aj: 
* program denonstrativ pentru 

” sinularea erorilor 

DEBUGOUT “Lansare program * + PROGRAN() 
ON ERROR DO 


l Hit lst 0.003776 àvg 0.003776 


"k: Vaplicatielprogsitrat| erori. prg" i 


a Hir lst 0.003131 àvg 0.003131 VITH PROGRAM:}, LINENO() 

l Hit lst 0.023479 ]àvg 0.023479 USE nimic IN O SHARED 44 stim ca nu exista 
tabela "nimic" 

l Hit lst 0.000178 àvg 0.000178 ON ERROR 


Figura 4.33. Inerumentul Coverage Profiler în modul Profile (1) 
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Se poate opta pentru vizualizarea simplă a fişierului (Coverage Mode) sau pentru 
afişarea unor indicatori de performanţă (Profile Mode). Aceşti indicatori sunt mai 
concludenți dacă programul se execută de mai multe ori. Pentru aceasta, se închide fişierul 
.log (preferabil şi instrumentul Coverage Profiler) şi se revine la Debugger; în 
dialogul prezentat în figura 4.34 se alege acelaşi fişier .1og, se stabileşte opțiunea 
Append (adaugă la precedentul jurnal noile rezultate) şi se repetă execuţia programului. 
Apoi se relansează accesoriul Coverage Profiler. 


Es Microsolt Visual FoxPro Cover ate Pri 


* simulare_erori versiunea 2 


* progran deuonstrativ pentru 
; . * simularea erorilor 
2 Hits lst 0.003776 vg 0.094545f DEBUGOUT "Lansare program " + PROGRAM) 
ON ERROR DO i 
“x: Naplieatielprogsitratlerori.prg" ; 
[2 Hits lst 0.003131 |Avg 0.001642 WITH PROGRAM(), LINENO() 
12 Rits lst 0.023479 |Avg 0.023435 USE nimic IN O SHARED 44 stim ca nu exista 
tabela “nimic” 
2 Hits lst 0.000178 Avg 0.000132 ON ERROR 


Figura 4.34. instrumentul Coverage Profiler în modul Profile (2) 


Se observă de această dată că: 

e se arată numărul de execuţii ale programului (2 Hits); 

e . valorile medii ale timpului de execuţie (încadrate în dreptunghiuri pe cele două 
figuri) diferă, semn că la fiecare execuţie s-au înregistrat alți timpi. Cauzele pot fi 
multiple: de la disponibilitatea sistemului de calcul până la timpul de reacție al 
utilizatorului- la “întrebări precum GETEILE () ori MESSAGEBOX(), ca în 
-exemplul de față, Pe de altă parte, instrumentul Coverage Profiler poate 
ajuta programatorul să testeze diferite variante de codificare înaintea oferirii 
versiunii finale a produsului-program („ajustând” secvențele de program mari 
consumatoare de timp). i m a i | 

În fine, butonul (17) din figura 4.28 prezintă încă o opţiune foarte interesantă: Toggle 

Event Logging, cât se poate de utilă pentru depanarea formularelor. Această opțiune 
permite jurnalizarea apariţiei evenimentelor în fereastra Debug Output sau scrierea lor 
într-un fişier . log. 


E 


Capitolul 5 
SQL în Visual FoxPro 


FoxPro a fost unul dintre primele SGBD-uri xBase care au implementat un important 
nucleu SQL. Visual FoxPro respectă, în continuare, multe din specificaţiile standardului 
SQL-92, deşi nu putem vorbi de un nivel similar marilor produse ale lumii SGBDR: Oracle, 
DB2, Sybase, Informix, SQL Server etc. Cu toate limitele sale, care vor fi punctate pe 
parcursul acestui capitol, prin posibilitatea includerii comenzilor SQL în programe VFP şi 
folosirea cursoarelor sau tabelelor virtuale, practic în Visual FoxPro se poate rezolva orice 
problemă de interogare şi manipulare a datelor. 


5.1. Principalele comenzi SQL din VFP 


Comenzile SQL-92 implementate în Visual FoxPro 6 sunt prezentate în tabelul 6.1, 
Tabelul 5.1. Comenzi SQL în Visual FoxPro 


Comandă Scop 
Pentru manipularea datelor 
SELECT š Extragerea datelor din BD 
INSERT Adăugarea de noi linii într-o tabelă 
DELETE tegerea de linii dintr-o tabelă 
UPDATE Modificarea valorilor unor atribute 


Pentru definirea bazei de date 


i 


CREATE TABLE 
DROP TABLE 
ALTER TABLE 
CREATE VIEW 
DROP VIEW tergerea unei tabele virtuale 


CREATE CURSOR Crearea unei tabele temporare 


Pentru controlul tranzacţiilor 

BEGIN TRANSACTION Marchează începutul unei tranzacţii 
END TRANSACTION Marchează sfârşitul unei tranzacții 
ROLLBACK Abandonează tranzacţia în curs 


Din paragraful următor vom începe .prezentarea comenzilor SQL cu opțiunile esenţiale 
pentru crearea şi modificarea structurii unei baze date şi a tabelelor acesteia — CREATE 
TABLE, ALTER TABLE, inclusiv a restricțiilor ce pot fi definite la nivel de atribut sau 
tabelă. Pentru popularea şi actualizarea tabelelor vor fi prezentate clauzele comenzilor 
INSERT, UPDATE şi DELETE. f 
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5.2. Crearea şi modificarea structurii tabelelor 


Dacă în capitolul 2 au fost prezentate modalitățile asistate de creare a bazei de date, a 
tabelelor acesteia, inclusiv a restricțiilor, în acest capitol ne vom apropia de zona 
„Profesională” a dezvoltării modulelor bazei de date în cadrul aplicaţiilor VFP. 


5.2.1. Crearea tabelelor şi declararea restricţiilor 


Comanda SQL utilizată pentru crearea unei tabele este CREATE TABLE, iar pentru 
modificarea ulterioară a structurii se foloseşte ALTER TABLE. Precizăm că este vorba de 
crearea structurii tabelei. Popularea cu înregistrări şi actualizarea ulterioară se realizează 
prin alte comenzi: INSERT, UPDATE, DELETE, 

Formatul general al comenzii CREATE TABLE în Visual FoxPro este: 


CREATE TABLE | DBF TableNamel [NAME LongTableName) [FREE] 
(FieldNamel FielaType [(nFieldWidth |, nPrecision)]) ] 


[NULL | NOT NULL] 
[CHECK lExpressionl [ERROR cMessageTexti] ] 


[DEFAULT eExpression1] 
[PRIMARY KEY | UNIQUE] 
[REFERENCES TableName2 [TAG TagNamel) ] 


[NOCPTRANS ] 
[, FielaName2 ...] 
[; PRIMARY KEY eExpression? TAG TagName? 
|, UNIQUE eExpression3 TAG TagName3] 
[, FOREIGN KEY eExpression4 TAG TagName4 [NODUP] 
REFERENCES TableName3 [TAG TagName5) ] 
[, CHECK lExpression2 [ERROR cMessagelext2]]) 


| FROM ARRAY ArrayName 


lată, pe scurt, semnificația opțiunilor: 


CREATE TABLE | DBF TableNamel 
TableNamel reprezintă numele tabelei ce urmează a fi creată. De remarcat că nu 


există nici o diferență între opțiunile TABLE şi DBF, Prima se adresează celor atașați 
teoriei relaționale, iar cea de-a doua este mai aproape de utilizatorul „tradiționa!l” al FoxPro 
(xBase-urilor, în general), pentru care o tabelă este un fişier cu extensia . DBF., 


NAME LongTableName 
Permite specificarea unui nume mai lung (până la 128 de caractere) pentru tabela creată. 
Pentru aceasta, este necesar ca baza de date să fie în prealabil deschisă, deoarece numele 


lungi sunt memorate în containerul asociat bazei (DBC). 


FREE 
Indică faptul că tabela respectivă va fi independentă, deci nu va face parte din bază. 
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(FieldNamel FielăType [(nFieldWidth |, nPrecision])] 
Permite declararea, pentru fiecare atribut (câmp) al tabelei, a numelui, tipului, lungimii 
şi, eventual, a numărului de poziţii pentru reprezentarea părții fracţionare (zecimale). 


NULL i 
Prin specificarea sa, atributul este autorizat să conţină valori nule (NULL). 


NOT NULL 


Nu permite apariţia valorilor nule pentru atributul respectiv. Automat, pentru atributele 


de tip cheie primară sau pentru care este utilizată opțiunea UNIQUE nu se admit valori 
NULL. 


„CHECK lExpressionl 
Serveşte la specificarea unei funcții-utilizator de validare la nivel de atribut (câmp). 
Astfel, funcția este verificată imediat după adăugarea unei noi înregistrări (linii) în tabelă. 
Dacă rezultatul evaluării funcţiei este . F . (FALSE), se declanşează o eroare. 


ERROR cMessageText1 


În cazul în care funcţia de validare de la nivelul atributului nu se respectă (adică 
„întoarce” valoarea logică FALSE), pe ecran apare mesajul cMessageTextl. 


DEFAULT eExpressionl 


Specifică valoarea implicită a atributului (în funcţie de tipul acestuia), valoare pe care o 
va conţine acest câmp la adăugarea unei noi înregistrări în tabelă. 


PRIMARY KEY 


Declară atributul respectiv cheie primară, prin crearea unui index principal cu nume 
identic ca al atributului. 


UNIQUE 


Creează un „index candidat” — altfel spus, declară acest atribut cheie alternativă. Se 
previne astfel apariția a două valori identice în tabelă pentru acest câmp. 


REFERENCES TableName2 (TAG TagNamel] 

Permite definirea unei restricții. referenţiale prin crearea unei legături permanente între 
tabele. TableName2 . este tabela-părinte a legăturii. Dacă nu se specifică TAG 
TagNamel, relația este stabilită prin intermediul indexului primar al tabelei 
TableName2; dacă acesta (indexul primar) nu există, se generează un mesaj de eroare. 
TableName2 nu poate fi o tabelă independentă. 


NOCPTRANS 


Este utilă pentru câmpuri de tip şir de caractere și memo, pentru a preveni conversia la 
un alt cod de pagină (code page). 


Lă 


25. Vezi capitolul 2, paragraful 2.5.1. 
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Pi în hu bn a N N 


PRIMARY KEY eExpression2 TAG TagName2 

Creează automat un index primar pentru tabela curentă, eExpression2 este un câmp 
sau o combinaţie de câmpuri ale tabelei. Numele indexului poate conţine până la 10 
caractere. Fireşte, clauza PRIMARY KEY nu poate apărea decât o singură dată într-o 
comandă CREATE TABLE. 


UNIQUE eExpression3 TAG TagName3 : SA 

Creează un index candidat. eExpression3 desemnează orice câmp sau combinație 
de câmpuri ale tabelei, atribut/combinaţie care va îndeplini rolul de cheie alternativă. 
TagName3 reprezintă numele indexului candidat care este alcătuit tot din maximum 10 
caractere. Pentru o aceeaşi tabelă pot fi creaţi mai mulți indecşi candidați. 


FOREIGN KEY eExpression4 TAG TagName4 [NODUP) 

Are ca rezultat crearea unui index obişnuit (regular) pentru tabela curentă (cheia de 
indexare fiind eExpression4, iar numele acestuia TagName 4) şi stabilirea unei relaţii 
permanente cu o tabelă-părinte. Prin NODUP se poate crea un index străin candidat (prin 
analogie cu indecşii candidaţi la „postul” de index primar). 


REFERENCES TableName3 [TAG TagName5)] l 

Specifică numele tabelei-părinte implicate în legătura creată prin opțiunea FOREIGN 
KEY. Indexul TagName5 este cel prin care se realizează legătura dintre cele două tabele. 
Implicit este indexul primar al tabelei TableName3. 


CHECK eExpression2 [ERROR cMessageText2] | 
Permite specificarea unei restricții (reguli de validare) la nivel de tabelă; 
cMessageText2 este mesajul afişat în cazul nerespectării restricției. 


FROM ARRAY ArrayName APR i 
Permite crearea unei tabele pe baza datelor conţinute într-o variabilă de tip tablou, 


În listingul 5.1 este prezentat programul pentru crearea, în VFP 6, a bazei de date 
VINZARI. 


Listing 5.1. Crearea tabelelor bazei de date în VFP 6 


* in caz ca baza exista deja, 

* pentru crearea sa, trebuie inchisa 
CLOSE DATA ALL 

CLOSE TABLES ALL 

CLOSE ALL 


* se sterge BD impreuna cu tabelele care o alcatuiesc 
* Atentie !!! Comanda urmatoare distruge intreg continutul bazei ! 
DELETE DATABASE vinzari DELETETABLES 


* A sosit vremea creatiei 
CREATE DATABASE vinzari 
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* Secventa de creare a tabelelor 


* In tabela JUDETE 
ci - JUD este cheie primara 
S -“literele JUD trebuie sunt exclusiv majuscule 
* = JUDET este cheie candidat (alternativa) 
i - JUDET nu poate avea valori nule 
* - prima litera din fiecare cuvint al denumirii judetului 
ci este obligatoriu majuscula 
zi - valoarea implicita a atributului REGIUNE este MOLDOVA” 
* - valoarea REGIUNE trebuie sa se incadreze in lista: . 
„MOLDOVA”, „Banat, 
CREATE TABLE judete (; 
jud CHAR(2) ; 
PRIMARY KEY ; 
CHECK (jud= = LTRIM(UPPER(jud))) ; 
ERROR "Indicativul judetului se scrie cu majuscule !, ; 
judet CHAR(25) ; 
UNIQUE ; 
NOT NULL: 
CHECK (judet= LTRIM(PROPER(judet))) ; 
ERROR 'Prima litera din fiecare cuvint a!+CHR(13)+: 
„ "denumirii judetului este majuscula; '+CHR(13)+; 
'restul literelor sunt mici!” ; 
regiune CHAR(15) ; 
DEFAULT 'Moldova' : 
CHECK (INLIST(regiune, "Banat, 'Transilvania', 'Dobrogea', 'Oltenia,, 
'Muntenia', 'Moldova”)) ; 
ERROR 'Regiunea poate avea o valoare numai din lista: '+CHR(13)+; 
'Banat, Transilvania, Dobrogea, Oltenia, Muntenia, Moldova' : 


* În tābela LOCALITATI 


s - atributul JUD este cheie straina (parintele fiind tabela JUDETE) 
CREATE TABLE localitati (; 
codpost CHAR(5) ; 
PRIMARY KEY ; Ş 
CHECK (codpost=LTRIM(codpost)) ; 
ERROR 'Codul postal se scrie fara spatii la inceput !', ; 
loc CHAR(25) ; 
NOT NULL ; 
CHECK (foc=LTRIM(PROPER(Ioc))) ; 
ERROR 'Prima litera din fiecare cuvint al!+CHR(13)+: 
'denumirii localitatii este majuscula; '+CHR(13)+; 
'restul literelor sunt mici!', ; 
jud CHAR(2) ; 
DEFAULT 'IS', ; 
FOREIGN KEY jud TAG jud REFERENCES judete TAG jud ; 
) 


Sac) 
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a 
CREATE TABLE clienti ( ; 
codel NUMBER(6) ; 
PRIMARY KEY ; 
CHECK (code! > 1000), ; 
denci CHAR(30) ; 
CHECK (SUBSTR(denci,1,1) = UPPER(SUBSTR(dencl,1,1))) ; 
ERROR ‘Prima litera din denumirea clientului este ; '+CHR(13)+; 
"obligatoriu majuscula !, ; 
codfisca! CHAR(9) ; 
NULL ; 
CHECK (SUBSTR(codfiscal,1,1) = UPPER(SUBSTR(codfiscal,1,1))) ; 
ERROR 'Prima (eventuala) litera din codul fiscal ; '+CHR(13)+; 
'este obligatoriu majuscula |, ; 
adresa CHAR(40) ; 
NULL ; 
CHECK (SUBSTR(adresa,1,1) = UPPER(SUBSTR(adresa,1,1))) ; 
ERROR 'Prima (eventuala) litera din adresa ; +CHR(13)+; 
'este obligatoriu majuscula !', ; 
codpost CHAR(5), ; 
telefon CHAR(10) ; 
NULL, ; | 
FOREIGN KEY codpost TAG codpost REFERENCES localitati TAG codpost ; 


); 


CREATE TABLE persoane (; 
enp CHAR(14) ; 
PRIMARY KEY ; 
CHECK (enp= =LTRIM(UPPER(cnp))) : 
ERROR 'Codul numeric personal se scrie fara spatii la inceput l, ; 
nume CHAR(20) ; 
CHECK (nume=LTRIM(PROPER(nume))) ; 
ERROR 'Prima litera din fiecare cuvint al+CHR(13)+; 
‘numelui este majuscula; '+CHR(13)+; 
‘restul literelor sunt mici!', ; 
prenume CHAR(20) ; 
CHECK (prenume=LTRIM(PROPER(prenume))) ; 
ERROR 'Prima litera din fiecare cuvint al'+CHR(13)+; 
"prenumelui este majuscula; '+CHR(13)+; 
'restul literelor sunt mici!, ; 
adresa CHAR(40) ; 
NULL ; 
CHECK (SUBSTR(adresa,1,1) = UPPER(SUBSTR(adresa,1,1))) ; 
ERROR 'Prima litera din adresa este obligatoriu Ie SCUIg ție 
sex CHAR(1) DEFAULT 'B'; 
CHECK (INLIST(sex,F', 'B' Di 
ERROR 'Atributul Sex poate avea valorile F (de la Femeiesc)+CHR(13)+; 
'sau B (de la Barbatesc) !', ; 
codpost CHAR(5), ; 
telacasa CHAR(10) NULL, ; 
telbirou CHAR(10) NULL, ; 
telmobil CHAR(10) NULL, ; 


email CHAR(20) NULL, ; 
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| FOREIGN KEY codpost TAG codpost REFERENCES localitati TAG codpost ; 


* In tabela PERSCLIENTI 
j - cheia primara este compusa: (CNP, CodCl) 
1 CREATE TABLE persclienti (; 
cnp CHAR(14),; 
codec! NUMBER(6), ; 
functie CHAR(25) ; 
CHECK (SUBSTR(functie,1,1) = UPPER(SUBSTR(functie,1,1))) ; 
ERROR 'Prima litera din functie este obligatoriu majuscula !', : 
PRIMARY KEY cnp+STR(codcl,6)+functie TAG primaru, ; 
FOREIGN KEY cnp TAG cnp REFERENCES persoane TAG enp, ; 
FOREIGN KEY codci TAG codel REFERENCES clienti TAG codel ;. - 
); 


* Tabela PRODUSE 
h - contine atributul IMAGINE de tip GENERAL 
CREATE TABLE produse ( ; 
codpr NUMBER(6) ; 
PRIMARY KEY ; 
CHECK (codpr > 0) ; ZE | 
ERROR 'Codul produsului trebuie sa fie mai mare de 100000 !' 
denpr CHAR(30) ; 
CHECK (SUBSTR(denpr,1,1) = UPPER(SUBSTR(denpr,1,1))) ; 
ERROR 'Prima litera din denumirea produsului este obligatoriu majuscula !' 
um CHAR(10),; 
grupa CHAR(15) ; i 
CHECK (SUBSTR(grupa,1,1) = UPPER(SUBSTR(grupa,1,1))) ; 
ERROR 'Prima litera din grupa este obligatoriu majuscula |! ; 
procTVA NUMBER(3,2) ; 
DEFAULT .22, ; 
imagine GENERAL ; 
) 


ya 


1 


CREATE TABLE gestiuni (; 
gestiune CHAR(4) ; : 3 
PRIMARY KEY, ; 
den_gest CHAR(25) ; ' 
CHECK (SUBSTR(den_gest,1,1) = UPPER(SUBSTR(den_gest,1,1))) ; . 
ERROR 'Prima litera din denumirea gestiunii este obligatoriu majuscula !',; . 
adresa CHAR(40) ; 
NULL ; 
CHECK (SUBSTR(adresa,1,1) = UPPER(SUBSTR(adresa,1,1))) ; 
ERROR 'Prima litera din adresa este obligatoriu majuscula !', ; 
codpost CHAR(5), ; 
telefon CHAR(10) ; 
NULL, ; 
cnp CHAR(14),; 
| email CHAR(20) NULL, ; 


FOREIGN KEY codpost TAG codpost REFERENCES localitati TAG codpost, ; 


+ see x rr. 


FOREIGN KEY cnp TAG cnp REFERENCES persoane TAG cnp ; 
) 


* in tabela FACTURI 
și - valorile atributului DATAFACT trebuie sa se incadreze 
A in intervalul 1 ian.2001 - 31 dec.2010 
CREATE TABLE facturi (; 
nrfact NUMBER(8) ; 
PRIMARY KEY, : 
datafact DATE ; 
DEFAULT DATE() ; 
CHECK (BETWEEN(datafact,(A2001/01/01),12010/12/31))) ; 
ERROR 'Baza de date functioneaza in intervalul 1 ian 2001 - 31 dec.20107,,: 
gestiune CHAR(4) NOT NULL, ; 
codeci NUMBER(6),; 
obs CHAR(50) NULL, ; 
FOREIGN KEY gestiune TAG gsetiune REFERENCES gestiuni TAG gestiune, ; 
FOREIGN KEY codel TAG codec! REFERENCES clienti TAG codel ; 
j: 


CREATE TABLE liniifact (; 
nrfact NUMBER(8), ; 
linie NUMBER(2) ; 

CHECK (linie > 0) ; 
ERROR 'Atributul linie trebuie sa fie mai mare ca zero !', ; 

codpr NUMBER(6),: f 
cantitate NUMBER(10), ; 
pretunit NUMBER (12), ; . 
PRIMARY KEY STR(nrfact,8)+STR(linie,2) TAG primaru, ; 
FOREIGN KEY nrfact TAG nrfact REFERENCES facturi TAG nrfact, ; 
FOREIGN KEY codpr TAG codpr REFERENCES produse TAG codpr ; 
) 


In tabela INCASARI - 
- valorile atributelor DATAINC si DATADOC trebuie sa se incadreze 
in intervalul 1 ian.2001 - 31 dec.2010 
- valoarea implicita a atributului DATAINC este data curenta (data sistemului) 
` - valoarea implicita a atributului DATADOC este data curenta (data sistemului) 
minus 5; aceasta inseamna ca, de obicei, intre emiterea documentului 
de plata si data in care banii sosesc in cont trec 5 zile (e doar o presupunere !) 
CREATE TABLE incasari (; 
codinc NUMBER(8) ; 
PRIMARY KEY, ; 
datainc DATE ; 
DEFAULT DATEQ ; 
CHECK (BETWEEN(datainc,(12001/01/01),412010/12/31))) ; 
ERROR 'Baza de date functioneaza in intervalul 1 ian.2001 - 31 dec.2010 11; 
coddoc CHAR(4) ; 
CHECK(coddoc=UPPER(LTRIM(coddoc))) ; 
ERROR 'Codul documentului se scrie cu majuscule !', ; 
nrdoc CHAR(16),; 
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datadoc DATE : 
DEFAULT DATEQ -5; 

„ CHECK (BETWEEN (datadoc, {^2001/01/01},{^2001/12/31)) ; 
ERROR 'Data documentului trebuie sa fie intre 1 ian.2000 si 31 dec.2010!; ); 


CREATE TABLE incasfact ( ; 
codinc NUMBER(8), ; 
nrfact NUMBER(8), ; 
transa NUMBER(16) ; 
NOT NULL, ; 
PRIMARY KEY STR(codinc,8)+STR(nrfact,8) TAG primaru, ; 
FOREIGN KEY codinc TAG codinc REFERENCES incasari TAG codinc, ; | 
FOREIGN KEY nrfact TAG nrfact REFERENCES facturi TAG nrfact : 


În VEP este obligatoriu să se indice explicit ce atribute pot avea valori nule, iar la 
declararea cheilor primare compuse, atributele componente trebuie concatenate, lucru ce 
atrage necesitatea conversiei celor de alt tip (numerice, dată calendaristică, logice) în şiruri 
de caractere, Declararea cheilor primare, alternative şi străine în VFP presupune crearea 
automată a indecşilor de tip PRIMARY, CANDIDATE sau REGULAR, Prin clauza TAG se 
poate da indexului respectiv un nume la alegere. 

Din păcate, declararea cheilor străine nu înseamnă şi instituirea restricției referenţiale. 
Aceasta este una dintre cele mai ciudate „găselnițe” VFP. Ca urmare, după crearea BD, fie 
trebuie „umblat” prin Referential Integrity Builder şi, astfel, grafic, instituite regulile pentru 
prezervarea referențialității (vezi capitolul 2), fie trebuie create declanşatoare în acest scop 
(capitolul 6). 


5.2.2. Modificarea structurii tabelelor/restricţiilor în VFP 


Schema unei baze de date reprezintă aspectul constant, invariabil sau, mai bine zis, puţin 
variabil în timp. O bună analiză și proiectare a aplicației (sistemului) diminuează riscul 
modificărilor de amploare în structura tabelelor şi restricţiilor, conferind stabilitate bazei şi 
diminuând sensibil eforturile de întreținere ulterioară instalării aplicației. Cu toate acestea, 
pe parcursul utilizării bazei de date pot apărea situaţii în care este necesară adăugarea unui 
nou atribut, ştergerea unui atribut inutil, modificarea lungimii etc. 

Comanda pentru modificarea structurii unei tabele este ALTER TABLE, ale cărei 
opțiuni mai importante le vom parcurge în continuare. 


Adăugarea unui nou atribut 
Adăugarea atributului DataNast (data naşterii) în tabela PERSOANE se realizează 


astfel: 
ALTER TABLE PERSOANE ADD DataNast DATE 


(Ștergerea unui atribut 
Dacă ne propunem să ştergem atributul pe care tocmai l-am adăugat, trebuie doar să 


folosim comanda: 
ALTER TABLE PERSOANE DROP COLUMN Datahast 
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Redenumirea unui atribut 
Spre deosebire chiar de SGBD-uri consacrate, în VFP un atribut se poate şi redenumi: 
ALTER TABLE PERSOANE RENAME COLUMN DataNast TO DataNasterii 


Modificarea tipului lungimii unui atribut 

Dacă se doreşte creșterea la 2] a numărului de caractere alocate valorilor atributului 
Prenume şi reducerea la 17 a lungimii atributului Nume, vom utiliza: 
ALTER TABLE PERSOANE ALTER COLUMN Prenume CHAR (21) 
ALTER TABLE PERSOANE ALTER COLUMN Nume CHAR (17) 


Adăugarea/modificarea valorii implicite 

Dacă dorim ca valoarea implicită a atributului Sex să fie ‘F’ (deoarece sunt mai multe 
femei decât bărbați), acest lucru este posibil și astfel: 
ALTER TABLE PERSOANE ALTER COLUMN Sex SET DEFAULT 'F' 


NULL şi neNULL 
Interzicerea valorilor nule pentru atributul Sex se realizează astfel: 
ALTER TABLE PERSOANE ALTER COLUMN Sex NOT NULL 


Invers, pentru a permite valori NULL pentru același atribut: 
ALTER TABLE PERSOANE ALTER COLUMN Sex NULL 


Adăugarea/unularea restricţiilor 

Toate restricţiile: cheie primară — PRIMARY KEY, unicitate — UNIQUE, referenţială — 
FOREIGN KEY, de comportament — CHECK pot fi declarate ulterior creării tabelei şi, 
bineînțeles, anulate la un moment dat. Spre exemplu, formatul general al comenzii pentru 


dezactivarea cheii primare este: 
ALTER TABLE PERSOANE DROP PRIMARY KEY 


Pentru reinstituirea cheii primare a tabelei PERSOANE comanda are forma: 
ALTER TABLE PERSOANE ADD PRIMARY KEY (CNP) 


Analog, prin ADD și DROP pot fi instituite/anulate şi celelalte tipuri de restricţii, 
formatele generale ale comenzii ALTER TABLE fiind: 


ALTER TABLE TableNamel 

ADD | ALTER (COLUMN) FielaNamel 

FielaType [{nFieldWidth [, nPrecision])] 
[NULL | NOT NULL) 

[CHECK lExpressionl [ERROR cMessageText1]] 
[DEFAULT eExpressionl] 

PRIMARY KEY | UNIQUE] 

REFERENCES TableName?2 [TAG TagNamel] ] 
NOCPTRANS ] 

NOVALI DATE] 


Ra pr 


sau 


136 Visual FoxPro 


ALTER TABLE TableNamel 

ALTER [COLUMN] FielaName2 

[NULL | NOT NULL] 

(SET DEFAULT eExpression2] : 
[SET CHECK lExpression2 [ERROR cMessageText2]] 
[DROP DEFAULT] 

[DROP CHECK] 

[NOVALIDATE] 


sau 


ALTER TABLE TableNamel 

[DROP [COLUMN] FielaName3) 

(SET CHECK lExpression3 [ERROR cMessageText3]] 
[DROP CHECK] 

[ADD _ PRIMARY KEY eExpression3 TAG TagName2 [FOR 
lExpression4]] 
(DROP PRIMARY KEY] 
[ADD UNIQUE eExpression4 [TAG TagName3 [FOR lExpression5]}) 
[DROP UNIQUE TAG TagName4] ; 

[ADD FOREIGN KEY [eExpression5] TAG TagName4 [FOR 
lExpression6] 

REFERENCES TableName2 [TAG TagName5]] 

[DROP FOREIGN KEY TAG TagName6 [SAVE]}]] 

RENAME COLUMN FieldName4 TO FieldName5] 

[NOVALIDATE] 


Unul dintre elementele de noutate față de formatul comenzii CREATE TABLE îl 
reprezintă apariția clauzei NOVALIDATE, prin prezența căreia se permite operarea unor 
modificări ale structurii chiar dacă acestea ar viola integritatea datelor din bază. 


5.2.3. Ştergerea tabelelor 
Comanda de ştergere a unei tabele din bază este DROP TABLE şi are o sintaxă extrem 


de simplă: 
DROP TABLE tabelă 


5.3. Comenzi de actualizare 


Nucleul SQL din Visual FoxPro prezintă toate cele trei comenzi pentru actualizarea 
conținutului unei tabele: INSERT, UPDATE şi DELETE. 


5.3.1. Adăugarea unei linii 


Comanda SQL de adăugare de noi linii este INSERT, care are, în modul de lucru cel 
mai puţin pretenţios, următorul format: 
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INSERT INTO tabelă [(atributi, atribut2, ...)] 
VALUES (valoare atributl, valoare atribut2, ....) 


Ordinea valorilor din clauza VALUES trebuie să fie identică cu cea declarată la crearea 
(sau modificarea structurii) tabelelor. Modificarea este posibilă numai prin enumerarea, 
după numele tabelei, a atributelor ce vor primi valorile specificate. 

Dacă, spre exemplu, pentru tabelele CLIENTI şi FACTURI au fost incluse în clauza 
VALUES mai puţine valori decât atributele tabelei, VFP va genera o eroare. Este 
obligatorie, în aceste cazuri, precizarea atributelor care vor primi valorile (vezi listingul 
5.2). În Oracle şi DB2, restul, adică cele nespecificate, vor avea, pe liniile respective, valori 
NULL. În VFP, acestea sunt completate cu valori vide (funcția EMPTY () întoarce .T., în 
timp ce ISNULL ()-.F.). 


5.3.2. Ştergerea liniilor 


Comanda SQL pentru ștergerea uneia sau mai multor linii dintr-o tabelă este DELETE. 


Formatul general este: 
DELETE FROM nume-tabelă WHERE predicat 


În tabelă vor fi marcate pentru ştergere toate liniile care îndeplinesc condiția specificată 
în predicatul din clauza WHERE. Fireşte, când clauza WHERE lipseşte, vor fi marcate pentru 
ştergere toate liniile tabelei. 


Exemplul 1 

Să se elimine din tabela FACTURI toate facturile emise de gestiunea 002. 
DELETE FROM FACTURI ; 

WHERE gestiune = 10027 


Exemplul 2 

Să se elimine din baza de date toate judeţele din Moldova. 
DELETE FROM JUDETE ; 

WHERE Regiune = "Moldova! 


5.3.3. Popularea bazei de date prin comenzi SQL 


Folosind comenzile de ștergere şi inserare, în listingul 5.2 este prezentat programul 
pentru popularea bazei de date. La început se folosesc comenzile de ștergere, pentru a 
preveni eventuala duplicare a înregistrărilor. 


Listing 5.2. Script Visual FoxPro de populare a tabelelor (cu valorile din capitolul 2) 


” Program de populare a BAZEI DE DATE 


* se deschide baze de date (in caz ca 
* nue deja deschisa 
IF 'DBUSED('vinzari') 
OPEN DATABASE vinzari EXCLUSIVE 
ENDIF 


138 


Visual FoxPro 


DELETE FROM incasfact 
SELE incasfact 
ZAP 


DELETE FROM incasari 
SELE incasari 
ZAP 


DELETE FROM liniifact 
SELE liniifact 
ZAP 


DELETE FROM facturi 
SELE facturi 
ZAP 


DELETE FROM gestiuni 
SELE gestiuni 
ZAP 


DELETE FROM produse 
SELE produse 
ZAP 


DELETE FROM persclienti 
SELE persclienti 
ZAP 


DELETE FROM persoane 
SELE persoane 
ZAP 


DELETE FROM clienti 
SELE clienti 
ZAP 


DELETE FROM localitati 
SELE localitati 
ZAP 


DELETE FROM judete 
SELE judete 
ZAP 


INSERT INTO 
INSERT INTO 
NSERT INTO 
NSERT INTO 
NSERT INTO 


INSERT INTO 
INSERT INTO 
NSERT INTO 
NSERT INTO 
NSERT INTO 
INSERT INTO 
NSERT INTO 
NSERT INTO | 


NSERT INTO judete VALUES ('1S', 'lasi',“'Moldova') 


judete VALUES (VN', 'Vrancea', 'Moldova') 
judete VALUES ('NT', 'Neamt', 'Moldova') 
judete VALUES ('SV, ‘Suceava’, 'Moldova') 
judete VALUES (VS, 'Vaslui', 'Moidova') 
judete VALUES (TM, 'Timis', 'Banat') 


localitati VALUES ('6600,, "last, S°) 
localitati VALUES ('5725', 'Pascani', 'IS') 
ocalitati VALUES ('6500', 'Vaslui', 'VS" 
ocalitati VALUES ('5300', 'Focsani', 'VN') 
iocalitati VALUES ('6400', 'Birlad', 'VS") 
ocalitati VALUES ('5800', 'Suceava,, 'SV') 
ocalitati VALUES ('5550', 'Romani, NT) 
localitati VALUES ('1900', 'Timisoara', "TM 
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'6500'. NULL) 
INSERT INTO clienti (codel, denci, codfiscal, codpost, telefon) ; 
VALUES (1002,Client 2 SA', 'R1002', '6600', '032-212121') 
INSERT INTO clienti VALUES (1003, 'Ciient 3 SRL, 'R1003, 'Prosperitatii, 22', ; 
'6500''035-222222') 
INSERT INTO clienti (codel, denci, adresa, codpost) ; 
VALUES (1004, ‘Client 4', 'Sapientei, 56', '5725') 
INSERT INTO clienti VALUES (1005, ‘Client 5 SRL, 'R1005', NULL, ; 
'1900', '056-111111)) 
INSERT INTO clienti VALUES (1006, 'Client 6 SA', 'R1006', 'Pacientei, 33', ; 
'5550', NULL) 
INSERT INTO clienti VALUES (1007, 'Client 7 SRL, 'R1007', 'Victoria Capitalisrnului, 2', ; 
'1900', '056-121212') 


NSERT INTO persoane VALUES ('CNP1', 'loan', 'Vasile', 'I.L.Caragiale, 22','B', ; 
'6600', '123455', '987654, '094222222', NULL) 

NSERT INTO persoane VALUES (CNP2', Vasile, 'lon', NULL, 'B,,; 
'6600', '234567', '876543', '094222223, 'ionQa.ro') 

NSERT INTO persoane VALUES (CNP3, 'Popovici, 'loana', V.Micie, BII, Sc.B.Ap.2, Fi; 
'5725', '345678', NULL, '094222224', NULL) 

NSERT INTO persoane VALUES ('CNP4', 'Lazar, ‘Caraion’, 'M. Eminescu, 42','B',: 
'5500', '456789', NULL, '094222225', NULL) i 

NSERT INTO persoane VALUES ('CNP5,, 'lurea', 'Simion,, 'l.Creanga, 44 bis, 'B', ; 
'6500', '567890', '543210', NULL, NULL) 

NSERT INTO persoane VALUES ('CNPS', 'Vasc', 'Simona', 'M.Eminescu, 13, 'F',; 
'5725', NULL, '432109', '094222227', NULL) 

INSERT INTO persoane VALUES ('CNP7', 'Popa', 'ioanid', '|.lon, Bl.H2, Sc.C, Ap. 45, B,; 
'1900', '789012', '321098', NULL, NULL) 

INSERT INTO persoane VALUES ('CNP8', 'Bogacs,, 'lidiko', 'I.V Viteazu, 67, F,,; 
'5550', '890123', '210987', '094222229, NULL) 

INSERT INTO persoane VALUES ('CNP9,, 'loan', 'Vasilica', ‘Garii, Bl.B4, Sc A, Ap.1', F" ; 
*1900', '901234', 109876, '094222230', NULL) 

INSERT INTO persoane VALUES (CNP10', 'Tucaliuc', 'Simion', NULL, 'B,; 
"*9600, '222222', '212121', NULL, 'simion Qmail.dntis.ro”) 

INSERT INTO persoane VALUES (CNP11', 'Vasiliu', 'Mihai, 'Stefan cel Mare, 34, 'B', ; 
'5800', '258965', '256985', '093555555', 'mihaivQassist.ro') 

INSERT INTO persoane VALUES ('CNP12', 'Ciubotaru', 'Toader, 'Carpati, 12','8,; 

'5725', '454545','254785', NULL, NULL) 


INSERT INTO persclienti VALUES ('CNP7', 1001, 'Director genera!) 
INSERT INTO persclienti VALUES ('CNP2', 1002, 'Director general!) 
INSERT INTO persciienti VALUES ('(CNP3', 1002, 'Sef aprovizionare!) 
INSERT INTO persclienti VALUES ('CNP4', 1003, 'Sef aprovizionare”) 
NSERT INTO persclienti VALUES ('CNP5', 1003, 'Director financiar) 
INSERT INTO persclienti VALUES ('CNP6', 1004, 'Director genera!) 
NSERT INTO persclienti VALUES (CNP7', 1005, 'Sef aprovizionare”) 
NSERT INTO persciienti VALUES ('CNP8', 1006, 'Director financiar”) 
INSERT INTO persclienti VALUES ('CNP9', 1007, 'Sef aprovizionare”) 


” cimpurile GENERAL nu accepta valori NULL 


NSERT INTO produse (codpr, denpr, um, grupa, proctva) VALUES ; 
(5, 'Produs 5', buc, 'Tigari', . 19) 


NSERT INTO produse (codpr, denpr, um, grupa, proctva) VALUES (1, 'Produs 1,'buc,, "Tigari, .19) 
INSERT INTO produse (codpr, denpr, um, grupa, proctva) VALUES (2, 'Produs 2','kg', ‘Bere’, 0. 19) 
INSERT INTO produse (codpr, denpr, um, grupa, proctva) VALUES (3, Produs 3','kg', 'Bere', 0. 19) 
INSERT INTO produse (codpr, denpr, um, grupa, proctva) VALUES (4, 'Produs 4, ‘Dulciuri’, . 


139 


INSERT INTO clienti VALUES (1001, 'Client 1 SRL, 'R1001,, 'Tranzitiei, 13 bis”, ; | 
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* popularea cu poze. Din pacate nu exista o comanda SQL in acest sens 
SELECT produse 
GO TOP 
nNrFisiereTIF = ADIR(aT!Furi, „*.tif’) 
IF nNrFisiereTiF > 0 
FOR i = 1 to nNrFisiereTIF 
APPEND GENERAL Imagine FROM aTIFuri(i,1) 
SKIP 
ENDFOR 
ENDIF 


INSERT INTO gestiuni VALUES ('001', 'Depozit Pacurari','Sos. Pacurari, nr 145 bis", '6600', ; 
'CNP10', '212121', 'x.gest001 Omail.antis.ro') 

INSERT INTO gestiuni VALUES ('002', 'Depozit Suceava',Str. Lunetistului nr.33', '5800', ; 
'CNP11', '256985', 'x.gestO02Omail.dntis.ro') 

INSERT INTO gestiuni VALUES (003, 'Sectie Pascani''Bd. Trompetistului, 56', '5725', ; 
'CNP12', '254785', 'x.gest003@mail.dntis.ro') 


INSERT INTO facturi (nrfact, datafact, gestiune, codec!) VALUES (1111, (12001/08/01), '001', 1001) 
INSERT INTO facturi VALUES (1112, (12001/08/01), '001', 1005, 'Probleme cu transportul") 
INSERT INTO facturi (nrfact, datafact, gestiune, codel) VALUES (1113, (12001/08/01), '001',1002) 
INSERT INTO facturi (nrfact, datafact, gestiune, codel) VALUES (1114, (2001/08/01, '002', 1006) 
INSERT INTO facturi (nrfact, datafact, gestiune, codel) VALUES (1115, (12001/08/02),002', 1001) 
INSERT INTO facturi VALUES (1116, (2001/08/02), '001', 1007, ; 
'Pretul propus initial a fost modificat”) 

INSERT INTO facturi VALUES (1117, (12001/08/03), '002', 1001, NULL) 

- INSERT INTO facturi VALUES (1118, (42001/08/04),'003', 1001, NULL) 
INSERT INTO facturi VALUES (1119, (12001/08/07), '003', 1003, NULL) 
INSERT INTO facturi VALUES (1120, (42001/08/07), '003', 1001, NULL) 
INSERT INTO facturi VALUES (1121, (42001/08/07), '001', 1004, NULL) 
INSERT INTO facturi VALUES (1122, (42001/08/07), '003', 1005, NULL) 


INSERT INTO liniifact VALUES (1111, 1, 1, 50, 10000) 
INSERT INTO liniifact VALUES (1111, 2, 2, 75, 10500) 
INSERT INTO liniifact VALUES (1141, 3, 5, 500, 6500) 
INSERT INTO liniifact VALUES (1112, 1, 2, 80, 10300) 
INSERT INTO liniifact VALUES (1112, 2, 3, 40, 7500) 
INSERT INTO liniifact VALUES (1113, 1, 2, 100, 9750) 
INSERT INTO liniifact VALUES (1114, 1, 2, 70, 10700) 
INSERT INTO liniifact VALUES (1114, 2, 4, 30, 15800) 
INSERT INTO liniifact VALUES (1114, 3, 5, 700, 6400) 
INSERT INTO liniifact VALUES (1115, 1, 2, 150, 9250) 
INSERT INTO liniifact VALUES (1116, 1, 2, 125, 9300) 
INSERT INTO liniifact VALUES (1117, 1, 2, 100, 10000) 
INSERT INTO liniifact VALUES (1117, 2, 1, 100, 9500) 
INSERT INTO liniifact VALUES (1118, 1, 2, 30, 11000) 
INSERT INTO iiniifact VALUES (1118, 2, 1, 150, 9300) 
INSERT INTO iiniifact VALUES (1119, 1, 2, 35, 10900) 
INSERT INTO liniifact VALUES (1119, 2, 3, 40, 7000) 
INSERT INTO liniifact VALUES (1119, 3, 4, 50, 14000) 
INSERT INTO liniifact VALUES (1119, 4, 5, 750, 6300) 
INSERT INTO liniifact VALUES (1120, 1, 2, 80, 11200) 
INSERT INTO liniifact VALUES (1121, 1, 5, 550, 6400) 
INSERT INTO liniifact VALUES (1121, 2, 2, 100, 10500) 
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INSERT INTO incasari VALUES (1234, (42001/08/15), 'OP', '111', (42000/08/10)) 
INSERT INTO incasari VALUES (1235, (12001/08/15), 'CHIT', '222', (12000/08/15)) 
INSERT INTO incasari VALUES (1236, (2001/08/16), 'OP', '333:, (12000/08/09)) 
INSERT INTO incasari VALUES (1237, (42001/08/17), 'CEC', '444', (12000/08/10)) 
INSERT INTO incasari VALUES (1238, {2001/08/17}, 'OP', '555', (42000/08/10)) 
INSERT INTO incasari VALUES (1239, (12001/08/18), 'OP', '666', (12000/08/11)) 


INSERT INTO incasfact VALUES (1234, 1111, 5399625) 
INSERT INTO incasfact VALUES (1234, 1118, 1026375) 
INSERT INTO incasfact VALUES (1235, 1112, 487705) 
INSERT INTO incasfact VALUES (1236, 1117, 975410) 
INSERT INTO incasfact VALUES (1236, 1118, 1026375) 
INSERT INTO incasfact VALUES (1236, 1120, 731557) 
INSERT INTO incasfact VALUES (1237, 1117, 975410) 
INSERT INTO incasfact VALUES (1238, 1113, 1160250) 
INSERT INTO incasfact VALUES (1239, 1117, 369680) 


Am pornit de la presupunerea că în directorul curent există câte un fişier grafic, cu 
extensia .TIF pentru fiecare produs, iar ordinea acestora coincinde cu ordinea produselor 
din tabelă, ceea ce e destul de riscant. Astfel încât procedura din listingul 5.3 este mai 
indicată. l 


Listing 5.3. Noua secvență pentru popularea cu imagini a câmpurilor de tip General 


SELECT produse 
SCAN 
nume_ = figura _'+LTRIM(STR(codpr,6))+'.TIF' 
IF FILE((nume_)) | 
APPEND GENERAL imagine FROM (nume_) LINK 
ENDIF 
ENDSCAN 


5.3.4. Modificarea valorilor unor atribute 


Pentru a modifica valoarea unuia sau mai multor atribute pe una sau mai multe linii 
dintr-o tabelă se foloseşte comanda UPDATE cu formatul general (simplificat): 
UPDATE tabelă ; 
SET atributl = expresiel [, atribut2= expresie? ...] ; 


WHERE predicat 


Modificarea se va produce pe toate liniile tabelei care îndeplinesc condiţia formulată 
prin predicat. 


Exemplul 3 
Noul număr de telefon al clientului ce are codul 1001 este 032-313131. Să se opereze 
modificarea în baza de date. 
Se actualizează atributul Telefon din tabela CLIENTI: 
UPDATE CLIENTI ; 
SET Telefon = '032-313131! 3 
WHERE Coaci = 1001 
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Exemplul 4 

În cadrul unei noi relaxări fiscale, se decide creșterea procentului TVA de la 19% la 22% 

pentru toate produsele. 
Atributul modificat este ProcTVA din tabela PRODUSE, pe toate liniile: 

UPDATE PRODUSE ; 

SET ProcTVA = .22 ; 


5.4. Interogarea bazelor de date — fraza SELECT 


Baza de date prezentată pe parcursul capitolului 2 este doar puţin diferită de cea din 
cartea SQL. Dialecte DB2, Oracle şi Visual FoxPro (Polirom, laşi, 2001), aşa încât nu mai 
reluăm decât câteva exemple. 


5.4.1. Sintaxa de bază 


Comanda SELECT respectă în VFP sintaxa de bază din standardul SQL-92, cele trei 
clauze principale fiind SELECT, FROM şi WHERE, la care se adaugă ORDER BY, GROUP 
BY, HAVING şi alte elemente legate de subconsultări. De asemenea, VFP foloseşte notația 
SQL-92 în materie de reprezentare a joncțiunii interne (INNER JOIN) și externe (OUTER 
JOIN). Câteva exemple sunt grăitoare în acest sens. 


Exemplul 1 
Presupunând că plata se face la 14 zile, care sunt facturile ce urmează a fi încasate în 
perioada 15-18 august 2001 ? 


e Soluția Li: 
SELECT DISTINCT NrFact, DataFact, DataFact + 14 AS Scadenta ; 
FROM FACTURI ; 
WHERE DataFact + 14 >= {^2001/08/15} AND ; 

DataFact + 14 <= {^2001/08/18} 


e Soluția 1.2 — folosind operatorul BETWEEN: 
SELECT DISTINCT NrFact, DataFact, DataFact + 14 AS Scadenta ; 
FROM FACTURI ; 
WHERE DataFact + 14 BETWEEN {^2001/08/15} AND {^2001/08/18} 


Indiferent de variantă, rezultatul este cel din figura 5.1. 
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E i EI 
Nifact | Datatact adenta | =] 


11710170872001 1570872001... - 


1118047084200 18/08/2001 |y 


Figura 5.1. Facturile ce urmează a fi încasate în perioada 15-18 august 2001 


Exemplul 2 
Care sunt clienții din oraşele laşi şi Paşcani ? 


e Soluția 2.1: 
SELECT CLIENTI. * ; 
FROM CLIENTI INNER JOIN LOCALITATI ; 
ON CLIENTI.CodPost = LOCALITATI. CoaPost `; 
WHERE Loc=„Iasi” OR Loc=„Pascani” 


ə Soluția 2.2 — folosind operatorul IN: 
SELECT CLIENTI. * ; 
FROM CLIENTI INNER JOIN LOCALITATI ; 
ON CLIENTI.CodPost = LOCALITATI.CodPost ; 
WHERE Loc IN !'Iasi!, !'Pascanii!) 


e Soluţia 2.3 — vechea sintaxă din SQL.-89: 
SELECT CLIENTI, * 4 
FROM CLIENTI, LOCALITATI ;}; 
WHERE CLIENTI.CodPost = LOCALITATI, CodPost AND ; 
Loc IN ('Ilasi', 'Pascani!) 


e Soluţia 2.4 — sintaxa SQL-89, cu aliasuri pentru tabele: 
SELECT Cu 3 
FROM CLIENTI C, LOCALITATI L ; 
WHERE C.CodPost = L.,CodPost AND ; 

Loc IN ('Iasi', Pascani!) 


e Soluţia 2.5 — bazată pe subconsultări: 
SEE CD 


„FROM CLIENTI ; 


WHERE CoaPost IN ; 
(SELECT CodPost ; 
FROM LOCALITATI ; 
WEERE Loc IN ('Iasi', 'Pascani!) ; 


y 
; 
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Exemplul 3 | 
Ce persoane-cheie de la firmele-client trebuie felicitate de Sf. lon ? 


e Soluţia 3.1 — folosind operatorul LIKE: 
SELECT dencl, functie, p.* ; 
FROM PERSOANE p INNER JOIN PERSCLIENTI pe ON p.CNP=pce.CNP ; 
INNER JOIN CLIENTI c ON pce.CoaCl=ce.codâcl ; 
WHERE UFFER (Prenume) LIKE 'ION%' OR ;}; 
UPPER (Prenume) LIKE 'IOANS! OR ; 
UPPER (Prenume) LIKE '% ION%b' OR; 
UPPER (Prenume) LIKE '$ IOAN%' OR; 
UPPER (Prenume) LIKE '3%3-ION%b' OR ; 
UPPER (Prenume) LIKE '%-IOAN%' 


Sa a n a 


Figura 5.2. VIP-urile de la firmele-client pe care trebuie să le salutăm de Sf. lon 


> 


Exemplul 4 
Ce persoane-cheie de la firmele-client nu au cont de e-mail ? 
ə Soluția 4.1 — folosind operatorul IS NULL: 
SELECT dencl, functie, p.* ; 
FROM PERSOANE p INNER JOIN PERSCLIENTI pc ON p.CNP=pc.CNP ; 
INNER JOIN CLIENTI c ON pc.CodCl=c.codcl ; 
WHERE email IS NULL 


Exemplul 5 
Care sunt facturile emise în aceeaşi zi ca şi factura 1113 ? 


e Soluția 5.1 — bazată pe subconsultare: 
SELECT * ; 
FROM FACTURI ; 
WHERE DataFfact IN ; 

(SELECT DataFact ; 

FROM FACTURI ; | 

WHERE NrFact=1113) 


e Soluția 5.2 — bazată pe joncțiune: 
SELECT FI.NrFact, FI.Datafact ; 
FROM FACTURI Fl INNER JOIN FACTURI F2 ; 
ON Fl.DataFfact = F2,DataFact AND F2.NrFact = 1113 
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e Soluția 5.3 — folosind o interogare corelată: 
SELECT * ; 
FROM FACTURI F1 ; 
WHERE EXISTS ; 
(SELECT 1 ; 
FROM FACTURI F2 ; 
WHERE F1.DataFfact = F2.DataFact AND F2.NrFact=1113) 


Exemplul 6 i 
Care dintre persoanele din tabela cu acelaşi nume nu au funcţii la firmele-client ? 


e Soluţia 6.1 —pe bază de subconsultare: 
SELECT p.* ; 
FROM PERSOANE p ; 
WHERE CNP NOT IN ; 
(SELECT CNP ; 
FROM PERSCLIENTI) 


+ Soluția 6.2 — bazată pe joncțiune externă: 
SELECT * ș 
FROM PERSOANE p LEFT OUTER JOIN PERSCLIENII pc ; 
ON p.CNP=pe.CNP ; 
WHERE NVL (pe.CoaC1,0) = 0 


5.4.2. Funcţii-agregat, cu şi fără grupare 


Exemplul 7 
La câţi clienţi s-au trimis facturi ? 
+ Soluţia 7.1 —o funcție COUNT şi o subconsultare: 
SELECT COUNT (*) ; 
FROM CLIENTI ; 
WHERE CosCi IN ; 
(SELECT CoaCl ; 
FROM FACTURI) 


e Soluţia 7.2 — clauza DISTINCT aunsi funcţii COUNT: 
SELECT COUNT (DISTINCT CoaCl) ; 
FROM FACTURI 


Exemplul 8 see, 
Care este valoarea totală a facturii 1119, valoarea medie, maximă şi minimă a produselor 
vândute pe această factură ? : 

Scopul exemplului este de a ilustra modul de folosirea a funcțiilor-agregat SUM, AVG, 
MIN, MAX. Rezultatul este prrezentat în figura 5.3. 


SELECT SUM(Cantitate * Pretinit * ( 1 + ProcTVA) ; 
AS Val Totala, ; | i 
AVG(Cantitate * PretUnit + Cantitate * PretUnit * ProcTVA); 


146 Visual FoxPro 


AS Val Medie, ; 

MIN (Cantitate * PretUnit + Cantitate * PretUnit * ProcTVA); 
AS Val Minima, ; 

MAX (Cantitate * PretUnit + Cantitate * PretUnit * ProcTVA); 
AS Val Maxima ; 


FROM PRODUSE P INNER JOIN LINIIFACT LF ON P.CodPr = LF.CodPr 


XE : Ma 


Figura 5.3. Valorile: totală, medie, minimă şi maximă ale facturii 1119 


Exemplul 9 
Care este valoarea totală a vânzărilor pentru fiecare zi în care s-au emis facturi ? 
Pentru rezolvarea problemei este obligatorie folosirea grupării (figura 5.4). 


SELECT  DataFact, SUM(Cantitate * PretUnit * (l+ProcTVA)); 
AS ValTotala ; 

FROM LINIIFACT LF, PRODUSE P, FACTURI F ; 

WHERE LF.CoaPr = P.CoaPr AND LF.NrFact = F.Nrfact ; 

GROUP BY Datafact 


Figura 5.4. Folosirea clauzei GROUP BY 


Exemplul 10 

Care sunt vânzările, cantitativ şi valoric, pentru fiecare produs ? 

SELECT DenPr, UM, SUM(Cantitate) AS Cantitativ, ; 
SUM {Cantitate * PretUnit * (1+ProcTVA)) AS Valoric ; 
FROM LINIIFACT LF, PRODUSE P, FACTURI F ; 

WHERE P.CodPr = LF.CodPr AND LE.Nrfact = F,NrFact ; 
GROUP BY DenPr, UM 


Exemplul 11 
Să se obțină situația vânzărilor pe clienți şi zile, afişându-se câte un subtotal la nivel de 
client şi un total general. 

Varianta propusă reuneşte mulțimea facturilor propriu-zise, obţinută din prima frază 
SELECT, cu mulţimea subtotalurilor la nivel de client (al doilea SELECT) şi cu o linie ce 
reprezintă totalul general. 
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SELECT PADR (ALLT (DenC1), 40) AS DenumireClient, ; 


DataFact, ; 
SUM(Cantitate * Pretunit * (1+ProcTVA)) AS Vinzari ; 


FROM LINIIFACT LF, PRODUSE P, FACTURI F, CLIENTI C ; 
WHERE P.CodPr = LF.CodPr AND LF.NrFact = F.NrFact ; 
AND F.CodCl=C.CodC1 ; 
GROUP BY DenCl, DataFact ; 
UNION } 
SELECT PADR (ALLT (DenCl)+'-Subtotal', 40), 7 
L Z7 hbi 
SUM(Cantitate * PretUnit * (1+ProcTVA)) ; 
FROM  LINIIFACT LF, PRODUSE P, FACTURI F, CLIENTI C ; 
WHERE P.CodPr = LF.CodPr AND LF.NrFact = F.NrFact ; 
ND F.Codcl=C.CodCl ; 
GROUP BY DenCl ; 


UNION ; 
SELECT CHR(255)+'TOTAL GENERAL! ; ; 
Zi 


SUM(Cantitate * Pretunit * (1+ProcTVA)) ; 
FROM  LINIIFACT LF, PRODUSE P ; 
WHERE P.CoGPr = LF.Codbr 


Client ] SRL 


Figura 5.5. Mini-OLAP în SQL-VFP 
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Exemplui 12 


Care sunt zilele în care s-au întocmit cel puţin trei facturi ? 
SELECT DataFact, COUNT(*) AS Nr_Facturi ; 
FROM FACTURI ; 

GROUP BY Datafact ; 

HAVING COUNT(*) >= 3 


Este o primă situaţie în care se recurge la opţiunea HAVING. 


Figura 5.6. Zilele în care s-au întocmit minimum 3 facturi 


Exemplul 13 


În ce zile s-au vândut şi produsul cu denumirea „Produs 1”? şi cel cu denumirea 
„Produs 2” ? 


Deşi are un enunț banal, rezolvarea acestei 


probleme oferă oportunitatea unor interogări 
dintre cele mai spumoase. Vă prezentăm numai 


cinci dintre acestea. 


e Soluţia 13.1 — joncţionarea unei instanţe obţinută prin joncțiunea PRODUSE- 


LINIHFACT-FACTURI (în care DenPr = 'Produs 1?) cu o altă instanță a 
aceleiaşi combinaţii (în care DenPr = 'Proaus 2°): 
SELECT DISTINCT Fl.DataFact 
FROM PRODUSE P1 ; 


INNER JOIN LINIIFACT LF1 ON P1.CodPr = 


= LF1.CoaPr 
INNER JOIN FACTURI F1 ON LFI.NrFact = FI.Nrfact ; 
INNER JOIN FACTURI F2 ON PF]. DataFact=F2.DataFact 


INNER JOIN LINIIFACT LF2 ON LF2.NrFact = 


r 


7 


= F2.NrFact ; 
INNER JOIN PRODUSE P2 ON LF2.CodPr = p2.CoadPr ; 
WHERE P1.DenPr = 'Produs 1! AND P2.DenPr = 'Produs 2! 


Soluţia 13.2 — folosind clauza HAVING şi funcţia COUNT 
SELECT DISTINCT DataFact ; 


FROM PRODUSE INNER JOIN LINIIFACT Fi 
ON PRODUSE.CoaPr = LINIIFACT.CoaPr A 
INNER JOIN FACTURI ON LINIIFACT.Nrfact =FACTURI.N 
WHERE DenPr IN ('Produs 1', "Produs 2!) 
GROUP BY DataFact ; 
HAVING COUNT (DISTINCT LINIIFACT.CodPr) = 2 


rrecet + 
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Soluţia 13.3 — simulând intersecția prin subconsultări: 
SELECT DISTINCT DataFact ; 


FROM PRODUSE INNER JOIN LINIIFACT ; 
ON PRODUSE, CoaPr = LINIIFACT.CodPr ; 
INNER JOIN FACTURI ON LINIIFACT.Nrfact = FACTURI .NrFact 
WHERE  DenPr = 'Produs 1! AND DataFact IN 
(SELECT DISTINCT DataFact ; 
FROM PRODUSE ; 
INNER JOIN LINIIFACT ON ; 
PRODUSE. CoaPr = LINIIFACT.CodPr 
INNER JOIN FACTURI ON ; 


LINIIFACT.Nrfact = FACTURI.NrFact 
WHERE DenPr = 'Produs 2!) 


r 
Li 


Li 


Li 


Soluția 13.4 — prin corelarea a două instanţe ale joncţiunii PRODUSE-LINIIFACT- 


FACTURI; prima conţine liniile legate de Produs 7, iar a doua de Produs 2: 
SELECT DISTINCT Datafact ; 


FROM PRODUSE P1, LINIIFACT LF1, FACTURI F1 
WHERE P1.CodPr = LF1.CodPr AND ; 


LFI.,Nrfact = F1.NrFact AND DenPr = 'Produs 1! 
AND EXISTS 


(SELECT 1 ; 

FROM PRODUSE P2, LINIIFACT LF2, FACTURI F2 ; 

WHERE P2.CodPr = LF2.CodPr AND LF2.Nrfact = F2.NrFact ; 
AND P2.DenPr = 'Produs 2! AND F2.DataFfact=Fl.DataFact) 


Li 


, 
, 


e Soluția 13.5: 
SELECT DISTINCT DataFact ; 
FROM FACTURI ; 


INNER JOIN LINIIFACT ON FACTURI .NrFact=LINIIFACT.NrFact ; 
INNER JOIN PRODUSE ON LINIIFACT. CodPr=PRODUSE.CodPr AND. ; 
DenPr IN ('Produs 1!','Produs 2!) 
WHERE DTOC (DataFact)+DTOC((//]) NOT IN 
(SELECT DISTINCT ; 
DTOC (F1.DataFact) +DTOC (NVL (F2.DataFact, (//))) 
FROM FACTURI Fl INNER JOIN PRODUSE P1 ; 
ON P1.DenPr IN ('Produs 1','Produs 2!) } 
LEFT OUTER JOIN (LINIIFACT LF2 INNER JOIN FACTURI F2 
ON LF2.NrFact=F2.NrFact) ; 
ON F1.DataFact=F2.DataFact AND Pl. CogPr=LF2.CodPr) 


Li 
, 


La 


£ 
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Exemplul 14 
Să se afişeze o situaţie a facturilor emise, pe gestiuni, de forma celei din figura 5.7. 


1169500.00. | 


Figura 5.7. Folosirea 1 1 F-urilor în interogări 


Afişarea pe coloane separate, pentru cele trei gestiuni, a facturilor necesită folosirea unei 
secvențe de IF-uri imediate (II F-uri): 
SELECT IIF(gestiune = '001', STR(F.NrFact,8), space(8)) 
AS Gestiune _ 001, ; 
IIF (gestiune = '002', STR(F.NrFfact,8), space(8)) 
AS Gestiune_002, ; 
IIF (gestiune = '003', STR(F.NrFact,8), space(8)) 
AS Gestiune _ 003, ; 
DataFfact, SUM(Cantitate * PretUnit * (1+ProcTVvA)) 
AS ValTotala ; 
FROM FACTURI F ; 
INNER JOIN LINIIFACT LF ON F.NrFact = LF.NrFact 
INNER JOIN PRODUSE P ON LF.CoadPr = P.Codbr 
GROUP BY F.NrFact 


, 
Lă 
. 
r 


+ 


; 


Li 


Exemplul 15 

Scadența fiecărei facturi emise este de 20 de zile. Dacă însă data-limită cade într-o 
sâmbătă sau duminică, atunci scadența se mută în lunea următoare. Care sunt zilele 
scadente în aceste condiţii ? 


Visual FoxPro prezintă funcţiile CDOW (Character Day Of the Week) şi DOW (Day Of 
the Week), rezultatul din figura 5.8 fiind obținut după cum urmează: 


SELECT NrFact AS Factura, DataFfact, ; 
DataFfact + 20 AS Scadental, ; 
CDOW (Datafact+20) AS Numezii], ; 
IIF (DOW (DataFfact+20)=6, ; 
DataFfact+22, ; 
IIF (DOW (DataFfact+20)=l, ; 
DataFact+21, ; 
DataFact+20) ) AS Scadenta, ; 
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CDOW (LIF (DOW (DataFact+20)=6, ; 
DataFfact+22, ; i 
IIF (DOW (DataFfact+20)=1, ; 
DataFfact+21, ; 
DataFfact+20) ) ) AS Zi Scadenta ; 
FROM FACTURI 


Figura 5.8. Determinarea scadenței de încasare 


Exemplul 16 

Care sunt valorile facturate şi încasate ale fiecărei facturi ? 

Soluţia de mai jos, ce obţine liniile din figura 5.9, reuneşte facturile care au măcar o tranșă 
de încasare cu cele neîncasate deloc: 


SELECT F. NrFfact, ; 
SUM(Cantitate * PretUnit * (l+ProcTVA)) /; 
COUNT (DISTINCT I1.Codinc) AS Facturat, ; 
SUM(Transa) / MAX(LFE.Linie) AS Incasat ; 
FROM  LINIIFACT LF, PRODUSE P, FACTURI F, INCASFACT I ; 
WHERE LF.CodPr = P.CodPr AND LF.NrFact = F.NrFact ; 
AND F.NrFact=I.,NrFfact ; 
GROUP BY F.Nrfact ; 
UNION ; 
SELECT Fr. Nrfact, ; 
SUM(Cantitate * PretUnit * (l+ProcTVA)) AS facturat, ; 
O AS Incasat ; 
FROM  LINIIFACT LF, PRODUSE P, FACTURI F ; 
WHERE LF.CodPr = P.CodPr AND LE.NrFact = F.NrFact ; 
AND F.NrFact NOT IN ; 
(SELECT NrFact ; 
FROM INCASFACT)  ; 
GROUP BY FE.NrFfact 
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Nifact |____ Facturat | incasat zi 
seniii 5535750.0000 5299625.0000: -. ` 


6957650.0000 


Figura 5.9. Valorile facturate şi încasate ale fiecărei facturi 


5.4.3. Clauza TOP. Operatorii ALL şi ANY (SOME) 


Exemplul 17 
Care sunt cele mai mari cinci preţuri unitare de vânzare, produs ele şi facturile în care apar 
cele cinci prețuri maxime? 

În alte SGBD-uri, această problemă ar crea dureri de cap plenare. Clauza TOP din VFP 
realizează ordonarea şi extragerea celor cinci valori — vezi figura 5.10. 


SELECT TOP 5 NrFfact, DenPr, PretUnit ; 
FROM LINIIFACT INNER JOIN PRODUSE ; 

ON LINIIFACT.CoaPr=PRODUSE.CodPr ; 
ORDER BY PretUnit DESC 


Figura 5.10. Folosirea clauzei TOP 


Exemplul 18 

Care sunt produsele vândute la prețuri unitare superioare oricărui preț unitar la care a 
fost vândut ‘Produs 1’ ? 

Unul dintre obiectivele acestui exemplu este de a prezenta modul de conexiune a unei 
consultări cu subconsultarea sa prin operatorul ALL. 


SQL în Visual FoxPro 153 


SELECT DISTINCT DenPr, PretUnit ; 
FROM PRODUSE P, LINIIFACT LF ; 
WHERE P.CodPr=LF.CodPr AND PretUnit > ALL ; 
(SELECT DISTINCT PretUnit ; 
FROM PRODUSE P, LINIIFACT Lt ; 
WHERE P.CodPr>=LF.CodPr AND DenPr ='Produs 1!) 


Figura 5.11. Operatorul ALL 


Exemplul 19 
Care sunt produsele vândute la prețuri unitare superioare măcar unui preț unitar al 


‘Produsului 1? ? | 
Este genul de situații în care se foloseşte SOME sau ANY (au aceeaşi funcțiune). 


SELECT DISTINCT DenPr, PretUnit ; | 
FROM PRODUSE P INNER JOIN LINIIFACT LE ; 
ON P.CodPr=LF.CodPr ; 
WHERE PretUnit > ANY ; 

(SELECT DISTINCT PretUnit ; 

FROM PRODUSE P INNER JOIN LINIIFACT LF ; 


ON P.CodPr=LF.CodPr ; 
WHERE DenPr =' Produs 1!) 


Pretunit jal 
3500 


Figura 5.12. Operatorul ANY 
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Exemplul 20 
Care este ultima factură întocmită (factura cea mai recentă) şi data în care a fost emisă ? 
Și aceasta este o problemă cu multe variante de rezolvare: 


e  Soluția20.1: 
SELECT DataFact, NrFact AS UltimaFactura ; 
FROM FACTURI ; 
WF RE NrFact IN ; 

(SELECT MAX (NrFact) ; 

FROM FACTURI) 


e Soluția 20.2 — în locul operatorului IN, operatorul de conexiune este semnul egal: 
SELECT DataFfact, NrFact AS UltimaFactura ; 
FROM FACTURI ; 
WHERE NrFact = ; 
(SELECT MAX (NrFact) ; 
FROM FACTURI) 


e Soluţia 20.3 — folosind operatorul ANY: 
SELECT DataFact, NrFfact AS UltimaFactura ; 
FROM FACTURI ; 
WHERE NrFact =ANY ; 
(SELECT MAX (NrFact) ; 
FROM FACTURI) 


+ Soluţia 20.4 — operatorul ALL şi, în subconsultare, funcţia MAX; 
SELECT DataFfact, NrFact AS UltimaFfactura ; 
FROM FACTURI ; 
WHERE NrFact =ALL ; 
(SELECT MAX (NrFact) ; 
FROM FACTURI) 


ə Soluția 20.5 — conexiune prin >= ALL: 
SELECT DataFfact, NrFact AS UltimaFactura ; 
FROM FACTURI ; 
WHERE NrFact >= ALL ; 
(SELECT NrFact ; 
FROM FACTURI) ; 


e Soluția 20.6 — soluţie „tipică” VFP — ce foloseşte clauza TOP aplicată grupurilor: 
SELECT TOP 1 DataFfact, COUNT(*) AS Nr ; 
FROM FACTURI ; 
GROUP BY DataFact ; 
ORDER BY Nr DESC 
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Exemplul 21 

Care este gestiunea cu vânzările cele mai bune ? i 
Dacă în alte SGBD-uri sunt necesare subconsultări în clauza FROM, în VFP, aceaşi clauză 
TOP este salvatoare — figura 5.13: 


SELECT TOP 1 Gestiune, SUM(Cantitate * PretUnit * ; 
(1+ProcTVA)) AS Vinzari Gestiuni ; 
FROM FACTURI F ; | 
INNER JOIN LINIIFACT LF ON F.NrFact=LF.NrFatt H 
INNER JOIN PRODUSE P ON LF.CodPr=P.CodPr ; 
GROUP BY Gestiune ; 
ORDER BY Vinzari Gestiuni DESC 


Figura 5.13. Gestiunea pentru care s-au înregistrat cele mai mari vânzări 


5.5. Actualizarea datelor folosind (sub)consultări 


Visual FoxPro prezintă, de mai bine de şase ani, câteva atuuri ce constituiau altădată 
apanajul lumii bune a SGBD-urilor: procedurile stocate şi, implicit, declanşatoarele. Devine 
astfel posibilă introducerea unor atribute redundante, dar care măresc sensibil viteza de 
lucru a aplicaţiei. Procesul se numeşte denormalizare și frământă lumea proiectanților de 
baze de date (nu pe noi, autorii de față). Aceste atribute pot fi gestionate automat şi ferite de 
accidente voite sau întâmplătoare, 

Exagerând poate (un pic) cu denormalizarea, introducem o serie de atribute noi, după 
cum urmează: 

ə în tabela LINIIFACT — atributul ValCuTVA, pentru a elimina, la obţinerea 
rapoartelor/informaţiilor în rapoarte, joncțiunea cu tabela PRODUSE (din care se 
preia procentul de TVA); 

e  întabela FACTURI adăugăm nu mai puţin de patru atribute: 

- ValTotală —reprezintă valoarea totală (inclusiv TVA) a facturii; 

— ValiIncasata -— este valoarea încasată (până în prezent) din contravaloarea 
facturii; 

— Reduceri — de obicei pentru plata rapidă a facturii; 

- Penalităţi - este opusul atributului anterior. 


Comenzile SQL prin care ne punem în operă intenţiile sunt: 
ALTER TABLE LINIIFACT ADD ValCuTVA NUMERIC (16) 
ALTER TABLE FACTURI ADD ValTotala NUMERIC (1.6) 
ALTER TABLE FACTURI ADD Valincasata NUMERIC (16) 
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ALTER TABLE FACTURI ADD Reduceri NUMERIC (15) 
ALTER TABLE FACTURI ADD Penalizari. NUMERIC (15) 


Deoarece aceste modificări nu au fost luate în calcul în momentul creării bazei, 
atributele trebuie „umplute” din mers. Motiv de prezentare a comenzilor de actualizare 
într-o variantă mai de fineţe — folosind subconsultări. Lucrul acesta nu e permis încă de 
comanda INSERT, în care valorile nu pot fi specificate printr-un SELECT (spre deosebire 
de SQL-92). | 

În schimb, coinanda DELETE este destul de tolerantă în acest sens. Spre exemplu, se 
doreşte ștergerea tuturor liniilor din tabela FACTURI care nu au copii în LINIIFACT 
(altfel spus, facturile fără nici un produs/serviciu). O soluție elegantă este următoarea: 
DELETE FROM FACTURI ; 

WHERE NrFact NOT IN ; 

(SELECT DISTINCT NrFfact ;}; 

FROM LINIIFACT ) 


Fireşte, subconsultarea poate fi şi corelată: 
DELETE FROM FACTURI ; 
WHERE NOT EXISTS ; 
(SELECT 1 ; 
FROM LINIIFACT ; 
WHERE LINIIFACT.NrFact = FACTURI.NrFact) ; 


Să se elimine din tabela FACTURI toate liniile care se referă la facturi cu valoare sub 3 
milioane lei. 


Rezolvarea problemei presupune folosirea unei subconsultări cu grupare. 
DELETE FROM FACTURI ; 
WHERE NrFact NOT IN ; 
(SELECT NrFact ; 
FROM LINIIFACT LF INNER JOIN PRODUSE P ; 
ON LFE.CogPr=P.CodPr ; 
GROUP BY NrFact ; 
HAVING SUM(Cantitate*PretUnit* (l+ProcTVA)) >= 5000000 ; 
) 


Pentru actualizarea atributelor introduse în acest paragraf, ne interesează, în primul rând, 
comanda UPDATE. Dacă am fi siguri că toate produsele/serviciile ar avea procentul de TVA 
unic — şi anume 19% —, actualizarea atributului ValCuTVA din LINIIFACT ar fi uşoară: 
UPDATE LINIIFACT ; 3 

SET ValCuTVA = Cantitate * PretUnit * 1.19 


Schema bazei este una pe termen lung însă. În funcție de legislația în vigoare, la un 
moment dat, produsele pot avea procente diferite de TVA, în funcție de categoria din care 
fac parte (de strictă necesitate, de lux etc.). De aceea, la calculul valorii cu TVA este 
obligatorie preluarea procentului TVA din tabela PRODUSE. Din păcate, varianta care 
ne-ar trebui: 
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UPDATE LINIIFACT ; 
SET ValCuTVA = ; 
(SELECT Cantitate * PretUnit * (1+ProcTVA) 
FROM LINIIFACT LF INNER JOIN PRODUSE P A 
ON LF.CodPr=P.CodPr ;. 
WHERE LF.NrFact = LINIIFACT.NrFact AND F 
P.CodPr = LINIIFACT.CodPr ; 


Fă 
[a 


) 
nu are de gând să funcționeze în nici una dintre versiunile VFP. Drept pentru care suntem 
nevoiți să folosim o soluție procedurală, cu sau fără cursoare (vezi paragraful următor). 
Singurul loc în care UPDATE-ul poate prezenta o subconsultare este clauza WHERE. De 


exemplu, dacă se doreşte reducerea penalizărilor pentru toți clienţii din Paşcani, se poate 
folosi comanda: 


UPDATE FACTURI ; 
SET Penalizari = Penalizari * .5 ; 
WHERE CoaCl IN ; 
(SELECT Coacl ; 
FROM CLIENTI INNER JOIN LOCALITATI Fi 
ON CLIENTI.CodPost = LOCALITATI .CodPost ; 
WHERE Loc = 'Pascani') 


5.6. Includerea frazelor SELECT în programe 


Multe dintre problemele complexe de interogare necesită în SQL folosirea mai multor 
niveluri de subconsultare sau prezența subconsultărilor în clauzele FROM sau HAVING, 
facilități pe care nucleul SQL din Visual FoxPro nu le are încă implementate. În schimb, 
pentru aceste cazuri se pot crea programe în care rezultatele intermediare ale unor interogări 
sunt stocate în cursoare sau tabele virtuale care, la rândul lor, pot constitui argumente ale 
unor noi consultări. 


5.6.1. Salvarea rezultatulului unei fraze SELECT în cursor 


Cursorul este, în Visual FoxPro, o tabelă temporară, a cărei viață se întinde de la 
momentul unui SELECT ce prezintă clauza INTO CURSOR sau CREATE CURSOR 
până la închiderea sa, implicită sau explicită. 


_ Revenim la exemplul 13: 

În ce zile s-au vândut şi produsul cu denumirea „Produs 1 ”, şi cel cu denumirea „Produs 
2» 2) 

La seria interogărilor care au fost prezentate adăugăm şi o variantă simplă de program > 
listingul 5.4 —, care se bazează pe folosirea a două cursoare, astfel: 
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Listing 5.4. Program VFP ce salvează rezultatele intermediare ale interogărilor în cursoare Listing 5.5. Judeţul cu vânzări imediat peste cele ale judeţului Neamţ 
SELECT DISTINCT DataFact; 
INTO CURSOR Zile _P1; ; * Vinzarile jud. Neamt 
FROM PRODUSE INNER JOIN LINIIFACT ON PRODUSE.CodPr = LINIIFACT.CodPr ; SELECT SUM(Cantitate * PretUnit * (1+ProcTVA)) AS Vinzari ; 
INNER JOIN FACTURI ON LINIIFACT.Nrfact = FACTURI.NrFact ; FROM JUDETE J; 
WHERE DenPr = 'Produs 1! INNER JOIN LOCALITATI L ON J.Jud=L.Jud ; 
INNER JOIN CLIENTI C ON L.CogPost=C.CodPost ; 
SELECT DISTINCT DataFact ; INNER JOIN FACTURI F ON C.CodaCi=F.CodCl; 
i INTO CURSOR Zile_P2 ; INNER JOIN LINIIFACT LF ON F.NrFact=LF.NrFact ; 
FROM PRODUSE INNER JOIN LINIIFACT ON PRODUSE.CodPr = LINIIFACT.CodPr; INNER JOIN PRODUSE P ON LF.CodPr=P.CodPr ; 
| INNER JOIN FACTURI ON LINIIFACT.Nrfact = FACTURI.NrFact ; INTO CURSOR cVinzari_Neamt ; 
WHERE DenPr = "Produs 2 WHERE Judei='Neamt' 
| SELECT *; * Vinzarile fiecarui judet 
FROM Zile_P1; SELECT Judet, SUM(Cantitate * PretUnit * (1+ProcTVA)) AS Vinzari ; 


WHERE DataFact IN ; FROM JUDETE J ; 
(SELECT DataFact; INNER JOIN LOCALITATI L ON J.Jud=L.Jud ; 
FROM Zile _P2 INNER JOIN CLIENTI C ON L.CodPost=C.CodPost ; 
INNER JOIN FACTURI F ON C.CodCl=F.CodC] ; 


P | F , RER a ENS INNER JOIN LINIIFACT LF ON F.NrFact=LF.NrFact i 
Prima interogare creează cursorul Zile_P1, ce conține numai zilele în care s-a vândut INNER JOIN PRODUSE P ON LF.CodPr=P.CodPr: 


primul produs; al doilea cursor este populat cu zilele în care s-a vândut al doilea produs; INTO CURSOR cVinzari_Judete | 
ultima interogare realizează intersecția celor două cursoare — figura 5.14. GROUP BY Judet i 


SELECT Judet, Vinzari ; 
FROM cVinzari_Judete ; 
WHERE Vinzari <= ALL ; 
(SELECT cVinzari_Judete. Vinzari ; 
FROM cVinzari_Judete, cVinzari_Neamt ; 
WHERE cVinzari_Judete.Vinzari > cVinzari_Neamt.Vinzari) ; 
AND Vinzari > ALL ; 
(SELECT Vinzari ; 
FROM cVinzari Neamt 


03/08/2001 


Conţinutul cursoarelor şi al rezultatului final constituie obiectul figurii 5.15. 


Figura 5.14. Conţinutul celor două cursoare şi rezultatul interogării finale 


Exemplul 22 

Care este județul cu vânzări imediat superioare județului Neamţ ? 

Soluţia din listingul 5.5 are un dram suplimentar de interes, deoarece la ultima sa interogare, 
în afara clauzei WHERE, care conține două subconsultări, se efectuează theta-joncţiunea 
dintre cele două cursoare, cVinzari_Neant și cVinzari Judete. 


Figura 5.15. Determinarea judeţului cu vânzări imediat peste cele ale judeţului Neamţ 
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- Exemplul 22 
Care este clientul cel mai mare datornic? 
Listingul 5.6 conţine programul ce răspunde la această problemă. 


Listing 5.6. Clientul cu cel mai mare rest de plată 


i 


* Valorile facturate, pe clienti 
SELECT CoaCi, SUM(Cantitate * Pretunit * (1+ProcTVA)) AS Facturat ; 
FROM FACTURI F ; 

INNER JOIN LINIIFACT LF ON F.NrFaci=LF.NrFact ; 

INNER JOIN PRODUSE P ON LF.CodPr=P.CodPr; ` 
INTO CURSOR cFACTURAT : 
GROUP BY CodCi 


* Valorile incasate, pe clienti 
SELECT CodCI, SUM(Transa) AS incasat ; 
FROM FACTURI F ; 

INNER JOIN INCASFACT | ON F.NrFact=l.NrFact ; 
INTO CURSOR ciNCASAT ; : 
GROUP BY CodCl 


* Restul de plata, pe clienti 

SELECT cFACTURAT.CodCI, Facturat, NVL(Incasat,0) AS Incasat, ; 
Facturat - NVL(incasat,0) AS De_Incasat; 

FROM cFACTURAT LEFT OUTER JOIN ciNCASAT ; 
ON cFACTURAT.CodCi=ciNCASAT.CoaCi ; 

INTO CURSOR cDe_INCASAT : 


* Finalul apoteotic 

SELECT DenCl, cDe_INCASAT.* ; 

FROM cDe_INCASAT INNER JOIN CLIENTI ; 
ON cDe_INCASAT.CoaCi=CLIENTI.CodCl ; 

WHERE De_Incasat >= ALL ; 

i (SELECT De_Incasat; 

FROM cDe_INCASA 


5.6.2. Utilizarea cursoarelor pentru actualizări 


În paragraful anterior au fost introduse patru câmpuri calculate, dar nici unul nu a fost 
adus „la zi”, din cauza limitărilor comenzii UPDATE în VFP. Modalităţile în care se poate 
redacta programul de actualizare a fiecăruia dintre atribute sunt destul de eterogene, de la 
soluţii „curat xBase-iste” la soluții „preponderent SQL-istice” (scuzați terminologia !). lată 
în listingul 5.7 o variantă simplă în care valoarea cu TVA a fiecărei linii se caculează şi se 
salvează în cursorul cVal, cursor care se parcurge secvențial, pentru fiecare linie a sa 
operându-se modificarea în înregistrarea din LINIIFACT corespondentă. 


Listing 5.7. Prima variantă de actualizare a atributului VaLcuTvA 


* 


SELECT NrFact, LF.CodPr, Cantitate * PretUnit * (1+ProcTVA) AS ValCuTVA ; 
INTO CURSOR cVAL ; 
FROM LINIIFACT LF INNER JOIN PRODUSE P ON LF.CodPr=P.CodPr 
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SELECT cVal 
SCAN 
UPDATE LINIIFACT ; 


SET ValCuTVA = cVal.ValcuTVA ; 
WHERE NrFact = cVal.NrFact AND CodPr = cVal.CodPr 
ENDSCAN 


Pentru comparație, în listingul 5.8 este prezentată o soluție ce combină folosirea 
cursorului cu indexul primar al tabelei LINIIFACT: 


Listing 5.8. A doua variantă de actualizare a atributului ValCuTVA 


SELECT STR(NrFact,8)+STRI(Linie,2) AS Cheie, Cantitate * PretUnit * (1+ProcTVA) AS ValCuTVA ; 
INTO CURSOR cVAL ; 
FROM LINIIFACT LF INNER JOIN PRODUSE P ON LF.CodPr=P.CodPr 


SELECT cVal 

SCAN 
SELECT LINIIFACT 
SEEK cVal.Cheie ORDER TAG primaru 
REPLACE ValCuTVA WITH cVal.ValCuTVA 
SELECT cVal 

ENDSCAN 


iar în listingul 5.9, o variantă strict xBase: 


Listing 5.9. A treia variantă de actualizare a atributului va1CuTvA 


* 


IF IUSEDCLINIIFACT”) 
USE LINIIFACT in 0 
ENDIF 


IF !USED(PRODUSE') 
USE PRODUSE in 0 
ENDIF 


SELECT LINIFACT 
SCAN 
SELECT PRODUSE 
SEEK LINIIFACT.CodPr ORDER TAG CodP 
SELECT LINIIFACT i f 
REPLACE ValCuTVA WITH Cantitate * PretUnit * (1+PRODUSE.ProcTVA) 
ENDSCAN i 


Programul din listingul 5.10 este cel care realizează calculul celor trei atribute, 
LINIIFACT, ValCuTVA, FACTURI.ValTotala şi FACTURI.ValIncasată. 
Pentru a mai creşte factorul interes, valoarea încasată se actualizează prin intermediul unui 
tablou (masiv) - vIncasat. j g 
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Listing 5.10. Totalul celor trei noi atribute 


UPDATE facturi SET VaiTotala = 0, Valincasata = 0, Penalizari =.0, Reduceri = 0 
UPDATE liniifact SET ValCuTva = 0 


IF !USED('PRODUSE') 
USE PRODUSE IN 0 
ENDIF 


SELECT LINIIFACT 
SCAN 
* se preia procentul TVA 
SELECT PRODUSE 
SEEK LINIIFACT.CodPr ORDER TAG CodPr 


* calculul si iniocuirea valorii cu TVA 
SELECT LINIIFACT 
REPLACE ValCuTVA WITH Cantitate * PretUnit * (1+PRODUSE.ProcTVA) 


* adaugarea valorii in tabela facturi 

SELECT FACTURI 

SEEK LINIIFACT.NrFact ORDER TAG NrFact 

REPLACE VaiTotala WITH VaiTotala + LINIIFACT.ValCuTVA 


SELECT LINIIFACȚ 
ENDSCAN 


* calculul valorii incasate pentru fiecare factura si salvarea intr-un masiv 

SELECT FACTURI.NrFact, SUM(NVL(Transa,0)) AS Vallncasata ; 

INTO ARRAY vincasat ; 

FROM FACTURI LEFT OUTER JOIN INCASFACT ON FACTURI.NrFact=iNCASFACT.NrFact ; 
“GROUP BY FACTURI.NrFact 


* actualizarea valorii incasate in tabela FACTURI 
SELECT FACTURI 
SCAN 
pozitie = ASCAN (vincasat, FACTURI.NrFact) 
REPLACE Valincasata WITH vincasat (pozitie + 1) 
ENDSCAN : 


5.6.3. Alte considerații privind cursoarele 


Un cursor poate fi creat şi prin comanda CREATE CURSOR, caz în care tabela 
temporară este actualizabilă. Formatul comenzii prezintă clauze similare CREATE TABLE: 


CREATE CURSOR alias _ name 
(fnamel type [(precision [, scale]) 
[NULL | NOT NULL} 
[CHECK lExpression [ERROR cMessageText]) 
[DEFAULT eExpression) 
[UNIQUE] 
[NOCPTRANS] ] 
1, fname2 ...]) 
| FROM ARRAY ArrayName 
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O dată creat și declarate restricţiile, un cursor poate fi actualizat ca orice tabelă 
obişnuită, prin comenzile SQL: INSERT, UPDATE şi DELETE, precum şi orice altă 
comandă de editare specifică VFP. De asemenea, orice încălcare a vreunei restricții definite 
va fi semnalizată. După cum vom vedea în capitolul 9, şi cursoarelor, similar tabelelor 


virtuale, li se pot vizualiza şi configura proprietăţile prin funcțiile CURSORGETPROP () şi 
CURSORSETPROP (). 


Conţinutul unui cursor poate fi adăugat la înregistrările curente ale unei tabele prin 
comanda APPEND FROM DBF('<NumeCursor>! ). Astfel, putem redacta o variantă 
mai simplă dar mai primitivă de calcul al valorilor celor trei atribute. Prin fraze SELECT 
construim cursoare cu aceleaşi structuri ca ale tabelelor FACTURI şi LINIIFACT, însă cu 
atributele ValCuTVA, ValTotala şi ValIncasata calculate. Apoi şteregem toate 


liniile celor două tabele şi adăugăm conţinutul cursoarelor, Programul este cel din 
listingu! 5.11, i 


Listing 5.11. O altă variantă pentru calculul valorilor celor trei noi atribute 


* folosirea APPEND FROM DBF(<cursor>) 


* se construieste un cursor cu structura identica LINIIFACT 
* si cu toate atributele completate/calculate corect 
SELECT NrFact, Linie, LF.Godpr, Cantitate, ; 
PretUnit, Cantitate * Pretunit * (1+ProcTVA) AS VaiCuTVA ; 
INTO CURSOR cLINIIFACT ; 
FROM LINIIFACT LF INNER JOIN PRODUSE P ON LF.CodPr=P.CodPr 


* se goleste tabela LINIIFACT si apoi se preia continutul cursorului 
DELETE FROM LINIIFACT 

SELECT LINIIFACT 

PACK 

APPEND FROM DBF('cLINIIFACT”) 


* analog pentru tabela FACTURI 


SELECT FACTURI.NrFact, DataFact, Gestiune, CodCI, Obs 
SUMNVL(ValCuTVA,0)) AS ValTotala, ; 
Reduceri, Penalizari, ; 

SUM(NVL(Transa,0)) AS Valincasata ; 

INTO CURSOR cFacturi ; 

FROM FACTURI ; 

LEFT OUTER JOIN LINIIFACT ON FACTURI.NIFact = LINIIFACT.NrFact ; 
LEFT OUTER JOIN INCASFACT ON FACTURI.NrFaci=INCASFACT.NrFact i 
GROUP BY FACTURI.NrFact 


io 


DELETE FROM FACTURI 
SELECT FACTURI 
PACK 


APPEND FROM DBF('cFACTURI') 


Cursoarele pot fi, în unele situații, un bun substitut al vectorilor. Să luăm un asemenea 
caz, cel al calculării reducerilor pentru plata rapidă a facturilor. Să presupunem că, pentru 
clienții buni platnici, se acordă reduceri la plată: 

° pentru tranşele de facturi plătite (INCASARI . DataTnc) în termen de până la 10 zile, 
acordăm o reducere de 10%; 
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între 11 şi 12 zile procentul este de 9%; 
e între 13 și 15 zile- 8%; ; 
e peste 16 zile — nu se acordă reduceri (eventual se calculează penalizări, dar asta-i altă 
poveste). i 
Tranşele de acordare a reducerilor pot fi stocate în cursoare și, astfel, folosite în 
interogări. În listingul 5.12 este prezentat programul care realizează calculul reducerilor şi 
actualizarea atributului FACTURI , Reduceri. E 


Listing 5.12. Calculul reducerilor acordate pentru încasări 


* se creaza si populeaza cursorul cu transeie de reduceri 
CREATE CURSOR transe_red (; 

zile_min INTEGER, ; 

zile_max INTEGER, ; 

procent INTEGER ; 

) 


INSERT INTO transe_red VALUES (0, 10, 10) 
INSERT INTO transe_red VALUES (11, 12, 9) 
INSERT INTO transe_red VALUES (13, 15, 8) 
INSERT INTO transe_red VALUES (16, 99999, 0) 


* pentru fiecare factura cu valoare peste zero se insereaza 

* in cursrul FACT_TRANSE cite o linie pentru fiecare transa 

* posibila de reduceri i i 

SELECT NrFact, DataFact, ValTotala, DataFact + zile_min AS Liminf, ; 
DataFact + zile_max AS LimSup, procent ; 

FROM FACTURI, TRANSE_RED ; 

INTO CURSOR FACT_TRANSE ; 

WHERE procent > O AND ValTotala > 0 


* se calculeaza reducerile pe fiecare transa 
SELECT FACT_TRANSE.*, Datainc, Transa, INT(Procent * Transa / 100) AS Reducere ; 
INTO CURSOR reduceri_transe ; 
FROM INCASFACT INNER JOIN INCASARI ON INCASFACT.Codinc=INCASARI.Codinc;; 
INNER JOIN FACT_TRANSE ; 
ON INCASFACT NrFact = FACT_TRANSE.NrFact : 
WHERE INCASARI.Datalinc >= FACT_TRANSE Liminf AND ; 
INCASARI.Datainc <= FACT_TRANSE.LimSup 


* se actualizeaza atributul FACTURI.Reduceri i 
DIME suma_ (1,1) 
SELECT facturi 
SCAN 
suma_= 0 
SELECT SUM(Reducere) ; 
INTO ARRAY suma_:; 
FROM REDUCERI_TRANSE ; 
WHERE NrFact = facturi.Nrfact 
SELECT facturi 
REPLACE Reduceri WITH suma_(1,1) * 


LENDSCAN 


s ; 
QL în Visual FoxPro 165 


Soluția e destul de scumpă, dar operațională. Tranşele de reduceri constituie obiectul 
cursorului actualizabil TRANSE_RED, actualizabil automat deoarece a fost creat prin 
comanda CREATE CURSOR și nu printr-un SELECT, 

Prima frază SELECT constituie unul dintre puţinele exemple de folosire a produsului 
cartezian. Cursorul (Read-Only) FACT_TRANSE conține, pentru fiecare factură cu 
valoare mai mare decât zero, toate intervalele calendaristice pentru care se pot acorda 


reduceri. Ținând cont de liniile tabelelor din baza de date, iată în figura 5.16 conţinutul 
cursorului. 


A Datatact |. Valotala - 


EX 


Figura 5.16. Cursorul FACT_TRANSE 


A doua frază SELECT determină reducerile efective, pe tranşe, conținutul cursorului 


creat — REDUCERI_TRANSE - fiind prezentat în figura 5.17. 
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1112403/08/2001 


Figura 5.17. Cursorul REDUCERI_TRANSE 


În final, se însumează toate reducerile pe facturi și se actualizează atributul 
FACTURI . Reduceri. 

Varianta prezentată este una exemplificatoare (se observă că, pentru câteva facturi, 
valoarea încasată plus reducerile sunt peste valoarea facturii), dar poate fi adaptată la 
practica românească. 


5.7. Variabile utilizate în consultări. 
Macrosubstituţie şi SQL 


G 


Utilizarea variabilelor în interogările SQL este utilă mai ales atunci când rapoartele sau 
informațiile trebuie filtrate calendaristic, geografic etc. 


5.7.1. Variabile pentru filtrarea interogărilor 


Să începem cu un exemplu simplu. Într-o aplicație avem de listat facturile emise către un 
client pentru un anumit interval de timp definit printr-o dată inițială şi o dată finală. Pentru 
aceasta se poate redacta un program 15_13.prg, care preia cei trei parametri (codul 
clientului, datele iniţială şi finală ale intervalului calendaristic) — listing 5.13. 


Listing 5.13. Programul L5_13. PRG 
PARAMETER codcl_, datai_, dataf_ 


SELECT DenC! AS Client, Nrfact, DataFact, Gestiune, ValTotala AS Valoare ; 
FROM CLIENTI C LEFT OUTER JOIN FACTURI F ON C.CodCi = F.CodC!; 
WHERE F.CodCi = codel_ AND Datafact BETWEEN datai AND dataf 


Pentru a obține lista facturilor emise clientului 1 (cod 1001) în perioada 2-7 august 
2001, se apelează programul de mai sus prin comanda: 
DO 15_13 WITH 1001, 4%2001/08/02), (%2001/08/07) 


Cu varianta din listingul 5.14 se poate ameliora afişarea pe ecran. 
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Listing 5.14. O afişare un pic mai plăcută 


PARAMETER codcl_, datai_, dataf_ 


SELECT DenCl AS Client, Nrfact, DataFact, Gestiune, ValTotala AS Valoare ; 
INTO CURSOR c1 ; 

FROM CLIENTI C LEFT OUTER JOIN FACTURI F ON C.CodC! = F.CoaCi; 
WHERE F.CodC! = codel_ AND Datafact BETWEEN datai_ AND dataf_ 


titlu_ = 'Lista facturilor pentru clientul '+ALLTRIM(c1.Ciient)+' in perioada '+; 
DTOC(datai_)+' - '+DTOC(datat_) 


SELECT c1 l 
BROWSE TITLE titlu_ 
USE 


La execuția comenzii 
DO 15_14 WITH 1001, {^2001/08/02}, {^2001/08/07} 


se va afişa o fereastră BROWSE de forma celei din figura 5.18. 


Figura 5.18. Interogare parametrizată şi titiu dinamic pentru fereastra BROWSE 


Se mai cuvine de adăugat că, în afara filtrării şi denumirii „dinamice” a ferestrei de 
vizualizare a rezultatelor interogării, ultimul program „lasă curat” în urma sa, închizând 
cursorul la ieşirea din BROWSE. 


5.7.2. Macrosubstituţia şi fraze SELECT 


Să presupunem că o aceeaşi listă — a facturilor ce conține următoarele date; 

e numărul facturii, 

e data emiterii, 

e numele clientului, 

+ localitatea în care-şi are sediul clientul, 

e valoarea încasată până în momentul curent — 
trebuie obţinută pentru un anumit interval calendaristic, în orice ordine declarată prin toate 
combinaţiile posibile ale celor cinci câmpuri. Listingul 5.15 conţine o primă variantă de 
program. 


Listing 5.15. Prima varinată de ordonare dinamică 


PARAMETER datai_, dataf_, cimp1_, cimp2_, cimp3_, cimp4_ 


SELECT DenC! AS Client, Loc AS Localitate, Nrfact, DataFact, Gestiune, ValTotala AS Valoare ; 
FROM CLIENTI C LEFT OUTER JOIN FACTURI F ON C.CoaCl = F.CodCl; | 
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INNER JOIN LOCALITATI L ON C.CodPost = L.CodPost: 
WHERE Datafact BETWEEN datai_ AND dataf_ ; 
ORDER BY &cimp1_, &cimp2 „ &cimp3 &cim 4 


Clauza ORDER BY se construiește dinamic cu ajutorul macrosubstituției. Invocarea 
acestui program se face cu o comandă DO de genul: 
DO 15_15 WITH {^2001/08/02}, {^2001/08/07}, 'Loc', 
'DataFact', 'DenCl', 'ValTotala' 


În continuare vă propunem o variantă mai elegantă. Ce-ar fi ca, în afara celor două date 
calendaristice, de început şi de sfârşit, ordonarea să fie precizată printr-o listă care să 
conţină unul, două, trei... sau chiar nici un atribut? Programul din listingul 5.16 preia un 
parametru de tip şir de caractere care este, de fapt, lista atributelor de ordonare, atribute 
separate prin virgulă. Aşa încât programul analizează virgulele din şir şi extrage atributele 
pe baza cărora se va construi, dinamic, clauza WHERE. 


Listing 5.16. Se preia numai data iniţială şi finală, plus ordinea de prezentare, 
sub formă de listă de atribute separate prin virgulă 


PARAMETER datai_, dataf_, ordinea_ 
i=1 
* se determina prima pozitie a virgulei (asta inseamna cu sunt macar 
* doua atribute de ordonare) 

poz_ = AT (,, ordinea, i) 


IF poz_>0 && exista macar o virgula, deci sunt mai multe atribute de ordonare 


* se localizeaza toate virgulele si se extrag atributele cuprinse intre virgule 
poz_preced = 0 - 
DO WHILE poz_#0 
ii = str(i,1) 
cimpăii = SUBSTR(ordinea_, poz_preced + 1, poz_ - poz_preced - 1) 
poz_preced = poz_ 
j=i+1 
poz_ = AT (,, ordinea, i) 
ENDDO 


* a mai ramas atributul dintre ultima virgula si sfirsitul sirului de ordonare 
ji = str(i,1) 
cimp&ii = SUBSTR(ordinea_, poz. preced + 1, LEN(ordinea_) - poz_preced) 


* se construieste clauza ORDER BY 
order_by_= '' 
FORj=1TOi 

ji = STRV,1) 

IFj>141 

order_by_ = order_by_+',' 

ENDIF 

order_by_ = order_by_ + ALLTRIM(cimpâ&jj) 
ENDFOR : 


ELSE && exista maximum un atribut de ordonare 
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IF LEN(ALLT(ordinea_)) = 0 && de fapt, nu exista nici un atribut de ordonare 
order_by_ =" 1' && ordonarea se face dupa prima coloana 
E 


order_by_ = ALLTRIM(ordinea_)&& exista un singur atribut de ordonare 
ENDIF 


ENDIF 


* si acum, interogarea ! 
SELECT DenCI! AS Client, Loc AS Localitate, Nrfact, DataFact, Gestiune, ValTotala AS Valoare ; 
FROM CLIENTI C LEFT OUTER JOIN FACTURI F ON C.CodCl = F.CodCI ; 
INNER JOIN LOCALITATI L ON C.CodPost = L.CodPost ; 
WHERE Datafact BETWEEN datai_ AND dataf_ ; 


ORDER BY &order by, 


lată şi câteva moduri de apel a programului: 


DO 15_16 WITH ("2030/08/02), (2001/08/20), 'valtotala, 
dencl, nrfacz! 


DO 15_16 WITH (2000/08/02), 112001/08/20), 'nrfact: 


DO 15_16 WITH (*2000/08/02), 472001/08/20), 'valtotala, 
nrfact! 


DO 15_16 WITH (42000/08/02), 192001/08/20), '! 


5.7.3. Calculul automat al valorilor unor atribute agregate 


Practica dezvoltării aplicaţiilor de lucru cu baze de date a consacrat sintagma denorma- 
lizare. Frecvent, în tabele sunt incluse atribute redundante, calculate prin însumarea 
valorilor unor atribute din tabelele-copil. Forţând un pic lucrurile, ne propunem să 
construim o rutină generalizată căreia să-i trimitem ca parametri numele tabelelor-părinte şi 
copil, numele atributului din părinte ce trebuie actualizat, numele atributului din copil pe 
baza căruia se face actualizarea, precum şi atributul-cheie al tabelei-părinte. i 


Listing 5.17. Generalizarea actualizării valorilor unui câmp caiculat 


a 


PARAMETER parinte_, cheie_parinte_, cimp_parinte_, copii_, cheie_copil_, cimp_copil_ 


* se zerorizeaza cimpul ce urmeaza a fi calculat 
UPDATE (parinte_) SET &cimp_parinte_ = 0 


* se declara masivul in care va fi preluata valoarea calculata 
DIME suma_ (1,1) 


SELECT (parinte_) 
SCAN 
suma_= 0 


* valoarea cheii pimare a liniei curente din tabela parinte 
val_cheie_parinte_ = &cheie_parinte_ 
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* insumarea liniilor-copil 
SELECT SUM(&cimp_copil_) INTO ARRAY suma_ FROM (copil); 
WHERE &cheie_copil_ = val_cheie_parinte_ 


* inlocuirea valorii calculate in linia curenta a tabelei parinte 
SELECT (parinte_) 
REPLACE &cimp_parinte_ WITH suma_(1,1) 


ENDSCAN | 


Pentru calcularea valorilor atributului FACTURI. ValTotală pe baza liniilor-copi 
din LINIIFACT, atributul-copil fiind LINIIFACT. Val CuTVA, se invocă programul de 


mai sus sub forma: 
do 15_17 with 'facturi', 'nrfact!', 'valtotala', "'liniifacti!, 
'nrfact!, "'valcutva! 


Însumarea tranşelor de încasare (INCASFACT. Transa) pentru fiecare factură şi, 
astfel, calcularea valorilor atributului FACTURI . Val Incasata se va face astfel: 
do 15_17 with 'facturi!, 'nrfact', 'valincasata!, 
'incasfact!, 'nrfact!', "transa! 


5.7.4. Macrosubstituţie şi iterații SQL 


Tot cu ajutorul macrosubstituției se pot rezolva situații dintre cele mai dificile de 
obţinere a unor rapoarte pretențioase. Spre exemplificare, dorim obținerea unui raport 
matriceal în care, pe verticală, să fie prezente toate produsele comercializate de firmă, iar 
„ordonata” să fie constituită din primele patru zile ale lunii august 2001 — ca în figura 5.19. 


Asa at 


08-2001. 


Figura 5.19. O situație matriceală 


Pentru facilitarea prezentării, ne-am limitat la patru zile, dar programul din listingul 5.18 
funcţionează pentru oricâte zile, singura problemă fiind popularea cursorului ZILE. În 
programul nostru, aceasta se face prin INSERT-uri directe, însă în aplicaţii datele inițiale şi 
finale ale intervalului se pot prelua printr-un formular şi, astfel, popularea cursorului se 
automatizează. 


Listing 5.18. Situaţie matriceală a vânzării produselor pe primele patru zile 
ale lunii august 2001 


SET MARK TO && separatorul ptr. data calendaristica 


CREATE CURSOR zile (Zi DATE) 
INSERT INTO Zile VALUES ((12001/08/01)) 
INSERT INTO Zile VALUES ((12001/08/02 
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INSERT INTO Zile VALUES ((12001/08/03) 
INSERT INTO Zile VALUES ((12001/08/04)) 


SELECT DataFact, DenPr, LF.CodPr, SUMUNT(Cantitate * PretUnit * (1+ProcTVA)) AS V i 
INTO CURSOR Zile_Produse ; í PATS 
FROM FACTURI F INNER JOIN LINIIFACT LF ON F.NrFact = LF.NrFact ; 

INNER JOIN PRODUSE P ON LF.CodPr=P.CodPr; 
WHERE DataFact IN: 

(SELECT Zi ; 

FROM Zile) ; 
GROUP BY DataFact, DenPr, LF.CodPr 


SELECT DenPr, CodPr ; 
INTO CURSOR c1; 
FROM PRODUSE ; 
ORDER BY DenPr 


i=1 
SELECT Zile 
SCAN 


ii = ALLT(STR(I.2)) 
ii_phus_1 = ALLT(STR(i+4,2)) 
ziva_ =! _'+DTOC(Zile.Zi) 


SELECT c&ii..*, NVL(ZILE_PRODUSE .Valoare,0) AS Zi&ziua_ ; 
FROM c&ii LEFT OUTER JOIN ZILE_PRODUSE ; 

ON c&ii..CodPr = ZILE_PRODUSE.CodPr AND DataFact = Zile.Zi ; 
INTO CURSOR c&ii_plus_1 
izi+i 
SELECT Zile 


ENDSCAN 


SELECT câii_plus_f 
BROWSE TITLE 'Vinzari - Produse/Zile' 


SELECT Zile 

USE 

SELECT Zile_Produse 
USE 


FORj=1T0i 
ii = ALLT(STR(,2)) 
SELECT c&ii 
“USE 
ENDFOR 


Câteva explicaţii n-ar strica în acest moment. Cursorul ZILE conține toate datele 


calendaristice care trebuie să apară drept coloane ale raportului. Valorile vânzărilor pe 
produse şi zile sunt calculate şi stocate în cursorul ZILE PRODUSE. Liniile raportului sunt 
alcătuite din toate produsele firmei, astfel încât cursorul „de start” — c1 — este obținut din 
tabela PRODUSE. 


Numărul iteraţiilor depinde de numărul înregistărilor din cursorul ZILE — numărul 


zilelor pentru care intersează raportul. Corpul buclei conţine joncțiunea cursorului „curent” 
cu ziua corespunzătoare înregistării curente din cursorul ZILE. Astfel, dacă c1 nu are 
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nevoie de explicaţii, la prima parcurgere a corpului buclei se obține cursorul c2, care, pe 
lângă cele două coloane din c1, conține un atribut corespunzător primei date din ZILE 
(1 august 2001) — vezi figura 5.20. 


Figura 5.20. Cursorul c2 


A doua trecere prin buclă se soldează cu un nou cursor — c3 —, vizualizat în figura 5.21. 


Figura 5.21. Cursorul c3 


Ultimul cursor este identic celui din figura 5.19. După BROWSE-ul vizualizator, se face 
curăţenie în zonele de lucru, închizându-se cursoarele deschise şi care, la un număr mare de 
zile, ocupă un volum important de memorie. 

Este drept că programul poate fi simplificat folosind facilitatea salvării rezultatelor 
consultării în acelaşi cursor din care se extrag datele — vezi listingul 5.19. 


Listing 5.19. Versiunea 2 a situaţiei matriceale a vânzării produselor 
pe primele patru zile ale lunii august 2001 


* ... identic cu 15.18 


Li 


SELECT DenPr, CodPr; 
INTO CURSOR c1; 
FROM PRODUSE ; 
ORDER BY DenPr 


SELECT Zile 
SCAN 
ziua_ = '_'+DTOC(Zile.Zi) 


SELECT ¢1.*, NVL(ZILE_PRODUSE.Valoare,0) AS Zi&ziua_ : 
FROM c1 LEFT OUTER JOIN ZILE_PRODUSE ; 

ON c1.CodPr = ZILE_PRODUSE.CodPr AND DataFact = Zile Zi ; 
INTO CURSOR c1 
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SELECT Zile 
ENDSCAN 


SELECT c1 
BROWSE LAST title 'Vinzari - Produse/Zile' 


SELECT Zile 

USE 

SELECT Zile_Produse 
USE 
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Capitolul 6 


Proceduri stocate 


Procedurile stocate reprezintă un modul esențial al oricărei aplicaţii profesionale ce 
utilizează baze de date. Altădată opțiune doar a serverelor de baze de date, procedurile 
stocate sunt prezente în majoritatea versiunilor actuale ale SGBD-urilor, de la Visual la 
FoxPro (încă din VFP 3 — 1994-1995) și Access (abia în versiunea 2000-1999) până la 
PostgreSQL. Toate procedurile stocate se regăsesc în dicționarul de date care, în VFP, este 
alcătuit din trei fişiere, cel mai important având extensia . DBC. 


6:1. Dicţionarul de date 


Atât obiectele, cât mai ales dicţionarul bazei prezintă diferențe semnificative de la 
SGBD la SGBD. Dacă e să începem cu una dintre cele mai simple forme de dicționar de 
date, putem face referire la containerul (database container) Visual FoxPro. Acesta este o 
tabelă specială cu structura prezentată în figura 6.1. 


„Fl | inderes | «ba 


Name . 


objectid 

parentid integer 

objecttype Character 

objectname Character 

property Memo [binary] 

code Memo (binary) 

iinfo Character & 


ps Irene EI « 


Figura 6.1. Structura containerulului bazei de date în VFP 


Fiecare obiect din bază este identificat printr-un număr întreg unic — objectid. 
lerarhia obiectelor (de exemplu, atributele unei tabele) este reflectată prin câmpul 
parentia. Tipologia obiectelor din container (atributul objecttype) este: Database, 
Table, View, Field, Index şi Relation. Dacă primele nu necesită comentarii, despre Relation 
trebuie spus că reflectă o legătură permanentă între două tabele, legătură ce nu asigură 
automat şi restricţiile referențiale. Procedurile stocate nu sunt un tip special, ci au asociate 


Proceduri stocate . 175 


trei obiecte, StoredProceduresSource, StoredProcedures0bject și 
StoredProceduresDependencies, toate de tipul Database. 


Deschiderea prin comanda USE a containerului ridică ceva probleme (baza de date 
trebuie să fie închisă). În schimb, se poate folosi Data Session (fie din meniu — 
Window—Data Session, fie prin comanda SET), mai precis Open»Other..— 
Files of Type: All Files (*.*)—Name: vinzari. DBC. 


O dată deschisă, tabela-dicționar poate fi referită printr-o comandă SELECT (xBase): 
SELECT vinzari 
BROWSE 


A 


O parte din conținutul dicționarului bazei de date VINZARI este prezentată în 
figura 62. 


12i Field 


: 
|memo 


codpost a 
SOROS anti 
„telefon 


= 


f 


Figura 6.2. Prima parte din tabela-dicționar VINZARI . DBC 


Obiectul-rădăcină este însăşi baza de date (Objectid -— 1, Objecttype — 
Database, Objectname — DataBase), care este părinte pentru următoarele obiecte: 

e jurnalul tranzacţiilor - TransactionLog; 

e formatul sursă al procedurilor stocate — StoredProceduresSource; 

e formatul compilat al procedurilor stocate — StoredProceduresobject; 
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depedenţele procedurilor stocate — PE eo ela SERERE NETE 

toate tabelele bazei (Obijecttype -Table); 

toate tabelele derivate locale ale bazei (Objecttype -View); 

toate conexiunile la alte servere de BD (Objecttype - Connection); 

toate tabelele derivate „la distanță” — create prin legarea de tabele ale BD gestionate 
prin alte SGBD-uri (Objecttype -View). 


În general nu se recomandă deschiderea tabelei-dicționar, ci obținerea informațiilor pe 
care le conține prin consultări, 


6.1.1. Informaţii despre tabele 


Dacă se doreşte extragerea denumirii tuturor tabelelor din bază, se poate folosi o 
consultare relativ simplă: 
SELECT * FROM vinzari. dbc WHERE OBJECTTYPE=" Table! 


Răspunsul este cel din fiu 6.3, Atributul Property furnizează informații precum 
numele fişierului .DBF de pe disc asociat tabelei, indexul primar al tabelei şi numele 
eventualelor declanşatoare ale tabelei. 


Figura 6.3. Extragerea din containerul BD a informaţiilor despre tabele 


Pe baza consultării tabelei-container, se poate redacta un program plasat la deschiderea 
oricărei aplicaţii, program care deschide toate tabelele bazei şi declară primul eventual 
index al tabelei drept index curent (activ) — listing 6.1. 


Listing 6.1. Deschiderea automată a tabelelor BD şi stabilirea indexului activ 


* se presupune ca baza e deja deschisa 
SELECT left(objectname,30) as tabela ; 
FROM vinzari.dbc ; 

INTO CURSOR cTabele ; 

WHERE objecttype = “Table” 


SELECT cTabele 
SCAN 
tab_= UPPER(allt(tabela 
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* daca tabela nu este deja deschisa, se asociaza unei zone de iucru 
IF !WUSED((tab_)) 

USE (tab_) IN 0 EXCLUSIVE 
ENDIF 


* daca exista macar un index, primul (dintre indecsi) devine principal 
SELECT (tab_) 
IF TAGCOUNT() > 0 
SET ORDER TO TAG 1 
ENDIF 
SELECT cTabele 
ENDSCAN 


Lista tabelelor din bază poate fi obținută şi sub forma unui masiv unidimensional 
(vector) prin funcția ADBOBJECTS (array, TABLE”). Array reprezintă numele 
masivului unde vor fi stocate denumirile tabelelor, iar a doua opțiune poate fi, în afară de 
TABLE, VIEW, CONNECTION şi RELATION, asupra cărora vom mai reveni. În aceste 
condiţii, programul se simplifică în oarecare măsură — vezi listingul 6.2. 


Listing 6.2. Deschiderea tabelelor BD şi stabilirea indexului activ — varianta 2 
* se presupune ca baza e deja deschisa 


ADBOBJECTS(vTabele, “TABLE”) 
FOR i = 1 TO ALEN(vTabele) 
tab_ = vTabele(i) 
* daca tabela nu este deja deschisa, se asociaza unei zone de lucru 
IF IUSED((tab_)) 
USE (tab_) IN 0 EXCLUSIVE 
ENDIF 


* daca exista macar un index, primul (dintre indecsi) devine principal 
SELECT (tab_) 
IF TAGCOUNT() > 0 
SET ORDER TO TAG 1 
ENDIF 
ENDEOR 


Pentru a obţine numele indexului primar al unei tabele, se poate folosi atât atributul 
Property din înregistrarea corepunzătoare tabelei în dicționarul de date, ceea ce reclamă 
o serie de artificii, dat fiind formatul de prezentare a valorilor acestui atribut, dar şi o serie 
de funcții. Dacă presupunem că orice tabelă are index primar şi acesta este primul creat, 
funcția TAG (1) întoarce tocmai numele acestuia. 

Riscul e totuşi mare, deoarece pot exista tabele fără indecşi primari sau indexul primar 
poate fi creat cronologic după unul obişnuit (regular). Aşa încât este mult mai nimerit să se 
folosească o funcţie foarte puternică a VFP — DBGETPROP () -—, ce furnizează o largă 
paletă de informaţii privitoare la obiectele bazei de date. Afişarea numelui indexului primar 


al tabelei PERSCLIENTI se realizează (Şi) astfel: 
? DBGETPROP('persclienti!, "'TABLE!', 'Primarykey') 


Dacă interesează cheia de indexare, adică expresia ce reprezintă cheia primară a tabelei, 
atunci trebuie să apelăm la funcţia KEY (), care nu are drept argument numele indexului 
elementar (tag), ci numărul acestuia, număr determinat de funcţia TAGNO () . Astfel, 

? TAGNO('primaru', 'PERSCLIENTI! 'PERSCLIENTI!) 
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afişează 1 (al doilea `PERSCLIENTI’ asigură rezultatul corect, indiferent de zona de 
lucru curentă). Pentru generalizare, putem introduce funcția DBGETPROP () ca argument 
al funcţie TAGNO (): 

? TAGNO (DBGETPROP ('persclienti!, !'table!', 'PrimaryKey'), 
'persclienti!, 'persclienti!) 


În fine, expresia de indexare a tabelei PERSCLIENTI se obține, indiferent de zona 
curentă de lucru, astfel: 
? KEY (TAGNO (DBGETPROP ('persclienti!, 'table', 'PrimaryKey!'), 
'persclienti!, "'persclienti!), 'persclienti!) 


6.1.2. Informaţii despre atribute 


Şi informaţiile despre atributele tabelelor pot fi obținute prin consultarea containerului 
bazei. Pentru a afişa (în clar) şi numele tabelelor din care fac parte, se foloseşte o joncțiune 
a tabelei-dicţionar cu ea însăşi: 

SELECT v2.objectname AS Tabela, vl.objectid AS IdAtribut, ; 
vl.cbjectname AS Atribut, left (vl.property, 250) ; 
AS ProprietatiAtribut ; 

FROM vinzari.dbc vi INNER JOIN vinzari.dbc v2 ; 

ON vl.parentid=v2.objectid ; 

WHERE v2.OBJECTTYPE= "Table! AND v1.OBJECTTYPE='Field' ; 
ORDER BY vl.objectid 


Din păcate, modul de prezentare a valorilor implicite, regulilor de validare şi mesajelor 
de eroare afişate la încălcarea regulilor de validare la nivel de câmp este destul de criptic şi 
dificil de folosit în aplicaţii, după cum se observă în figura 6.4. 


Figura 6.4. Modul de prezentare a informațiilor despre atribute 
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Astfel încât, de multe ori, informaţiile legate de reguli de validare, valori implicite se 
obţin tot cu DBGETPROP [). Câteva exemple sunt grăitoare: 


ə afişarea valorii implicite a atributului JUDETE, Regiune; 
? DBGETPROP ('JUDETE.Regiune!, 'Field', 'DefaultVvalue!) 


e aflarea regulii de validare pentru atributul JUDETE. Regiune: 
? DBGETPROP ('JUDETE.Regiune!, 'Field', 'RuleExpression!) 


e afişarea mesajului de eroare la încălcarea regulii atributului JUDETE. Regiune: 
? DBGETPROP ('JUDETE.Regiune!, 'Field!', 'RuleText!) 


O altă soluție simplă constă în folosirea comenzii COPY STRUCTURE EXTENDED. 
Astfel, comenzile: 


SELECT judete 
COPY STRUCTURE EXTENDED TO tAtribute 


au ca efect crearea unei tabele libere (neinclusă în baza de date) denumite tAtribute, 
care va conţine informaţii atât despre atribute, cât și despre regulile de validare şi 
declanşatoarele tabelei, după cum se observă în figura 6.5, 


iMema____ memo 


Figura 6.5. O parte din informațiile obținute prin COPY STRUCTURE EXTENDED 


O altă modalitate de a obține informaţii despre atributele unei tabele, de data aceasta sub 
formă de masiv de memorie, ţine de folosirea funcţiei AFIELDS (). Astfel, prin: 


AFIELDS (mAtribute, 'judete!) 


se creează masivul mAtribute, care va avea câte o linie pentru fiecare atribut al tabelei 
JUDETE şi 16 coloane în care se regăsesc aceleaşi informaţii ca în cazul comenzii COPY 
STRUCTURE EXTENDED: 
ə numele atributului; 
tipul; 
lungimea; 
numărul de poziții fracționare; 
dacă acceptă valori nule; 
dacă se acceptă modificarea codului de pagină; 
e  restricția (regula de validare); 
e mesajul de eroare afişat la încălcarea restricţiei, 
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valoarea implicită; 

restricţia (regula de validare) la nivel de tabelă (înregistrare); 
mesajul de eroare afişat la încălcarea restricţiei la nivel de tabelă; 
numele lung al tabelei (altul decât cel al fişierului .DBF); 
declanşatorul de inserare; 

declanşatorul de modificare; 

declanşatorul de ştergere; 

comentarii despre tabele. 


o . 2 e o e. o e. 


Rezultatul întors de funcția AFIELDS () este numărul de atribute al tabelei. 


6.1.3. Reflectarea în containerul bazei a relaţiilor permanente dintre tabele 


Unul dintre tipurile de obiecte ale tabelei-dicționar este Relation. În figura 6.2 
analizăm obiectul cu identificatorul 18 (ObjectIa - 18; ParentIa - 13; 
ObjectType - Relation; ObjectName - Relation 1). În dreptul coloanei 
Property apare scris Memo, ceea ce semnifică, pe de o parte, că este un câmp de tip 
memo, iar pe de altă parte, primul M fiind majusculă, înseamnă că valoarea acestui câmp nu 
este vidă. Din păcate, la un dublu-click, valoarea câmpului Property este afișată într-un 
format nu tocmai dintre cele mai limpezi cu putință — vezi figura 6,6, 


$ OO0DQa : aj 
3 usonoononuaetenoronnonjuda 


Figura 6.6. informații „tulburi” despre relația permanentă dintre tabelele 
LOCALITATI şi JUDETE 


„ Tabela curentă este LOCALITATI; prin urmare, cu puțină intuiție, putem realiza că 
primul JUD reprezintă indexul acestei tabele prin care se stabilește relația, JUDETE este 
numele tabelei-părinte, iar al doilea JUD — one le indexului tabelei-părinte prin care se 
realizează legătura permanentă. 

Obţinerea acestor elemente în variabile sau tabele/cursoare presupune folosirea unor 
proceduri/funcţii de „des-catenare”, aşa că vom căuta modalități mai simple. Revenim, după 
cum am promis, la funcția ADBOBJECTS |). 

Funcţia ADBOBJECTS (mRelatii, “RELATION”) conduce la obținerea unui 
masiv de memorie denumit mRelatii. Masivul va avea atâtea linii câte relații permanente 
au fost deciarate în baza de date şi cinci coloane, dintre care primele patru sunt cele care ne 
interesează în mod deosebit: 

e numele tabelei-copil; 

ə  indexul-copil implicat în relaţie; 

e  tabela-părinte; 

numele indexului din tabela-părinte (de obicei, indexul primar). 


1 
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A cincea coloană nu este mai puțin importantă şi arată regulile instituite pentru 
păstrarea integrității referențiale între tabelele implicate în relație: 

e primul caracter se referă la regula aplicată la modificarea unei înregistrări-părinte, 
fiind I pentru Ignore, C pentru Cascade şi R pentru Restrict; 

ə al doilea caracter se referă la regula aplicabilă la ştergerea unei înregistrări-părinte 
(poate avea aceleaşi trei valori 1/C/R); 

e al treilea caracter priveşte regula aplicabilă la inserarea sau modificarea unei 
înregistrări- -copil (poate avea numai două valori I/R). 


Conţinutul masivului mRelatii poate fi „pasat uşor unui cursor, după cum se 
observă în listingul 6.4 (conținutul cursorului este prezentat în figura 6.7). > 


Listing 6.3. Informaţii despre relațiile permanente stocate într-un cursor 


CREATE CURSOR cRelatii (; 
tabela_copi! CHAR(20), ; 
tabela_parinte CHAR(20), ; 
tag_copii CHAR(20), ; 
tag_parinte CHAR(20), ; 
reguli_udi CHAR(5); | 
J; l 


ADBOBJECTS(mRelatii, 'Relation') 


SELECT cRelatii 
APPEND FROM ARRAY mRelatii 


[FACTURI i i 
FACTUAL I NAFACT 


Figura 6.7. Cursor obținut dintr-un masiv creat prin funcția ADBOBJECTS () 
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6.2. Tipologia şi aria de utilizare a procedurilor stocate 


O procedură stocată este orice modul de cod, procedură sau funcţie depozitat în 
containerul (dicţionarul) bazei de date. Prin urmare, orice procedură stocată face parte din 
schema bazei şi, după cum vom vedea, se va altera sau distruge o dată cu alterarea/ștergerea 
dicționarului, 

Scrierea unei noi proceduri/funcţii stocate sau modificarea alteia existente se poate face 
astfel: 

e din proiectantul bazei (Database Designer) se alege, fie din meniul general 

Database, fie din meniul contextual, opțiunea Edit Stored Procedures.. 

ə din proiect se vor expanda nodurile Data—Database—vinzari—Stored 

Procedures şi apoi butonul de comandă Modi fy. 
e prin comanda MODIFY PROCEDURE. 


Fie că este vorba de o procedură, fie de o funcție (VFP este destul de larg la inimă, 
nefăcând mare caz pe diferența dintre procedură şi funcție), începutul acesteia este marcat 
prin cuvântul-cheie PROCEDURE nume, iar sfârşitul este marcat fie prin ENDPROC, fie 
prin RETURN. 

Aria de utilizare a procedurii or stocate este una suficient de largă. Deşi tentaţia este 
mare, nu trebuie exagerat nici cu numărul lor, nici cu întinderea. Spunem asta ţinând seama 
că VFP nu are un mecanism coerent de recuperare a datelor în caz de accidente (pană de 
curent, blocări ale sistemului de operare — chiar dacă î în NT/2000 problemele de acest gen 
sunt cu mult mai rare). 

Pe parcursul acestui capitol ne vom ocupa de următoarele categorii de module păstrate 
în dicționarul de date: 

e funcţii stocate folosite în interogări SQL; 

e valori implicite ale unor atribute; 

e reguli de validare complexe (la nivel de atribut şi de linie); 

e  declanşatoare (triggere). 


Dacă prima categorie va constitui subiectul următoarelor rânduri/pagini, fiecăreia din 
restul categoriilor îi va fi asociat un paragraf distinct, 


Funcţii stocate folosite în fraze SELECT 
incepem prin a crea după proceduri stocate cărora li se „pasează” codul unui client şi 


care furnizează valorile facturilor şi încasărilor corespunzătoare clientului respectiv — vezi 
figura 6.8. 
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| PROCEDURE vinz client 

` x furnizeaza valoarea tatala a facturilor catre un client dat 
PARAMETER codcl_ 

' DIME suma_ (1,1) 
suma = Q 3 
SELECT SUN(ValTotala) INTO ARRAY suma_ ; 

i FROM FACTURI WHERE CodCl = Coacl_ 


¿: RETURN suma_(1,1) 
ENDPROC 


„ PROCEDURE incas client 
+ furnizeaza valoarea totala a incasarilor de la un client dat 
PARAMETER codcl_ 
` DINE suwa _ (1,1) 
„ suma = 0 
SELECT SUH(Trensa) INTO ARRAY suma _ ; 
` FRON FACTURI INNER JOIN INCASFACT ON FACTURI.NrFact=INCASFACT.NrFact 3 
WHERE Coacl = codel_ 


RETURN suma (1,1) P 
` ENDPROC 


Figura 6.8. Două proceduri (funcţii) stocate 


Aceste două funcții pot fi folosite în orice consultare de o manieră asemănătoare oricărei 
funcții-sistem. Astfel, pentru a obține, pentru fiecare client, valoarea facturată şi încasată, se 
poate folosi o interogare de genul: 


SELECT Denci, vinz client (CoaCl) AS Vinzari, 
incas_client (CoaCl) AS Incasari ; 
FROM CLIENTI 


obținuându-se un rezultat de forma celui din figura 6.9. 


Tient 25A 


Client 5 SRL 


Figura 6.9. Rezultatul interogării care foloseşte cele două funcții stocate 
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Un alt exemplu de funcție stocată, util în anumite circumstanţe (reguli de validare, 
declanşatoare), este prezentat în listingul 6.4. Această funcție preia codul unui produs şi 
returnează procentul de TVA al produsului respectiv. 


Listing 6.4. Funcţia stocată AFLA TVA 


PROCEDURE afla TVA 
* furnizeaza procentul TVA al unui produs dat 
PARAMETER codpr_ 
LOCAL procent_, adresa_ 
procent_ = 0.00 
IF 1USED('produse') OR EOF('produse') OR BOF('produse') 
adresa_= 0 
IF !USED(produse') 
USE produse IN 0 
ENDIF 
ELSE 
adresa_ = RECNO('produse”) 
ENDIF i 


IF SEEK (codpr_, 'produse', 'codpr') 
procent. = PRODUSE. ProcTVA 
ENDIF 


IF adresa_ > 0 

GO adresa_ IN PRODUSE 
ENDIF 
RETURN procent_ 


ENDPROC 


d 


La folosirea acestei funcţii trebuie avut în vedere că pointerul tabelei PRODUSE se 
deplasează, ceea ce poate avea consecințe negative dacă apelarea sa se face în timpul 
editării unei înregistrări a acestei tabele în regim de buffering. După cum se observă, funcţia 
este destul de „precaută”, în sensul că, după căutare, repoziționează pointerul tabelei pe 
înregistrarea pe care l-a „găsit”. În plus, nu modifică zona de lucru curentă acționând „de la 
distanță”, 

Ulterior creării funcției, atunci când se va dori aflarea procentului TVA al unui produs, 
se apelează funcția: 

? afla TVA (5) 

De o manieră asemănătoare pot fi create funcţii pentru obţinerea de informații solicitate 
frecvent. Nu trebuie însă exagerat, deoarece aceste funcții pot fi plasate în corpul 
programelor „obişnuite”, containerul bazei fiind astfel descongestionat. Dacă ar fi să 
încercăm un top al procedurilor stocate, din punctul de vedere al importanţei, credem că 
această tipologie ar fi pe unul din ultimele locuri. 


6.3. Valori implicite obținute prin funcţii stocate 


O facilitate care nu se regăsește chiar la multe dintre SGBD-urile din lumea bună a 
bazelor de date o constituie calcularea valorilor implicite pentru unele dintre atribute prin 
intermediul funcțiilor stocate. Există suficiente situaţii în care cheia primară a unei tabele nu 
poate fi „încredințată” unui atribut sau unei combinaţii de atribute. Soluţia o constituie 
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cheile-surogat care nu au o semnificație anume, ci se acordă: automat, de obicei prin 


incrementare. f 
Să luăm cazul tabelei INCASARI. Cheia primară a acestei tabele este CodInc — un 


caz tipic de cheie-surogat. Pentru ca la adăugarea unei noi înregistrări în această tabelă 
valoarea atributului CodInc să fie mai mare cu | decât cea mare mare existentă în tabelă 
la momentul adăugării, se poate defini o funcţie stocată specială, denumită 
def _codinc_incasari. li 


Listing 6.5. Funcţia care asigură valorile implicite ale INCASARI . CodInc 


NE Eee eee zoo ve zet erect 


PROCEDURE def_codinc_incasari 
LOCAL codinc_ 
DIME codinc_(1,1) 
codinc_ = 0 | 
SELECT MAX(Codinc) FROM incasari INTO ARRAY codinc_ 
IF codinec_(1,1)=0 
RETURN 10001 
ELSE 
RETURN codinc(1,1) + 1 
ENDIF 
|__ENDPROC 


La prima linie inserată, valoarea returnată de funcţie va fi 10001. Funcţia prezentată nu 
este operațională decât după ce este declarată valoare implicită pentru atributul 
INCASARI . CodIne, lucru realizabil fie în mod asistat (figura 6.10), fie. prin comanda: 


ALTER TABLE INCASARI ALTER COLUMN Coalnc ; 
SET DEFAULT def_codinc_incasari (); 


del_codine_incasaii {] 


A i | Message: d F A 
B | Delga vave [dei cedre wasa d]; 
afk oceane aa mia n E T pă 


pra 


£ Map feid bape to classes 
35 Dispjay ioan: | 
| Display oase. [dela i 


zzz0z zin 


Fiom jable:. | incasa ad 


Figura 6.10. Declararea unei proceduri stocate ca valoare implicită 


Atenție! Procedura stocată trebuie apelată ca şi o funcţie fără parametri (cu cele două 
paranteze „()”), altfel este considerată nume de variabilă şi va genera o eroare: 


„Variabile ... not found”. 
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Spre deosebire de alte SGBD-uri, în VFP, funcţiile ce întorc valori implicite pot fi oricât 
de sofisticate. Lucrul acesta nu trebuie exagerat, deoarece poate afecta viteza de lucru a 
aplicației. Ne fixăm ca obiectiv crearea unei funcţii stocate care să determine cel mai 
frecvent client, adică acel client care apare pe cele mai multe facturi, iar codul acestuia să 
constituie valoarea implicită pentru atributul CoaCl din tabela FACTURI: 


ALTER TABLE FACTURI ALTER COLUMN Coaci 
SET DEFAULT def coacl facturi) 
În lstingul 6.6 se află corpul funcţiei (în procedurile stocate ale bazei de date): 
Listing 6.6. Corpul procedurii stocate DEF_CODCL FACTURI 
PROCEDURE def_codcl_facturi 


See rd e de de de e e e eee dee e e de dee dee terte 


LOCAL vCodC! 
DIME vCodCi(1,2) 
vCodC! = 0 


SELECT TOP 1 CoacCi, COUNT() AS nr; 
FROM FACTURI; 

INTO ARRAY vCodCl ; 

GROUP BY CodCl ; 

ORDER BY nr DESC 


IF vCodCi(1,1) = 0 
MESSAGEBOX(Nu se pot introduce facturi, '+CHR(13)+; 
'cita vreme nu exista nici un client !') 
RETURN .F. 
ELSE 
RETURN vCoaCi(1,1) 
ENDIF 
ENDPROC 


Intrând şi mai mult în detalii, luăm în discuţie tabela LINIIFACT, Cheia primară a 
acesteia este combinaţia (NrFfact, Linie). Trei atribute sunt susceptibile de a se 
procopsi cu valori implicite calculate prin funcții stocate: NrFact, Linie şi CodPr. 
Logica acestora este diferită. Spre exemplu, este de presupus că factura curentă, pentru care 
se introduc linii, este cea mai recentă (are cel mai mare număr). Numărul liniei trebuie 
incrementat, iar produsul propus de funcţia stocată trebuie să fie cel mai frecvent facturat, 
însă nu trebuie să violeze unicitatea combinației (NrFact, CodPr)! 


ALTER TABLE LINIIFACT ALTER COLUMN NrFact SET DEFAULT 
def _nrfact_liniifact () i 


ALTER TABLE LINIIFACT ALTER COLUMN Linie SET DEFAULT 
def linie _ liniifact() 


ALTER TABLE LINIIFACT ALTER COLUMN CoaPr SET DEFAULT 
def _codpr_liniifact () 
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Listingul 6.7 prezintă codul acestor trei funcţii stocate: 


Listing 6.7. Corpurile procedurilor stocate DEF_NRFACT_LINIIFACT, 
DEF_LINIE_LINIIFACT şi DEF_CODPR_LINI LFACT 


PRR E IE E E E AE re e e e e dee e Idee te re 


PROCEDURE def_nrfact_liniifact 
LOCAL vNrFact_ 

DIME vNrFact_(1) 

VNrFact_ = O 


* se selecteaza cea mai recenta factura 
SELECT MAX(NrFact) ; 

FROM FACTURI ; 

INTO ARRAY vNrFact_ 


IF vNrFact_(1,1) = 0 
MESSAGEBOX(Nu se pot introduce linii daca nu exista nici o factura !') 
RETURN .F. 

ELSE 
RETURN vNrFact_, 

ENDIF 

ENDPROC 


ee Bee e e ee ee de E e dee e d dee det te e delete 


PROCEDURE def_linie_liniifact 
LOCAL vLinie_, NrFact_ 

DIME vLinie_(1,1) 

vLinie_=0 

NrFact_ = LINIIFACT.NrFact 


* se extrage ultima linie introdusa in factura curenta 
SELECT MAX(Linie) ; 

FROM LINIIFACT ; 

INTO ARRAY vLinie_ ; 

WHERE NrFact = NrFact_ 


IF vLinie_(1,1)=0 && e prima linie din factura 
RETURN 1. 

ELSE && se incrementeaza 
RETURN vLinie_(1,1) +1 

ENDIF ` 

ENDPROC 


E IE E RE IER R e S e Se A B R e De Ae A Ae Br e Ye Se h e e e e de Ae ee te 


PROCEDURE def_codpr_liniifact 
LOCAL vCodPr_, NrFact_ 

DIME vCodPr_(1,2) 

vCodPr_=0 

NrFact_ = LINIIFACT.NrFact 


** se selecteaza cel mai frecvent produs, exceptindu-le pe cele care 
**__atviola unicitatea combinatiei (NrFact, CodPr)__ 
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SELECT TOP 1 CodPr, COUNT(*) AS nr; 
FROM LINIIFACT ; 
INTO ARRAY vCodPr_; 
WHERE CodPr NOT IN; 

(SELECT CodPr; 

FROM LINIIFACT ; 

WHERE NrFact = NrFact_ ) ; 
GROUP BY CoaPr; 
ORDER BY nr DESC 


IF vCodPr_(1,1)=0 
MESSAGEBOX(Nu se mai pot introduce produse pe aceasta factura !') 
RETURN F. 
ELSE 
RETURN vCodPr_(1,1) 
ENDIF 
ENDPROC 


Înainte de a încheia, se cuvine de remarcat că, la dimensiuni foarte mari ale tabelelor 
FACTURI şi LINIIFACT, aceste proceduri stocate pot afecta viteza aplicației. Drept care, 
în aceste situaţii se pot încerca optimizări bazate pe variabile de memorie (masive) — de 
exemplu, la deschiderea aplicaţiei, să se execute interogările și să se stocheze în variabile 
speciale publice. Variantele consacrate se bazează însă pe denormalizare, adică 
introducerea unor atribute redundante în schema bazei, atribute care să elimine sau să 
reducă necesitatea unor căutări sau joncțiuni mari consumatoare de resurse. | 


6.4. Reguli de validare avansate 


Ca şi în cazul valorilor implicite, ca regulă de validare la nivel de atribut sau la nivel de 
înregistrare se poate preciza numele unei funcții care va fi evaluată; dacă rezultatul este 
adevărat (.'T.), modificările efectuate vor fi acceptate, iar în caz contraz vor fi respinse. 

În general, restricţiile mai complexe se introduc în declanșatoare, şi mai puţin în regulile 
de validare. Momentul activării regulii (verificării conformităţii modificărilor cu restricțiile 
declarate) este diferit: 

e o regulă instituită la nivel de atribut (câmp) este activată la inserarea unei linii noi în 
tabelă sau la modificarea valorii atributului respectiv; activarea are loc indiferent de 
tipul de buffering ales, înaintea celorlalte tipuri de restricţii (la nivel de linie şi 
declanșatoare); ; 

e o regulă instituită la nivel de înregistrare (linie) este activată la inserarea sau 
modificarea înregistrării, momentul activării plasându-se după cele ale validărilor la 
nivel de atribute şi înainte de declanşatoare; activarea are loc indiferent de tipul de 
buffering; 

e în VFP 6, declanşatoarele sunt module de cod lansate automat la inserarea, 
modificarea sau ştergerea unei înregistrări; în afară de momentul activării, care este 
posterior regulilor la nivel de câmp şi de înregistrare, declanşatoarele se mai 
particularizează şi prin aceea că, în cazul bufferingului, nu se declanşează decât 

„printr-o comandă TABLEUPDATE () sau la scrierea automată a buffer-ului (la 
deplasarea pe altă înregistrare). 
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Exemplul pe care îl vom discuta este unul de deturnare a unei funcţii de validare de la 
destinaţia ei „normală” către calculul automat al valorii unui alt atribut, lată, în listingul 6.8, 
funcția stocată FVR_CANT_PRET_LINIIFACT (), care actualizează valoarea atributului 
ValCuTVA de pe înregistrarea curentă a tabelei LINIIFACT. 


Listing 6.8. Funcţia-regulă de validare pentru atributele 
LINIIFACT. Cantitate şi LINIIFACT, PretUnit 


VP e de e de e re er e See e IE TE e YE We e Re de dee te 


PROCEDURE fvr_cant_pret,_liniifact 

REPLACE LINIIFACT.ValCuTVA WITH LINIIFACT.Cantitate * LINIIFACT .PretUnit * ; 
(1 + afia_tvațLiNIIFACT.CodPr)) 

RETURN .T. 

ENDPROC 


e PER RI Se RR e BE E AE D RR Iese ră j 


í 


Funcția ce joacă rol de regulă de validare trebuie instituită pentru ambele atribute: 


ALTER TABLE liniifact ALTER COLUMN Cantitate SET CHECK 
fvr_cant_pret_liniifact{) 

şi 

ALTER TABLE liniifact ALTER COLUMN PretUnit SET CHECK 
îvr_cant_pret_liniifact () 


Regula de validare poate fi introdusă şi direct în structura tabelei, folosind Table 
Designer în zona Field Validation (analog funcţiilor-valoare implicită, figura 6.10). 

Orice modificare a unuia dintre aceste două atribute atrage după sine execuția funcţiei. 
Cel mai mare risc al acesteia pare a fi calcularea valorii cu TVA chiar în condiţiile în care 
codul produsului este eronat. Precauţi însă, am prevăzut, în această situație, ca valoarea 
returnată de funcția AFLA TVA() să fie 0. Şi, oricum, eroarea nu ar “scăpa de 
decianşatorul care asigură respectarea restricțiilor referențiale. a 

Ca regulă generală, se recomandă evitarea, în regulile de validare şi în declanşatoare, a 
folosirii comenzilor de actualizare ale tabelei curente, pentru a preveni apelul recursiv al 
acestor proceduri/funcții. Contraexemplul de mai sus este însă grăitor, deşi în alt sens. 

Cea mai mare parte a restricţiilor pot fi incluse fie în reguli la nivel de atribut/înregistra- 
re, fie la nivel de declanșator. Sunt însă şi diferențe, mai ales dacă sunt avute în vedere 
operațiuni ce trebuie declanşate la ştergerea unor linii, ştergere ce nu „reuşeşte” să 
declanșeze nici una din cele două tipuri de reguli. 


6.5. Declanşatoare 


Declanşatoarele (rrigger, în original) reprezintă un tip deosebit de proceduri stocate ale 
unei baze de date. Particularitatea lor esențială ține de faptul că, o dată create şi stocate în 
schema bazei, acestea sunt executate automat la operațiuni de inserare, modificare sau 
ştergere ale liniilor din tabela pentru care au fost definite. La această familie a 
declanşatoarelor, unele SGBD-uri au mai adăugat şi alte tipuri, asociate — spre exemplu, 
actualizarea tabelelor derivate, conectarea unei aplicații-utilizator, deschiderea şi închiderea 
instanței bazei de date etc. | 
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Cele mai importante avantaje ale declanşatoarelor sunt: 


ə permit instituirea unor reguli de validare cu mult mai complexe decât ceea ce este 


posibil prin clauza CHECK; 
pot ameliora sensibil mecanismul de securitate al bazei; 


o 

e permit instituirea restricţiilor referenţiale şi implementarea diferitelor moduri de 
tratare a modificărilor ce pot cauza probleme de integritate referențială; 

e constituie suportul calculării automate a valorilor unor atribute. 


În VFP 6 există trei tipuri de declanșatoare: pentru inserare, modificare şi ştergere de 
linii. Momentul declanşării lor depinde esenţial de tipul de buffering ales, o chestiune 
specifică VFP. În cele ce urmează, presupunem că opţiunea de buffering este dezactivată. 


6.5.1. Declanşatoare pentru restricții referențiale 


Mecanismul de asigurare a restricţiilor referențiale se poate implementa grafic cu 
ajutorul modulului Referential Integrity Builder. Paradoxal, deşi există 
clauza FOREIGN KEY, aceasta instituie în VFP numai legături permanente între tabele. De 
aceea, la crearea prin program a bazei de date sunt necesare declanşatoare „manuale” care, 
totuşi, au avantajul că permit afişarea unor mesaje de eroare „în clar” sau unor restricții şi 
explicaţii suplimentare. 

Să începem cu tabela JUDETE. Ştergerea unui județ poate aduce necazuri dacă există 
localităţi corespunzătoare. Aşa încât este necesar un declanșator de ştergere care să verifice 
dacă eliminarea înregistrării poate avea loc sau nu. Comanda de creare a declanşatorului 


este: - ; 
CREATE TRIGGER ON judete FOR DELETE AS trg _del_judete() 


Figura 6.11 ilustrează o altă modalitate de a declara un trigger, utilizând Table 


Designer. 


i ni Să 
Me | mele =] 
e | Delete, [ua olude 


$ 
i 
săi 


Figura 6.11. O altă modalitate de a declara declanşatoarele unei tabele 
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lată în listingul 6 9 CO T i Funcţ a 
5 = Py pul declanşato ului. i i f j 
i j i l DELETED ( ) asigu ă ignorarea 


Listing 6.9. Varianta 1 a declanşatorului TRG DEL JUDETE 


aaa 
MERR niinâinău na 2 00 INDRIPIRIRO MR O OR te 


PROCEDURE trg_del_judete 


TEER AE BERERE AAE RE A 2 E PE EIE AE rc A E E e e 
LOCAL jud_, v 

dime v(1,1) 

y = is 

jud_ = judete jud 


SELECT MIN(loc) FROM localitati î 
E ) ocalitati INTO ARRAY v WHERE jud = jud_ AND IDELETED() 

MESSAGEBOX(Exista cel putin o lini il i 

putin o linie copil in tabela L : 
tă pad ela LOCALITATI.!+; 

RER xemplu: loc. +ALLTRIM(v(1,1))) 
ENDIF 
ENDPROC 


>: 
iafaioiointaloiodoieinioioteiaiaun aE EE E E atesee tee 


SOL ; A it a 
a : pe lu de câteva optimizări ale motorului bazei date. Cu toate a 

ia “t din declanşator parcurge întreaga tabelă LOCALITATI i ia 
apidă varianta următoare — ce-i drept, mai puțin SQL-istă dica i aia 


Listing 6.10. Varianta 2 a declanşatorului TRG DEL JUDETE 


* 
ii nina 20000 E ETP a a 


PROCEDURE trg_del_judete 
LOCAL jud_, set_delete 
i = judete jud z 
set_deleted_= SET('DELETE: 
RET DELETE ON ; j 

INDEXSEEK(jud_, .F., 'Iocalitati', sua" 

i A ti', jud 
SEL a &set_deleted i l 
EBOX('Exi putin o linie copil i 

RE (Exista cel putin o linie copil in tabela LOCALITAT! r) 
ENDIF 
SET DELETE &set_del 
ENDPROC a 


kaes 
EEEE EE 0 2 PRONO 


F i î 
uncția INDEXSEEK () caută în tabela LOCALITATI, fără a deplasa pointerul 
» nteru 


Succes, valoarea returnată este TR ) E 
UE (.T. în notația VEP interi 
aa 1 t ), altminteri, FALSE. 
e St aul Nicolai marcate pentru ştergere să nu fie luate în considerare de nd sn i 
A ar ca SET DELETE să fie ON, Pentru igiena aplicaţiei înainte a 


j folosir j I 
funcției, se stochează starea curen ELETE care va fi rest tă l 
ea tare ure tă a SE j ) 3 V aurą a 


ieşirea din declanşator, 
Modificarea indicativului i 
ui unui judeţ trebuie să se i î 
o pentru încă un declanșator special: N RERET 
TRIGGER ON judete FOR UPDATE AS trg upd_judete() 
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Corpul declanșatorului este prezentat în listingul 6.11. Valoarea dinaintea modificării se 
obţine în VFP prin funcția OLDVAL (), 


Listing 6.11. Declanşator pentru modificarea unei linii dig tabela JUDETE 


e e E k A We Ye B e A IER E de A E Be e PE er 


PROCEDURE trg_upd_judete 
LOCAL jud_OLD, jud_NEW 
jud_NEW = judete jud 
jud_OLD = OLDVAL(jud', judete”) 
IF jud_NEW 4 jud_OLD 
UPDATE localitati SET jud = jud_NEW WHERE jud = jud_OLD 
ENDIF : 5 
ENDPROC 


La inserarea unei noi linii într-o tabelă-copil sau la schimbarea valorii unei chei străine 
trebuie verificat dacă noile valori se regăsesc în tabela-părinte. Spre exemplu, dacă în tabela 
LOCALITATI se modifică valoarea atributului Jud, această nouă valoare trebuie căutată în 
JUDETE. iat 
CREATE TRIGGER ON localitati FOR UPDATE 

AS trg _ upd localitati) i 


Trebuie însă să avem în vedere că modificarea atributului Jud din LOCALITATI poate 
fi şi consecința declanşatorului trg_upd_ judete. Aşa încât, pentru a evita circularitatea, 
se verifică dacă modificarea este una locală sau provine din declanşatorul tabelei-părinte — 
vezi listingul 6.12. | ` 


Listing 6.12. Declanşator TRG_UPD_LOCALITATI 


e e e ee e e PE e H e e e e E CE He e Se E e Dee E E 


PROCEDURE trg_upd_localitati 


LOCAL jud_OLD, jud_NEW, codpost_OLD, codpost_NEW, v ; 
DIME v(1,1) 


*** mai intii se verifica restrictia referentiala cu tabela parinte 
jud_NEW = localitati.jud 
jud_OLD = OLDVAL(jud', 'locaiitati) 


IF jud_NEW 4 jud_OLD | f i ` i | 
IF _TRIGGERLEVEL = 1 && modificarea este locala (nu vine din alt trigger) 
SELECT jud FROM judete INTO ARRAY v WHERE jud = jud_NEW 
IF _TALLY = 09 
MESSAGEBOX('Noua valoarea a atributului Jud - '+jud_NEW+CHR(13)+, 
' nu se regaseste in tabela parinte JUDETE !) ; 
RETURN .F. 
ENDIF 
ENDIF 
ENDIF 


=* se propaga eventuala modificare a CodPost in tabela copil - CLIENTI 
codpost_NEW = localitati.codpost 
codpost_OLD = OLDVAL('codpost,, 'iocalitati”) 
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IF codpost_NEW 4 codpost_OLD 


UPDATE clienti = 
ENDIE E clienti SET codpost = codpost_NEW WHERE codpost = codpost_OLD 
ENDPROC 


i Variabila sistem _TRIGGERLEVEL indică tocmai dacă avem de-a face cu o modificare 
în cascadă sau una locală a atributului Jud. Ca un alt element de noutate, funcția sistem 
TALLY întoarce numărul de linii extrase prin clauza WHERE a ultimei comenzi SQL 
(SELECT). Pentru a accelera căutarea în tabela-părinte, se poate folosi. în | 

SELECT-ului, funcţia INDEXSEEK. i ERE 


6.5.2. Atribute actualizate prin declanşatoare 


Funcția stocată declarată ca regulă de validare pentru atributele LINII FACT. Canti- 

Şi LINIIFACT.PretUnit rezolvă cu brio problema actualizării câmpului 

INIIFACT .ValCuTVA la modificări ale celor două atribute. Necazul este că o 
comandă de inserare de genul: 


INSERT INTO LINIIFACT VALUES (23456, 3, 5, 1750, 18560 Q) 


conduce la o valoare eronată a atributului ValCuTVa, care va fi, după această comandă 
0. Am fi astfel tentaţi să introducem un apel al funcției-regulă de validare de către 
declanşatorul de inserare al tabelei LINIIFACT, ca în listingul 6.13. 


Listing 6.13. Declanşator TRG_INS_LINIIFACT 


PE HE I E k e e e Re e a se de eee de de e de 


PROCEDURE trg_ins_liniitact 


EEIE AE BAE IE BEIE BEE ini a an a OR ORION A 


pr 


ÎE aaie restrictia referentiala cu tabela parinte FACTURI 
iniifact.nrfact 4 facturi.nrtact AND !INDEXSEEK(liniifact.nrfact, F., ‘facturi ' A 
MESSAGEBOX('Noua valoare a atributului NrFact - aie a bei 
ELPIS IR(linitact nrfacta)) +; 
R(13)+'nu exista in tabela parinte FACTURI !' 
RETURN .F. i ui 
ENDIF 
E Misu restrictia refereniiala cu tabela parinte PRODUSE 
iniifact.codpr  produse.codpr AND !INDEXSEEK(liniifact.codpr, .F.. 'produse' ' i 
MESSAGEBOX('Noua valoare a atributului CodPr =: PERE cc 
+LTRIM(STR(liniifact.codpr,6)) + ; 
CHR(13)+'nu exista in tabela parinte PRODUSE ! 
RETURN F. i îsi 
ENDIF 


k daca se forteaza calcularea valorii LINIIFACT.ValCuTVA 
; fvr_cant_pret_liniifact(} 
va aparea mesajul de eroare CANNOT UPDATE THE CURSOR 


* se actualizeaza FACTURI.VaiTotala 
UPDATE facturi SET valtotala = valtotala + liniifact valcutva ; 


|_ENDPROC 


WHERE nrfact = liniifact nrfact 
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195 
Aroren stoet o oo N RE NR eaaa OZO 
P E II REID SEEE EE E E A A 
Î interzi i i linii di IF IUSED( facturi) - 
Atenţie! Într-un declanșator este interzisă modificarea vreunei linii din m Dec n o | 
entru care a fost definit declanșatorul respectiv. Cu toate acestea, lucrurile pot fi ENDIF 
Ivate lejer. Funcţia-regulă de validare nu este „bruiată” de declanșator dacă în IF nrfact_ NEW # facturi.nrfact AND IINDEXSEEK(nrfact_NEW, .F., facturi! nrfact) 
iai ; jos nu facem referire la atributul ValCuTVA. Rezultă că, obligatoriu, MESSAGEBOX('Noua valoare a atributului NrFact ~ ; | 
comanda INS i de adă t : oc ela a pH A al | 
forma comenzii de adăugare este: ta zi | E ACI atac NEW | 
INSERT INTO LINI FACT (Nrfact, Linie, CodPr, ; : l | SET DELETE Gece deltad 
Cantitate, PretUnit) VALUES (23456, 3, 5, 1750, 185609) RETURN F. 
i | ENDIF 
i E > clan- ENDIF 
La preluarea valorilor atributelor Cantitate şi PretUnit, procedura se declan pa 


ează fără a crea probleme rrigger-ului, E i —— 
i Ar mai fi de discutat un artificiu prezent în declanșator. Este posibil ca în aplicațiile în 


care se lucrează cu buffering (specific lucrului în rețea, când mai mulți utilizatori partajează 


wrx 


se verifica restrictia referentiala cu tabela parinte PRODUSE 


i z codpr_NEW = liniifact.codpr 
aceeaşi tabelă), înregistrarea-părinte din FACTURI (sau chiar PRODUSE) să ma fost codpr-OLD = OLDVAL edoi 'liniifact') 
comisă” din buffer pe disc. În acest caz, funcția INDEXSEEK() întoarce FALSE chiar 
dacă valoarea-copil este corectă. De aceea, condiția ce folosește INDEXSEEK () este IF codpr NEW # codor OLD ; Ș 2 
precedată de o alta mai simplă, care verifică dacă factura (şi produsul) curent din tabela- si e esuata d 1 & modificarea este locala 
-părinte nu este chiar cea pentru care se introduc înregistrări în LINIIFACT. i ii PE 
| ENDIF 
Următorul declanşator pe care îl vom discuta este cel corespunzător actualizării fiecărei IF îmi NEM eu oa roa AND INDEXSEEK(coder. NEW, .F., 'produse', 'codpr) 
înregistrări din tabela LINIIFACT ~ listingul 6.14. 


LTRIM(STR(codpr_NEW,6)) + 


CHR(13)+'nu exista in tabela parinte PRODUSE n) 
SET DELETE &set_deleted_ 


CREATE TRIGGER ON liniifact FOR UPDATE AS trg_upd_liniifact() 


ini ; RETURN F. 
Acesta are mai multe sarcini: l | | PE r Ami 
e verifică dacă s-a produs o modificare a atributului NrFact şi dacă eventua ENDIS 
valoare nouă se regăseşte în tabela FACTURI; ENDIF 


e dacă s-a modificat CodPr, se testează existența noii valori în PRODUSE; 


e dacă s-a modificat ValCuTVA, se actualizează valoarea atributului ValTotala ”* Daca s-a schimbat numarul facturii, linia trebuie scoasa de la fosta factura 


tabela FACTURI: IE ag ei met OLG AND TRIGGERLEVEL <= 1 
Listing 6.14. Declanşatorul de modificare a unei înregistrări din LINIIFACT = - - 
* se scade valoarea de la factura “veche” 
pă ai TE nete ta alele UPDATE facturi SET valtotala = valtotala - valcutva_OLD ; 
PROCEDURE trg_upd_liniifact i WHERE nrfact = nrfact_OLD 
* se aduna valoarea de la factura “noua” 
LOCAL nrfact_OLD, nrfact_NEW, codpr_OLD, codpr_NEW, v, ; UPDATE facturi SET valtotala = valtotala + valcutva_NEW ; 
valcutva_OLD, valcutva_NEW . 


WHERE nrfact = nrfact_NEW 


valcutva_OLD = OLDVAL('vaicutva', "iniifact') 


ELSE ** nu s-a modificat NrFact 
vaicutva_NEW = liniifact.valcutva 


IF valcutva_OLD 4 valcutva_NEW 


DIME v(1,1) UPDATE facturi SET valtotala = valtotala - valculva_OLD + valcutva_NEW ; 
WHERE nrfact = nrfact_OLD 
set_deleted_ = SET(DELETE)) ENDIF 
SET DELETE ON oE 
R T DELETE &set_deleted_ 
*** se verifica restrictia referentiala cu tabela parinte FACTURI ENDPROC 


nrfact_NEW = jiniifact nrfact E TREIE BE E AE DE A AE AE dee esa E 
nrfact_OLD = OLDVAL('nrfact', 'liniifact') 


La ştergerea oricărei linii dintr-o tabelă-copil nu există nici un risc cu privire la 
IF arau NEV Aj altă în otita co ali integritatea referenţială a bazei. Totuşi, ne putem propune să construim un declanşator 
IF _TRIGGERL So 


CREATE TRIGGI 
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pentru ştergerea unei înregistrări din LINII FACT care să verifice dacă înregistrarea ştearsă 
este ultima pentru factura respectivă, caz în care să se şteargă şi linia-părinte din FACTURI. 


In plus, înregistrarea ştearsă trebuie neapărat să reprezinte ultima linie din factură. 
ER ON liniifact FOR DELETE AS trg_del_ liniifact () 


Corpul declanşatorului se află în listingul 6.15. 
Listing 6.15. Declanşatorul de ştergere a unei înregistrări din LINIIFACT 


Pee H SE He BE e ee E De E ARTE Se EEE er | 


PROCEDURE trg_del_liniifact 
LOCAL cite_, NrFact_, linie_ 
DIME cite_(1,1), linie_(1,1) 
cite_ = 0 

linie_ = 0 

NrFact_ = liniifact.nrfact 


* se interzice stergerea altei linii decit ultima 
SELECT MAX(Linie) INTO ARRAY linie_ FROM LINIIFACT : 
WHERE NrFact = NrFact_ AND !DELETED() ` 


SELECT liniifact 


IF linie_(1,1) 4 liniifact.linie 
MESSAGEBOX(Nu puteti sterge decit ultima linie din factura !') 
RETURN F. 

ENDIF 


* se verifica daca mai ramine vreo linie in factura 
SELECT COUNT(*) INTO ARRAY cite_ FROM LINIIFACT ; 
WHERE NrFact = NrFact_ AND IDELETED() 


IF cite_(1,1)=1 
MESSAGEBOX(Aceasta a fost ultima linie din factura !') 


IF SEEK(NrFact_, 'facturi', 'nrfact') 
SELECT facturi 
DELETE 

ENDIF 


ELSE 
* se actualizeaza FACTURI. ValTotala 


UPDATE facturi SET valtotala = valtotala - liniifact.valcutva i 
WHERE nrfact = liniifact.nrfact pe a 
ENDIF 
SELECT liniifact 
RETURN .T. 
ENDPROC 


TEE PRIX RE RER RR RER Rea 


6.5.3. Declanşatoare pentru controlul actualizărilor 


În materie de securitate, VFP nu stă grozav. Cu toate acestea, pot fi valorificate atuurile 
declanşatoarelor și ale sistemului de operare Windows NT/2000 şi se pot institui mecanisme 
acceptabile pentru siguranța exploatării aplicaţiilor. Dar acesta va fi subiectul unui alt 


capitol. 
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PE nie propunem ca unele atribute, precum cele calculate, să nu fie modificate 
A ais nenzi BROWSE, EDIT sau REPLACE, sau prin legarea direct la controalele 
A A a a ial A aia ia E de validare. Pentru a permite 
i 1 prin intermediul unui ¿ i 
a a dacă nivelul declanşatorului pipi mare decât 1, a ale i 
pe cae provine Su alt trigger, şi se validează operațiunea. Dacă funcția 
e er dia i oarce o valoare egală cu 1, modificarea este respinsă, Să exempli- 
Vl to a şatorul pentru actualizarea tabelei FACTURI. 
GGER ON facturi FOR UPDATE AS trg_upd facturi () 


Corpul declanșatorului este prezentat în listingu] 6.16. 


Listing 6.16. Declanşatorul pentru modificarea unei linii din tabela FACTURI 


lnicininieinâzăninlg 220 0 PD Poate peer 


PROCEDURE trg_upd_facturi 


ininininiiininăniniiai daia E RN e APARI 


LOCAL Codcl_OLD, codel NEW, valtotaia_OLD, valtotala NEW, i 
nrfact_OLD, nrfact_NEW, gestiune_OLD, gestiune_NEW 


set_deieted_ = SET(DE LETE’) 
SET DELETE ON 


Ae se verifica restrictia referentiala cu tabela pari 
gestiune NEW = facturi.gestiune ae 
gestiune _OLD = OLDVAL('gestiunei, 'facturi') 
IF gestiune_NEW 4 gestiune_OLD 
IF _TRIGGERLEVEL = 1 
IF !USED('gestiuni)) 
USE gestiuni IN 0 
ENDIF 
IE gestiune_NEW # gestiuni.gestiune AND ; 
IINDEXSEEK(gestiune_NEW, E; etil, 'gestiune') 
MESSAGEBOX('Noua valoare a atributului Gestiune -; 
&LTRIM(gestiune_ NEW) +; ' 
R(13)+'nu exista in tabel i ' 
SET DELETE e ca ICE S 
RETURN F. T 
ENDIF 
ENDIF 
ENDIF 


&& modificarea este locala 


*** se verifica restrictia referentiala cu tabela parint 
codel NEW = facturi.codei N 
codel OLD = OLDVAL('codcr', 'facturi') 


IF codcl_NEW 4 codel OLD 
IF _TRIGGERLEVEL <= 1 
IF !USED('clienti”) 
USE clienti IN 0 


&8 modificarea este locala 


ENDIF 
IF codci_NEW 4 clienti codel AND !INDEXSE 
E ; ! EK(codci_NEW, .F., 'clienti' ' l 
MESSAGEBOX('Noua valoare a atributului CodC! - isca, 
CI LRIM(STR(Codcl_NEW,6)) +; 
HR(13)+'nu exista in tabela arinte CLI r 
SET DELETE &set deleted gi pii 
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RETURN F. 
ENDIF 


ENDIF 
ENDIF 


*” se interzice modificarea interactiva a atributului ValTotala 
valtotala_NEW = facturi valtotala 
valtotala_OLD = OLDVAL('valtotala', 'facturi”) 
IF vaitotela_NEW 4 valtotala_OLD 
IF _TRIGGERLEVEL = 1 
MESSAGEBOX(Nu puteti modifica interactiv valoarea totala a facturii 19 
SET DELETE &set_deleted_ 
RETURN F. 
ENDIF 
ENDIF 


**" se propaga eventuala modificare a NrFact in tabelele copil - LIINIIFACT si INCASFACT 
i nfact_NEW = facturi.nrfact 
nrfact_OLD = OLDVAL('nrfact', 'facturi') 
IF nrfact NEW 4 nrfact_OLD ` 

UPDATE liniifact SET NrFact = nrfact NEW WHERE NrFact = nrfact_OLD 

UPDATE incasfact SET NrFact = nrfact_NEW WHERE NrFact = nrfact_OLD 

ENDIF 

| 


SET DELETE &set_deleted_ 
ENDPROG 


PERIE IE A NED RER RR SRR Etera aere 


à 


În schimb, declanșatorul de inserare trebuie să verifice ca valoarea atributului să fie 
zero — listingul 6.17. 


Listing 6.17. Declanşatorul pentru inserarea unei înregistrări în tabela FACTURI 


a kurnannransarnaranninsinaananeanrareana —— uuu 
PROCEDURE trg_ins_facturi 


EHE EE E E ACR Pee e ORA AEA TEE RR ee eee 


LOCAL codel_OLD, codel NEW, gestiune_OLD, gestiune NEW 


set_deleted_ = SET('DELETE') 
SET DELETE ON 


gestiune_NEW = facturi.gestiune 
IF IUSED('gestiuni') 
USE gestiuni IN O 
ENDIF 
IF gestiune NEW # gestiuni.gestiune AND !INDEXSEEK(gestiune_NEW, .F., 'gestiun’, 'gestiune') 
MESSAGEBOX('Noua valoare a atributului Gestiune -'; 
+LTRIM(gestiune_NEW) + ; 
CHR(13)+'nu exista in tabela parinte GESTIUNI !) 
SET DELETE &set_deleted_ 
RETURN F. 
ENDIF 


f 
** se verifica restrictia referentiala cu tabela parinte GESTIUNI 


= se verifica restrictia referentiala cu tabela parinte CLIENTI 
codeci NEW = facturi.codcel 


IE IUSED('ctienti”) 
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USE clienti IN O 
ENDIF 
IF codci_NEW 4 clienti.codei AND IINDEXSEEK(codcl_NEW, .F., 'clienti', 'codcl') 
MESSAGEBOX('Noua valoare a atributului CodCl -; 
+LTRIM(STR(codel_NEW,6)) +; 
CHR(13)+'nu exista in tabeia parinte CLIENTI !') 
SET DELETE &set_deleted_ 


a ETURN.F 
FEN F 
+9 
a 3 uri e interzice o valoare diferita de zero a atributului VaiTotala 
i IE facturi valtotala 4 O 
E = ESSAGEBOX('O factura noua nu poate avea decit valoarea zero'+; 
3 G CHR(13)+'(este calculata automat ulterior)) 
= vi, BET DELETE &set_deleted_ i 
3 Z RETURN F. 
= ENDIF 
SET DELETE &set_deleted_ 
ENDPROC 


SEE e Be n e re fr eee e ERP E RR RR RR e 


În tabela LINIIFACT, atributul Val CuTVA. este calculat prin funcția-regulă de validare 
îvr_cant_pret_liniifact (). Aceasta se lansează la orice modificare a unuia 
dintre câmpurile LINIIFACT.Cantitate şi LINIIFACT. PretUnit. Nimic nu 
interzice însă, la acest moment, ca printr-o comandă sau formular, utilizatorii să modifice 
direct atributul calculat. Variabila-sistem _TRIGGERLEVEL nu ne este de mare folos,. 
deoarece modificarea nu e rezultatul declanşatorului. Am fi tentaţi să folosim aceeași 
funcţie stocată — fyr_ cant pret liniifact () -— şi ca funcţie-regulă de validare 
pentru LINIIFACT, Val CuTVA. Nu este indicat, mult mai la îndemână fiind o nouă 
funcţie — vezi listingul 6.18. 

ALTER TABLE liniifact ALTER COLUMN valcutva SET CHECK 
fvr_valcutva liniifact () NOVALIDATE 


Listing 6.18. Corpul procedurii/funcţiei stocate ce reprezintă regula de validare pentru 
LINIIFACT. Val CuTVA 


Pee TREPIED e E E det RICĂ e E Ae De DE a Ra tree 


PROCEDURE fvr_valcutva_liniifact 
IF LINIIFACT VaiCuTVA 4 LINIIFACT Cantitate * ; 
LINIIFACT.Pretunit * (1 + afla_tva(LINIIFACT.CodPr)) 
MESSAGEBOX(Nu puteti modifica interactiv atributul VaiCuTVA”) 
RETURN .F. 
ENDIF 
RETURN. .T. 
ENDPROC E 


Listingul tuturor procedurilor stocate (ar fi trebui să fie listingul 6.19) este mult prea 
ung și nu a fost inclus în carte, dar totuşi poate fi descărcat de la adresa 
http://www. es.uaic.ro/infoec/books. 
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6.6. Salvarea/restaurarea procedurilor stocate. 
Refacerea containerului BD 


Una dintre cele mai disperate situații în utilizarea aplicaţiilor VFP este cea în care, din 
diverse motive, baza de date, şi în primul rând containerul, este alterată. Riscurile sporesc 
pe măsura creşterii dimensiunii tabelelor şi a numărului de utilizatori conectaţi simultan la 
aplicaţie (în rețea). 

Pierderea dicționarului de date creează fiori oricărui responsabil de aplicaţie şi nici un 
efort nu este prea mic pentru a preîntâmpina sau, în ultimă instanță, a salva situaţia. Din 
fericire, există o comandă destul de simplă — COPY PROCEDURES -—, prin care proce- 


durile stocate ale bazei de date pot fi salvate într-un fişier ASCII. Spre exemplu, comanda.» 


COPY PROCEDURES TO proc_stoc_vinzari,tat PO 


va crea un fişier text numit proc_stoc_vinzari, care va conține copia procedurilor 
stocate din containerul bazei. O idee bună ar fi păstrarea tuturor (sau celor mai recente) 
versiuni ale procedurilor stocate, caz în care numele fişierului în care are loc salvarea 


include şi data salvării: 


COPY PROCEDURES TO 'copie ps _ vinzari '+DTOS(date())+'.tat! 


À la limite, în numele fişierului se poate include şi ora la care s-a făcut salvarea — dar ar 
fi o exagerare justificabilă în puţine cazuri. 

Atunci când există indicii că procedurile stocate au fost alterate sau chiar distruse, 
comanda de refacere a acestora prin preluarea dintr-un fişier în care au fost salvate în 
prealabil este APPEND PROCEDURES FROM fișier [OVERWRITE]: l 


APPEND PROCEDURES FROM proc_stoc_vinzari.txt OVERWRITE 


Pentru a reface procedurile stocate prin preluarea din fişierul text cel mai recent, se 
poate folosi programul prezentat în listingul 6.20. 


Listing 6.20. Refacerea procedurilor stocate 


* se determina ultima varianta (salvata) a procedurilor stocate 
* si se reface containerul bazei 


* se preiau in masivul vFisiere toate fisierele ce contin procedurile stocate 
nr = ADIR(VFisiere, 'copie_ps_vinzari_*.txt) 


* se preia numai numele fiecarui fisiere intr-un vector (masiv unidimensional) 
DIME vNumeFis(nr) 
FORi=1TOnr 
vNumeFis (i) = vFisiere(i,1) 
ENDFOR 


* se sorteaza vectorul 
= ASORT(vNumeFis) 


* cea mai recenta versiune este: 
ultimul_ = vNumeFis(nr) 
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Uneori însă, simpla refacere a procedurilor stocate nu rezolvă situația de criză a unei 
aplicații. De obicei, primii care cedează sunt indecşii, așa că este necesar şi un program de 
refacere a indecşilor (vezi capitolul 2). Am întâlnit însă şi situaţii în care nici refacerea 
indecșilor şi a procedurilor stocate nu a reușit remedierea containerului bazei. Astfel încât, 
în continuare, vă prezentăm o variantă care, deşi brutală, reuşeşte să repună pe picioare 
aproape orice bază de date, în care însă tabelele sunt „coerente” — Jistingul 6.21. 


Listing 6.21. Refacerea bazei de date 


Ez RE-CONSTITUIREA BAZEI DE DATE - varianta radicala ! 


CLOSE DATA ALL 
CLOSE TABLES ALL 
CLEAR ALL 

CLOSE ALL 

SET SAFETY OFF 


* se sterge BD (inclusiv dictionarul), insa nu si tabelele 
DELETE DATABASE vinzari 


* se sterge indexul bazei de cate 
DELETE FILE *.DCX 


* se sterg indecsii 
DELETE FILE *.CDX 


* se re-creaza baza -7 
CREATE DATABASE vinzari 


* se adauga tabelele care, in acest moment, sunt independente 
* (trebuie avut grija la numele lungi ale atributelor... vor trebui redenumiti explicit !) 
ADD TABLE judete 
USE judete IN O 

PACK 

ADD TABLE localitati 
USE localitati IN O 
PACK 

ADD TABLE clienti 
USE clienti IN 0 

PACK 

ADD TABLE persoane 
USE persoane ÎN 0 
PACK 

ADD TABLE persclienti 
USE persciienti IN O 
PACK 

ADD TABLE produse 
USE produse IN 0 
PACK 

ADD TABLE gestiuni 
USE gestiuni IN O 
PACK 

ADD TABLE facturi 
USE facturi IN O 

PACK 

ADD TABLE liniifact 


USE liniifact IN O 


* se refac procedurile in containerul! BD 


APPEND PROCEDURES FROM (ultimu! ) OVERWRITE i 
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PACK 

ADD TABLE incasari 
USE incasari IN 0 
PACK 

ADD TABLE incasfact 
USE incasfact IN 0 
PACK 


* se creaza indecsii primari si candidati 


ALTER TABLE judete ADD PRIMARY KEY jud TAG jud 
ALTER TABLE judete ADD UNIQUE judet TAG judet 


ALTER TABLE localitati ADD PRIMARY KEY codpost TAG codpost 
ALTER TABLE localitati ADD FOREIGN KEY jud TAG jud REFERENCES judete TAG jud 


ALTER TABLE clienti ADD PRIMARY KEY code! TAG codel 
ALTER TABLE clienti ADD FOREIGN KEY codpost TAG codpost; 
REFERENCES localitati TAG codpost 


ALTER TABLE persoane ADD PRIMARY KEY cnp TAG cnp 
ALTER TABLE persoane ADD FOREIGN KEY codpost TAG codpost; 
REFERENCES iocalitati TAG codpost 


ALTER TABLE persclienti ADD PRIMARY KEY cnp+STR(codcel,6)+functie TAG primaru 
ALTER TABLE persclienti ADD FOREIGN KEY cnp TAG cnp REFERENCES persoane TAG cnp 
ALTER TABLE persclienti ADD FOREIGN KEY code! TAG codel REFERENCES clienti TAG code! 


ALTER TABLE produse ADD PRIMARY KEY codpr TAG codpr 


ALTER TABLE gestiuni ADD PRIMARY KEY gestiune TAG gestiune 
ALTER TABLE gestiuni ADD FOREIGN KEY codpost TAG codpost REFERENCES localitati TAG codpost 
ALTER TABLE gestiuni ADD FOREIGN KEY cnp TAG cnp REFERENCES persoane TAG cnp 


ALTER TABLE facturi ADD PRIMARY KEY nrfact TAG nrfact 
ALTER TABLE facturi ADD FOREIGN KEY gestiune TAG gestiune ; 
REFERENCES gestiuni TAG gestiune 
ALTER TABLE facturi ADD FOREIGN KEY codel TAG codcl REFERENCES clienti TAG codel 


ALTER TABLE liniifact ADD PRIMARY KEY STR(nrfact,8)+STR(linie,2) TAG primaru 
ALTER TABLE liniifact ADD FOREIGN KEY nrfact TAG nrfact REFERENCES facturi TAG nrfact 
ALTER TABLE liniiftact ADD FOREIGN KEY codpr TAG codpr REFERENCES produse TAG codpr 


ALTER TABLE incasari ADD PRIMARY KEY codinc TAG codinc 


ALTER TABLE incasfact ADD PRIMARY KEY STR(codinc,8)+STR(nrfact,8) TAG primaru 
ALTER TABLE incasfact ADD FOREIGN KEY nrfact TAG nrfact REFERENCES facturi TAG nrfact 
ALTER TABLE incasfact ADD FOREIGN KEY codinc TAG codinc REFERENCES incasari TAG codinc 


* se refac procedurile stocate 
* APPEND PROCEDURES FROM proceduri_stocate_vinzari. TXT OVERWRITE 
DO refacere _proceduri_stocate 


* declararea declansatoarelor 
PUBLIC vTabele 

DIME vTabele(1,1) 
ADBOBJECTS(vTabele, "TABLE”) 
FOR i= í TO ALEN(vTabele) 
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trigger_ = “trg_del_"+alit(tab_)+"0)" 

CREATE TRIGGER ON &tab_ FOR DELETE AS &trigger 

trigger_ = “trg_upd_"+alit(tab_)+"()" ii 

CREATE TRIGGER ON &tab_ FOR UPDATE AS âtrigger 

REEE = "trg_ins_"+allt(tab_)+"0" E 
Sia TRIGGER ON &tab_ FOR INSERT AS &trigger_ 


* refacerea regulilor de validare si valorilor implicite 
DO checkuri_nulli_si_detaulturi 


SET SAFETY ON 


RETURN 


E iai ERP NEUE E RI RI RR SI NN, 


Programul de refacere a valorilor implicite şi regulilor 


checkuri_nulii _ s i defaulturi — este cel din listingul 6.22. 


Listing 6.22. Programul de re-deciarare a valorilor implicite şi reguli! 


** reguli de validare la nivel de atribut 


ALTER TABLE JUDETE ALTER COLUMN ; 
jud SET CHECK (ud=LTRIM(UPPER(jud)) ; 
ERROR "Indicativul judetului se scrie cu majuscule ! 


ALTER TABLE JUDETE ALTER COLUMN ; 
judet SET CHECK Gudet=L TRIM(PROPER(judet))) ; 
ERROR 'Prima litera din fiecare cuvint a!+CHR(13)+; 
„denumirii judetului este majuscula; '+CHR(13)+; 
restul literelor sunt mici! 


ALTER TABLE JUDETE ALTER COLUMN regiune SET DEFAULT 'Moldova' 


ALTER TABLE JUDETE ALTER COLUMN ; 
regiune SET CHECK (INLISTi(regiune, 'Banat', 'Transilvania', : 
Dobrogea, 'Oltenia', ‘Muntenia’, 'Moldova')) ; a 
ERROR "Regiunea poate avea o valoare numai din lista:'+CHR(13)+; 
Banat, Transilvania, Dobrogea, Oltenia, Muntenia, Moldova' 


ALTER TABLE LOCALITATI ALTER COLUMN ; 
codpost SET CHECK (codpost=L.TRIM(codpost)) ; 
ERROR 'Codul postal se scrie fara spatii la inceput !' 


ALTER TABLE LOCALITATI ALTER COLUMN ; 

loc SET CHECK (loc=LTRIM(PROPERţioc))) ; 
ERROR 'Prima litera din fiecare cuvint al+CHR(13)+; 
"denumirii iocalitatii este majuscula; '+CHR(13)+; 
restul literelor sunt mici!" 


ALTER TABLE LOCALITATI ALTER COLUMN jud SET DEFAULT "18! 


ALTER TABLE CLIENȚI ALTER COLUMN ; 
code! SET CHECK (code! > 1000) 


tab = vTabele(i) aana 


emaema 


de validare — 


or de validare 


204 


ALTER TABLE CLIENTI ALTER COLUMN ; 
codel SET DEFAULT def_codel_clienti() 


ALTER TABLE CLIENTI ALTER COLUMN; 

dencl SET CHECK (SUBSTR(denci,1,1) = UPPER(SUBSTR(dencl,1,1))) : 
ERROR 'Prima litera din denumirea clientului este ; '+CHR(13)+; 
"obligatoriu majuscula !' 


ALTER TABLE CLIENTI ALTER COLUMN codfiscal NULL 


ALTER TABLE CLIENȚI ALTER COLUMN ; 
codfiscal SET CHECK (SUBSTR(codfiscal,1,1) = UPPER(SUBSTR(codfiscal,1,1))) ; 
ERROR 'Prima (eventuala) litera din codul fiscal ; '+CHR(13)+; 
'este obligatoriu majuscula | 


ALTER TABLE CLIENT! ALTER COLUMN adresa NULL 


ALTER TABLE CLIENTI ALTER COLUMN ; 
adresa SET CHECK (SUBSTR(adresa,1,1) = UPPER(SUBSTR(adresa,1,1))); 
ERROR 'Prima (eventuala) litera din adresa ; '+CHR(13)+; 
'este obligatoriu majuscula !' 


ALTER TABLE CLIENTI ALTER COLUMN codpost SET DEFAULT '6600' 
ALTER TABLE CLIENTI ALTER COLUMN telefon NULL 


ALTER TABLE PERSOANE ALTER COLUMN ; 
cnp SET CHECK (enp=LTRIM(UPPER(cnp))) ; 
ERROR ‘Codul numeric personal se scrie fara spatii la inceput !' 


ALTER TABLE PERSOANE ALTER COLUMN; 
nume SET CHECK (nume=LTRIM(PROPER(nume))) ; 
ERROR 'Prima litera din fiecare cuvint a!'+CHR(13)+; 
'numelui este majuscula; '+CHR(13)+; 
"restul literelor sunt mici!' 


ALTER TABLE PERSOANE ALTER COLUMN ; 
prenume SET CHECK (prenume=LTRIM(PROPER(prenume))) ; 
ERROR Prima litera din fiecare cuvint al'+CHR(13)+; 
'prenumelui este majuscula; '+CHR(13)+; 
'restul literelor sunt mici! 


ALTER TABLE PERSOANE ALTER COLUMN adresa NULL = 
ALTER TABLE PERSOANE ALTER COLUMN ; 
adresa SET CHECK (SUBSTR(adresa,1,1) = UPPER(SUBSTR(adresa,1,1))) ; 
ERROR 'Prima litera din adresa este obligatoriu majuscula !' 
ALTER TABLE PERSOANE ALTER COLUMN sex SET DEFAULT 'B' 


ALTER TABLE PERSOANE ALTER COLUMN ; 
sex SET CHECK (INLIST(sex,'F','B')) ; 
ERROR ‘Atributul Sex poate avea valorile F (de la Femeiesc)+CHR(13)+: 
'sau B (de la Barbatesc) !' i 


ALTER TABLE PERSOANE ALTER COLUMN codpost SET DEFAULT '6600' 


ALTER TABLE PERSOANE ALTER COLUMN telacasa NULL 
ALTER TABLE PERSOANE ALTER COLUMN telbirou NULL 
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ALTER TABLE PERSOANE ALTER COLUMN telmobil NULL 
ALTER TABLE PERSOANE ALTER COLUMN email NULL 


ALTER TABLE PERSCLIENTI ALTER COLUMN; 
functie SET CHECK (SUBSTR(functie,1,1) = UPPER(SUBSTR(functie,1,1))) : 
ERROR 'Prima litera din functie este obligatoriu majuscula !' 


ALTER TABLE PRODUSE ALTER COLUMN ; 
codpr SET DEFAULT def_codpr_produseţ) 


ALTER TABLE PRODUSE ALTER COLUMN şi 
codpr SET CHECK (codpr > 0); 
ERROR 'Codul produsului trebuie sa fie mai mare de 100000 ! 


ALTER TABLE PRODUSE ALTER COLUMN ; 
denpr SET CHECK (SUBSTR(denpr,1,1) = UPPER(SUBSTR(denpr,1,1))) ; 
ERROR 'Prima litera din denumirea produsului este obligatoriu majuscula |! 


ALTER TABLE PRODUSE ALTER COLUMN ; 
grupa SET CHECK (SUBSTR(grupa,1,1) = UPPER(SUBSTR(grupa,1 A 
ERROR 'Prima litera din grupa este obligatoriu majuscula ! 


ALTER TABLE PRODUSE ALTER COLUMN procTVA SET DEFAULT .19 


ALTER TABLE FACTURI ALTER COLUMN ; 
nrfact SET DEFAULT def_nrfact_facturi() 


ALTER TABLE FACTURI ALTER COLUMN ; 
datafact SET DEFAULT DATE() 


ALTER TABLE FACTURI ALTER COLUMN ; 
datafact SET CHECK (BETWEEN (datafact,{^2000/01/01},{^201 0/12/31})) ; 
ERROR 'Baza de date functioneaza in intervalul 1 ian 2000 - 31 dec.2010 + 


ALTER TABLE FACTURI ALTER COLUMN i 
Code! SET DEFAULT def_codci_ facturiț) 


ALTER TABLE i i i i 
Novaia e facturi ALTER COLUMN gestiune SET DEFAULT def_gestiune_facturiţ) 


ALTER TABLE FACTURI ALTER COLUMN obs NULL 


ALTER TABLE LINIIFACT ALTER COLUMN ; 
nrfact SET DEFAULT def_nrfact_liniifactț) 


ALTER TABLE LINIIFACT ALTER COLUMN $ 
linie SET DEFAULT def_linie_liniifact() 


ALTER TABLE LINIIFACT ALTER COLUMN ; 
codpr SET DEFAULT def_codpr_liniifact() 


ALTER TABLE LINIIFACT ALTER COLUMN : 
linie NUMBER(2) SET CHECK (linie > 0); 
ERROR 'Atributul linie trebuie sa fie mai mare ca zero ! 


ALTER TABLE LINIIFACT ALTER COLUMN : 
cantitate SET CHECK fvr_cant_pret_liniifact() 
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; 
ALTER TABLE LINIIFACT ALTER COLUMN ; 


pretunit SET CHECK fvr_cant_pret_liniifact() 


ALTER TABLE INCASARI ALTER COLUMN ; 
codinc SET DEFAULT def_codinc_incasari() 


ALTER TABLE INCASARI ALTER COLUMN datainc SET DEFAULT DATE() 


ALTER TABLE INCASARI ALTER COLUMN ; 
datainc SET CHECK (BETWEEN(datainc,(12000/01/01),(12010/12/31))) ; f 
ERROR 'Baza de date functioneaza in intervalul 1 ian.2000 - 31 dec.2010 ? 


ALTER TABLE INCASARI ALTER COLUMN ; 
coddoc SET CHECK(coddoc=UPPERILTRIM(coddoc))) ; 
ERROR 'Codul documentului se scrie cu majuscule ! 


ALTER TABLE INCASARI ALTER COLUMN datadoc SET DEFAULT DATE() - 5 
ALTER TABLE INCASARI ALTER COLUMN ; 


datadoc SET CHECK (BETWEEN(datadoc, (12000/01/01),442010/12/34))) ; 
ERROR 'Data documentului trebuie sa fie intre 1 ian.2000 si 31 dec.2010.! 


6.7. Declanşatoare generalizate pentru asigurarea 
restricţiilor referenţiale 


După cum am văzut în capitolul.2 şi în cel de faţă, declararea restricţiilor referențiale se 
poate face fie asistat, fie-prin program, prin stabilirea, mai întâi, de legături permanente 
între tabele (prin indecşi) şi apoi declararea, prin Referential Integrity 
Builder, sau prin declanșatoare, a regulilor de urmat la actualizarea tabelelor-părinte și 
copil în vederea prezervării integrității bazei. Fireşte, prima soluţie prezintă avantajul 
simplităţii. Varianta prin declanşatoare este însă mai potrivită, deoarece permite afişarea 
unor mesaje clare ce pot fi preluate în formulare, astfel încât aplicaţia este mult mai uşor de 
exploatat. În plus, în declanşatoare pot fi incluse şi alte elemente în afara celor ce ţin de 
restricţiile referenţiale. 

Dezavantajul principal al lucrului prin declanşatoare, aşa cum au fost prezentate în 
paragrafele anterioare, ţine de o anumită redundanță. Dacă baza are zeci de tabele, şi de 
obicei are, este necesar un anumit volum de muncă de uzură. Plus dimensiunea mare a 
dicționarului de date. 

Ca urmare, vă propunem o variantă elegantă în care declanşatoarele sunt generalizate. În 
containerul bazei va exista câte un declanșator de inserare, modificare şi ştergere, 
declanşator care preia ca parametru numele tabelei actualizate. 


Atenţie! Soluţia prezentată în continuare funcţionează numai atunci când restricţiile 
referenţiale se stabilesc printr-un singur atribut, adică nu există nici o cheie străină 
compusă. În plus, indecșii simpli au același nume cu atributul de indexare în toate 
tabelele. De asemenea, nu sunt rezolvate restricţiile stabilite între două atribute ale 
aceleiași tabele (de exemplu, într-o bază de date pentru evidența personalului, în tabela 
PERSONAL atributul Marcașef este cheie străină, tabela-părinte fiind tot 
PERSONAL, iar atributul de legătură al „părintelui” este Marca), 
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Funcțiile/procedurile următoare rămân neschimbate față de versiunea anterioară a 
procedurilor stocate: 


e fvr _cant_pret_liniifact 
e fvr_valcutva_liniifact 
e def coacl clienti 

* def_codpr_produse 

e def nrfact facturi 

e def codcl facturi 

e def nrfact liniifact 

° def linie liniifact 

» def codpr liniifact 

* def codinc incasari 

e  vinz client é 
e incas client 

e afla TVA, 


Incepem cu o procedură nouă de deschidere a tabelelor şi iniţializare a variabilelor- 
-tablou de memorie ce conțin informaţii despre tabelele bazei (vTabele), şi legăturile 
permanente dintre tabele — suportul restricțiilor referențiale, astfel: 

e  vRelatii este un vector (masiv unidimensional) ce conţine câte o componentă 

- pentru fiecare dintre relațiile permanente stabilite între două tabele ale bazei; 

e  vCopii —tabelele-copil; 

e  vParinti —tabelele-părinte; 

°  vtaguriCopil ~ numele indexului elementar (zag-ului) al tabelei-copil prin 
care se stabileşte legătura cu tabela-părinte; 

° vTaguriParinte — numele indexului elementar (ag-ului) al tabelei-părinte 
prin care se stabileşte legătura cu tabela-copil, 


Toate aceste variabile sunt declarate publice, pentru a putea fi folosite în procedurile 
stocate. Codul-sursă al procedurii setup este prezentat în listingu! 6.23, iar cel al 
procedurii de salvare automată (la ieşirea din sesiunea VFP) a procedurilor stocate ale bazei 
în listingul 6.24. 


Listing 6.23. Procedura stocată de inițializare a variabilelor ce conţin informaţii 
despre relațiile dintre tabele i 


PROCEDURE SETUP 


* se deschide baza de date 
IF IDBUSED('vinzari”) 

OPEN DATABASE vinzari EXCLUSIVE 
ENDIF 


: Deschiderea automata a tabelelor BD si 
: stabilirea indexului activ - varianta a 2-a 
se presupune ca baza e deja deschisa 

Lois 
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PUBLIC vTabele 
DIME vTabele(5,1) 
ADBOBJECTS(vTabele, “TABLE”) 
FOR i= 1 TO ALEN(vTabele) 
tab_ = vTabele(i) 
* daca tabela nu este deja deschisa, se asociaza unei zone de lucru 
IF IUSED((tab_)) 
USE (tab_) IN O EXCLU 
ENDIF 
* daca exista macar un index, primul (dintre indecsi) devine principal 
SELECT (tab_) 
IF TAGCOUNT( > 0 
SET ORDER TO TAG 1 
ENDIF 
PUBLIC trg_ins_&tab_, trg_upd_&tab_, trg_del_&tab_ 
ENDFOR 


PUBLIC vRelatii, vCopii, vParinti, vTaguriCopil, vTaguriParinte 
DIME vRelatii(4,4), vCopii(1), vParinti(1), vTaguriCopil(1), vTaguriParinte(1) 
ADBOBJECTS(vRelatii, 'Relation') 
* prima coloana din vRelatii - tabela COPIL 
* a doua coloana din vRelatii - tabela PARINTE 
* a treia coloana din vRelatii - index (tag) COPIL 
” a patra coloana din vRelatii - index(tag) PARINTE 
DIME vCopii(ALEN(vRelatii,1)), vParinti(ALEN(vRelatii, 1)), ; 
vTaguriCopil(ALEN(vRelatii,1)), vTaguriParinte(ALEN(vRelatii,1)) 
FOR i= 1 TO ALEN(vRelatii,1) 
vCopii(i) = vRelatii(i,1) 
vParinti(i) = vRelatii(i,2) . 
vTaguriCopil(i) = vRelatii(i,3) 
vTaguriParinte(i) = vRelatii(i,4) 
ENDFOR 


= la fiecare iesire din VFP se salveaza o copie a procedurilor stocate 
ON SHUTDOWN DO salvare_proceduri_stocate 


ENDPROC 


=. 


Listing 6.24. Procedura de salvare a variantei curente a procedurilor stocate 


PI 


PROCEDURE salvare_proceduri_stocate 


* numele fisierului text include data, ora si minutul 
* la care are loc salvarea 


COPY PROCEDURES TO 'copie_ps_vinzari_'+DTOS(date())+!_'+; 
PADL(ALLT(STR(HOUR(DATETIME())),2,0')+; 
PADL(ALLT(STR(MINUTE(DATETIME()))),2,0")+.bxt' 

QUIT 


= 


Lucrul cu variabile de memorie este grozav de indicat, deoarece căutarea şi sortarea este 
foarte rapidă. Să parcurgem pe rând declanşatoarele generalizate. Începem cu cel de 
ştergere, al cărui cod-sursă este prezentat în listingul 6.25. 
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Listing 6.25. Declanşatorul de ştergere valabil pentru toate tabelele bazei 


triggeru' general de stergere 
PROCEDURE trg_del 
parameter tabela__ 
LOCAL i, copil_, tagcopil_, tabela_, curent_, tagparinte_, nrindexparinte_, ; 
“cheieparinte_, valoare_cheieparinte_, sir_valoare_cheieparinte_ 


tabela_ = alit(upper(tabela__)) 

IF TYPE(vTabele') = “U” OR TYPE(vRelatii') = "U” 
do setup 

ENDIF 

trg_del_&tabela_ =t, 


set_deleted_ = SET(DELETE)) 
SET DELETE ON 

"** cautam daca tabela curenta este una parinte 
curent_= 1 


i= ASCAN(vParinti, tabela_, curent_) 


DO WHILE i>0 
* s-a gasit o noua tabela-copi! pentru acest parinte 
tagparinte_ = ALLT(vTaguriParinteţi)) 
nrindexparinte_ = TAGNOLtagparinte_, vParinti(i), vParinti(i)) 
cheieparinte_ = KEY (nrindexparinte_,vParintiţi)) 
valoare_cheieparinte_ = EVALUATE (vParinti(i)+”."+cheieparinte_) 


copil_ = ALLT(vCopiiţi)) 
tagcopil_ = ALLT(vTaguriCopil(i)) 


IF UPPER(VParinti(i))='FACTURI AND UPPER(copil_)='LINIIFACT ; 
„ AND _TRIGGERLEVEL > 1 
* stergerea are loc in tabela FACTURI ca urmare a stergerii 
” ultimei linii (pt. aceasta factura) din tabela LINIIFACT 


ELSE 
* se cauta in indexul (tag-ul) copil daca exista o integistrare 
* care sa corespunda inegistrarii curente din parinte 
IF INDEXSEEK(valoare_cheieparinte_, .F., copil_, tagcopil_) 
DO CASE 
CASE TYPE(cheieparinte_) = 'C' 
sir_valoare_cheieparinte_ 
CASE TYPE(cheieparinte_) = 'N' 
sir_valoare_cheieparinte_ = ALLT(STR(valoare_cheieparinte_)) 
ENDCASE 
MESSAGEBOX(Nu puteti sterge aceasta linia din "+vParinti(i)+chr(13)+ ; 
"in care cheia de indexare este '+sir_valoare_cheieparinte_+chr(13)+ ; 
'deoarece exista linii copi! in '+vCopii(i)) 
SET DELETE &set_deleted_ 
RETURN.F. 
ENDIF 
ENDIF 
Curent_=i+1 
i = ASCAN(VParinti, tabela_, curent_) 
ENDDO 


= valoare_cheieparinte_ 
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** numai pentru LINIIFACT 
IF tabela_ = 'LINIIFACT" 


LOCAL cite_, nrfact_, linie 
DIME cite_(1,1), linie_(1,1) 
cite_= 0 

linie_= Q 

nrfact_ = liniifact.nrfact 


* se interzice stergerea altei linii decit ultima 
SELECT MAX(Linie) ; 

INTO ARRAY linie_ ; 

FROM LINIIFACT ; 

WHERE NrFact = nrfact_ AND IDELETED() 


SELECT liniifact 

IF linie_(1,1) 4 liniifact linie 
MESSAGEBOX('Nu puteti sterge decit ultima linie din factura !') 
SET DELETE &set_deleted_ 
RETURN F. 

ENDIF 


* se verifica daca mai ramine vreo linie in factura 
SELECT COUNT() ; 

INTO ARRAY cite_ ; 

FROM LINIIFACT ; 

WHERE NrFact = nrfact_ AND !DELETED() 


IF cite _(1,1)=1 
MESSAGEBOX('Aceasta a fost ultima linie din factura !) 
IF SEEK(nrfact_, 'facturi', 'nrfact”) 
SELECT facturi 
REPLACE ValTotala WITH O 
DELETE 
ENDIF 
ELSE 
* se actualizeaza FACTURI.VaiTotala 
UPDATE facturi SET valtotala = vaitotala - liniifact.vaicutva ; 
WHERE nrfact = liniifact.nrfact 
ENDIF 
SELECT liniifact 
ENDIF 
trg_del_&tabela_ = f. 
SET DELETE &set_deleted_ 
RETURN. .T. 
ENDPROC 


La început se verifică dacă variabilele ce conţin informaţii despre relaţiile dintre tabele 
au fost inițializate, scop pentru care se foloseşte funcţia TYPE (). La primul apel al vreunui 
declanşator se execută procedura setup prezentată anterior. 

În continuare, se scanează vectorul vParinti, identificându-se toate restricţiile 
referențiale în care tabela din care se şterge înregistrarea este părinte. Pentru fiecare situaţie, 
se caută dacă în tabela-copil există măcar o linie ce prezintă valoarea cheii străine identică 
cu cea a înregistrării de şters, caz în care se afişează un mesaj lămuritor și se returnează 
valoarea FALSE (.F.), ştergerea fiind deci interzisă. Căutarea este rapidă, deoarece se 
foloseşte funcția INDEXSEEK () fără a se modifica pointerul tabelei-copil. 
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ia (a generală se introduce partea specifică declanșatorului de ştergere al 
t » precedată de IF-ul prin care secvența respectivă este ex a i 
e li pectivă este executată numai 


i Listingul 6.26 conţine corpul declanşatorului de inserare, în care se verifică dacă tabel 
în care se adaugă noua înregistrare apare drept copil în restricţii referenţiale. În caz că d: : 
verifică dacă există o linie-părinte — se foloseşte din nou funcţia INDEXSEEK () sau = 
testează mai întâi dacă valoarea cheii străine este egală cu valoarea de pe linia cure i 
tabelei-părinte. Ultima situaţie este destul de obişnuită pentru, de exemplu tabelele 
FACTURI şi LINIIFACT, în care după adăugarea unei înregistrări în părinte ia) 
adăugarea înregistrărilor-copil şi, în funcţie de modul de adăugare (APPEND BLANK sau 
INSERT INTO...) şi. de tipul buffering-ului ales, înregistrarea din părinte nu a f 

„COMISă” (scrisă efectiv din buffer). i 


Listing 6.26. Declanşatorul general de inserare 
' declansator general pentru inserare D 


parameter tabela__ 
T i, copil, tagcopil_, nrindexcopil_, cheiecopil_, valoare _cheiecopil_,; 
abela_, curent, parinte_, tagparinte_, nrindexparinte_, ; că 


cheieparinte_, vaioare_cheieparinte_, Sir_vaioare_cheiecopil 


tabela_ = allt(upperitabela__)) 

IF TYPE('vTabele”) = "U" OR TYPE(vRelatii) = *U” 
do setup 

ENDIF 


trg_ins_&tabela_ =4 


set _deleted_ = SET('DELETE: 
SET DELETE ON 


we 


Cautam daca tabela curenta este una copil 
local curent_ 
Curent_= 1 


i = ASCAN(vCopii, tabela_, curent_) 


DO WHILE i > 0 
* s-a gasit o (noua) tabela-pari i 
sa a ALL parinte pentru acest copil 
tagcopil_ = ALLT(vTaguriCopilţi)) 
nrindexcopil_ = TAGNO(tagcopil_, vCopii(i), vCopii(i)) 
cheiecopil_ = KEY (nrindexcopil_„vCopiiţi)) 
valoare_cheiecopil_ = EVALUATE (copil_+"."+cheiecopil_) 


parinte_ = ALLT(VParinti(!)) 

tagparinte_ = ALLT(vTaguriParinteți)) 

nrindexparinte_ = TAGNOL(tagparinte_, vParinti(i), vParintiţi)) 
cheieparinte_ = KEY (nrindexparinte_„vParinti(i)) 
valoare_cheieparinte_ = EVALUATE (parinte_+"."+cheieparinte_) 


DO CASE 
CASE TYPE(cheiecopii_) = 'C' 


Sir. valoare_cheiecopil_ = valoare cheiecopii 
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CASE TYPE(cheiecopil } = 'N' 


sir_valoare_cheiecopil_ = ALLT(STR(valoare_cheiecopil_)) 
ENDCASE 


* se cauta in indexul (tag-ul) parinte daca exista o integistrare 
* care sa corespunda inegistrarii curente din parinte 
IF valoare_cheiecopil_ 4 valoare_cheieparinte_ AND : 
IINDEXSEEK(valoare_cheiecopil_, .F., parinte, tagparinte_) 
MESSAGEBOX(Noua valoare a “+cheiecopil_+' -'+Sir_valoare_cheiecopil_+; 
'- din tabela '+vCopii(i)+chr(13)+ ; 
"nu se regaseste in tabela parinte '+vParinti(i)) 
SET DELETE &set_deleted_ 
RETURN .F. 
ENDIF 
curent_=i+1 
i = ASCAN(vCopii, tabela_, curent_) 
ENDDO 


*** in tabela FACTURI se interzice o valoare diferita de zero a atributului ValTotala 
IF tabela_ = 'FACTURI' : 
IF facturi.valtotala 4 O 
MESSAGEBOX('O factura noua nu poate avea decit valoarea zero'+; 
CHR(13)+'(este calculata automat ulterior)') 
SET DELETE &set_deleted_ 
RETURN.F. 
ENDIF 
ENDIF 


IF tabela_ = 'LINIIFACT" 


* se verifica daca linia inserata respecta secventa 
LOCAL nrfact_, vi_ 
DIME v1_(1,1) 
vi_=0 
nrfact_ = liniifact.nrfact 
SELECT MAX(linie) FROM LINIIFACT INTO ARRAY vi_ WHERE nrfact = nrfact_ ; 
AND !DELETED() 
IF liniifact linie > v1_(1,1) + 1 
MESSAGEBOX(Numarul de linie din factura nu respecta ordinea r) 
SET DELETE &set_deleted_ 
RETURN F. 
ENDIF ` 


* se actualizeaza FACTURI.VaiTotala 
UPDATE facturi SET valtotala = valtotala + liniifact.valcutva ; 
WHERE nrfact = liniifact.nrfact 
ENDIF 


trg_ins_&tabela_ = „f. 

SET DELETE &set_deleted_ 
RETURN .T. 

ENDPROC 


După cum observăm în listingul de mai sus, după secvența generală apar secvențele 
specifice tabelelor FACTURI şi LINIIFACT prin care se interzice modificarea directă a 
atributului FACTURI. ValTotala, respectiv se incrementează FACTURI .ValTotală 
cu valoarea LINIIFACT. Val CuTVA de pe noua linie inserată. 
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In fine, ultimul dintre cele trei declanşatoare, cel de actualizare, este şi cel mai dificil, 
deoarece, pe de o parte, trebuie să trateze ambele eventuale speţe ale tabelei — cea de copil 
şi cea de părinte — în restricţiile referenţiale în care este implicată şi, în al doilea rând, 
pentru tabelele-părinte, să propage în cascadă modificările cheilor primare în toate tabelele- 
-copil corespondente — vezi listingul 6.27. 


Listing 6.27. Declanşatorul general de modificare 


PROCEDURE trg_upd 

parameter tabela__ 

LOCAL i, copil, tagcopil_, nrindexcopil_, cheiecopil_, valoare_veche_cheiecopil_,; 
valoare_noua_cheiecopil_, tabela_, curent_, parinte_, tagparinte_, nrindexparinte ii 
cheieparinte_, valoare_cheieparinte_, valoare_veche_cheieparinte_, ; 
valoare_noua_cheieparinte_, sir_valoare_cheiecopil_ 


tabela_ = allt(upper(tabela__)) 

IF TYPE(VTabele”) = "U" OR TYPE('vRelatii) = “U” 
do setup 

ENDIF 

trg_upd_&tabeia_= 1. 


set_deleted_= SET(DELETE") 
SET DELETE ON 

""* cautam daca tabela curenta este una copil 
local curent_ i 
Curent_= 

i= ASCAN(Copii, tabela_, curent_) 


DO WHILE i> 0 


* s-a gasit o (noua) tabela-parinte pentru acest copil 

Copil_ = ALLȚ(vCopii(i)) 

tagcopil_ = ALLT(vTaguriCopilţi)) 

nrindexcopil_ = TAGNOitagcopil_, vCopiiţi), vCopiiţi)) 
cheiecopil_ = KEY (nrindexcopil_,vCopiiţi)) 
valoare_veche_cheiecopil_ = OLDVAL(cheiecopil_, copil_) 
valoare_noua_cheiecopi!__ = EVALUATE (copil_+"."+cheiecopil_) 


IF valoare_veche_cheiecopil_ # valoare_noua_cheiecopil_ AND _TRIGGERLEVEL <= 1 
parinte_ = ALLT(vParinti(])) 
tagparinte_ = ALLT(vTaguriParinte(i)) 
nrindexparinte_ = TAGNOL(tagparinte_, vParinti(i), vParintiţi)) 
cheieparinte_ = KE Y(nrindexparinte_,vParinti(i)) 
valoare_cheieparinte_ = EVALUATE (parinte_+"."+cheieparinte_) 


DO CASE 
CASE TYPE(cheiecopil_) ='C' 
Sir. valoare_cheiecopil_ = valoare_noua_cheiecopil_ 
CASE TYPE(cheiecopil_) = 'N' 
sir_valoare_cheiecopil, = ALLT(STR(valoare_noua_cheiecopil_)) 
ENDCASE i 


a E II II II 
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* se cauta in indexul (tag-ul) parinte daca exista o integistrare 
* care sa corespunda inegistrarii curente din parinte 
IF valoare_noua_cheiecopil_ # valoare_cheieparinte_ AND ; 
INDEXSEEK(valoare_noua_cheiecopii_, .F., parinte_, tagparinte_) 
MESSAGEBOX(Noua valoare a '+cheiecopil_+' -+sir_valoare_cheiecopil_+; 
' din tabela '+vCopii(i)+chr(13)+ ; 
' nu se regaseste in tabela parinte '+vParinti(i)) 
SET DELETE &set_deleted_ 
RETURN F. 
ENDIF 
ENDIF 
curenti_=i+1 
i = ASCAN(vCopii, tabela_, curent_) 
ENDDO 


** daca tabela curenta este una parinte si se modifica cheia primara 
** trebuie propagata modificarea in toti copiii 

curent_= 1 

i = ASCAN(vParinti, tabela_, curent_) 


DO WHILE i> 0 


* s-a gasit o (noua) tabela copi! pentru acest parinte 

parinte_ = ALLT(vParinti()) 

tagparinte_ = ALLT(vTaguriParinte(i)) 

nrindexparinte_ = TAGNO(tagparinte_, vParinti(i), vParinti(i)) 
cheieparinte_ = KEY(nrindexparinte_,vParinti(i)) š 
valoare_veche_cheieparinte_ = OLDVAL(cheieparinte_, parinte_) 
valoare_noua_cheieparinte_ = EVALUATE (parinte_+"."+cheieparinte_) 


* daca s-a modificat atributul-cheie, atunci actualizarea 

* se propaga in tabela copil 

IF valoare_veche_cheieparinte_ # valoare_noua_cheieparinte_ 
copil_ = ALLT(vCopii(i)) 
tagcopil_ = ALLT(vTaguriCopii(i)) 
nrindexcopil_ = TAGNO(tagcopil_, vCopii(i), vCopii(i)) 
cheiecopil_ = KEY(nrindexcopil_„vCopii(i)) 
valoare_veche_cheiecopil_ = OLDVAL(cheiecopil_, copil.) 
vaioare_noua_cheiecopil_ = EVALUATE (copil_+"."+cheiecopil_) 


UPDATE &copil_ ; 
SET &tagcopil_ = vaioare_noua_cheieparinte_ ; 
WHERE &tagcopil_ = valoare_veche_cheiecopii_ 


ENDIF 

curent_=i+1 

i = ASCAN(VParinti, tabeia_, curent) 
ENDDO 


* daca tabela e FACTURI 
IF tabela_ = 'FACTURI 
*** se interzice modificarea interactiva a atributului ValTotala 
valtotala_NEW = facturi.valtotala 
valtotala_OLD = OLDVAL('valtotala', 'facturi”) 
IF valtotala_NEW 4 valtotala_OLD 


IF _TRIGGERLEVEL <= 1 
MESSAGEBOX(Nu puteti modifica interactiv valoarea totala a facturii !') 


SET DELETE &set_deieted 
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RETURN F. 
ENDIF 


ENDIF 
ENDIF 


IF abea = "LINIIFACT' 

CAL nrfact_OLD, nrfact_NEW, codpr OLD, cod ; 

vaicutva_OLD, valcutva NEW is ăi stil 
nrfact_OLD = OLDVAL(nrfact,, 'liniifact') 
nrfact_NEW = liniifact.nrfact 
valcutva_OLD = OLDVAL ('valcutvai, “iniifact') 
sata NEM = liniifactvalcutva 
i Daca s-a schimbat numarul facturii, linia trebui 
sai Mau e pe al UIAA ule scoasa de la fosta factura 
IE nrfact_NEW # nrfact OLD AND _TRIGGERLEVEL <= 1 

pa anie valoarea de la factura “veche” 

facturi SET valtotala = valtotala - valcutva_OLD; 
„__WHERE nrfact = nrfact OLD pei 
se aduna valoarea de la factura “noua” 
UPDATE facturi SET valtotala = valtoiala + valcutva_NEW ; 
WHERE nrfact = nrfact_NEW ui ăi 

ELSE ** nu s-a modificat NrFact 

IF Vi ulei OLD # valcutva_NEW 

PDATE facturi SET valtotala = valtotala valcutva 
- OLD : 
enpi WHERE nnaet=  nrtaet_OLD Se MSN NBA 


ENDIF 
ENDIF trg_upd_&tabela_ = .f, 
SET DELETE &set_delsted 
ENDPROC ” 


gt RNC NI, ANII o] 


> În final sunt incluse elemente specifice modificării tabelelor FACTURI şi LINIIFACT 
oate procedurile stocate (listingul 6.28), în noua variantă, pot fi descărcate de la adr l 
http:/Awww.es.uaic.ro/infoec/books, sii 
Nu trebuie uitat ca şi numele declan i 
şatoarelor să fie schimbat, pri 
bazei de date fiind modificată ca în listingu! 6.29. iai aia 


Listing 6.29. Re-declararea declanşatoareior pentru tabelele bazei 


PUBLIC vTabele 
DIME vTabele(1,1) 
ADBOBJECTS(vTabele, "TABLE”) 
FORi=1T0 ALEN(vTabele) 
tab_ = vTabele(i) 
trigger_ = “trg_del_"+alit(tab_)+"()” 
CREATE TRIGGER ON âtab_ FOR DELETE AS &trigger, 
trigger_ = “trg_upd_"+allt(tab_)+"0p E 
CREATE TRIGGER ON &tab_ FOR UPDATE AS &trigger 
Kigger = “trg_ins_"+allt(tab_)+"(” J 
EN E TRIGGER ON &tab_ FOR INSERT AS &trigger_ 


La 


Şi acest listing (integral) este disponibil la aceeași adresă web. 
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6.8. Optimizarea procedurilor stocate pentru aplicații 
ce rulează pe un singur calculator (locale) 


La prezentarea funcțiilor stocate ce calculează valorile implicite ale unor atribute trebuie 
precizat că acestea pot afecta serios viteza aplicaţiei. Probabil că, din acest punct de vedere, 
„ucigaşul” numărul | este procedura def _ codpr liniifact din listingul 6.7. La 
dimensiuni mari ale tabelei LINIIFACT, este aproape sigur că această procedură va capota, 
dat fiind că la fiecare inserare în tabelă se calculează (prin grupare) cel mai frecvent produs, 
ceea ce e de-a dreptul hilar. Dacă procedura n-ar fi fost scrisă de noi, am fi avut cuvinte şi 
mai grele... i | i 

Majoritatea situaţiilor în care valorile implicite sau regulile de validare complexe (ce 
reclamă interogări costisitoare) sunt absolut necesare pot fi rezolvate prin optimizări care 
presupun, în general, folosirea variabilelor de memorie sau prin denormalizarea bazei de 
date. | 

Atunci când aplicația este monoutilizator, se poate insista pe folosirea variabilelor de 
memorie, De exemplu, la deschiderea aplicaţiei se pot executa o serie de interogări prin 
care, în variabile publice, se stochează ultimul cod de client, ultimul număr de factură etc. 
Mai mult, se pot modifica funcţiile ce returnează valorile implicite ale atributelor 
respective. În listingul 6.30 este „expusă” a doua variantă a procedurii stocate ce întoarce 
codul unui nou client. 


Listing 6.30. Varianta optimizată (stand-alone) a det_codcl clienti 


PROCEDURE def_codcl clienti 

LOCAL vi 

DIME v1(1,1) 

v1=0 : 

IF TYPE('codci_max_)='U' 
SELECT MAX(CodCl) INTO ARRAY v1 FROM clienti 
PUBLIC codcl_max_ 


IF v1(1,1)=0 
codcl_max_ = 1000 
ELSE 
codel_max_ = v1(1,1) 
ENDIF 
ENDIF 


codcl_max_ = codel_max_+ 1 
RETURN codci_max_ 
ENDPROC 


Marele avantaj al acestei noi versiuni este că fraza SELECT ce parcurge întreaga tabelă 
CLIENTI se execută o singură dată pe sesiune, indiferent de câte înregistrări sunt adăugate. 
Analog se modifică în tabela FACTURI procedurile stocate pentru calculul valorilor 
implicite ale atributelor NrFact, CoaC] și Gestiune, ca în listingul 6.31. De remarcat 
că ultima funcție-valoare implicită trebuie declarată printr-o comandă ALTER TABLE: 
ALTER TABLE facturi ALTER COLUMN gestiune SET DEFAULT 
def_gestiune facturi () 
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Listing 6.31. Funcțiile stocate ce calculează valorile implicite pentru atributele NrFact, 
CodCl şi Gestiune în tabela FACTURI 


TBE IE SE FEE E HE E E E A a e RE IE E e E aa IRON R WE A E 


PROCEDURE def_nrfact_facturi 
LOCAL v4 
DIME v1(1,1) 
vi=0 
IF TYPE(nrfact_max_') = 'U' 
SELECT MAX(NrFact) INTO ARRAY v1 FROM facturi 
PUBLIC nrfact_max_ 
IF v1(1,1)=0 
nrfact_max_ = 1110 
ELSE 
nrfact_max_ = v1(1,1) 
ENDIF 
ENDIF 
nrfact_max_ = nrfact_max_ + 1 
RETURN nrfact_max_ 
ENDPROC 


NERA RER ERE RAR RR RR RI IRA BEK AE AE E E E E E k E ERE AE BEE AEE ESEE RE AE tea 


PROCEDURE def_codcl_facturi 
LOCAL vi 

DIME v1(1,1) 

v1=0 

IF TYPE('cel_mai_codcl_') = 'U' 


SELECT TOP 1 CodCI, COUNT(*) AS nr; 
FROM FACTURI INTO ARRAY v1 ; 
GROUP BY CodCl ORDER BY nr DESC 
PUBLIC cel_mai_codel_ 


IF v1(1,4)=0 
IF 'USED('clienti”) 
USE clienti IN O 
ENDIF 
SELECT clienti 
IF RECCOUNT() = 0 
MESSAGEBOX('Nu puteti introduce o factura cita vreme nu aveti nici un client !') 


RETURN .F. 
ELSE 
IF EOF() OR BOF() 
GO TOP 
ENDIF 
ENDIF - 
SELECT facturi 
cel_mai_codci_ = clienti.codei 
ELSE 
cei_mai_codcl_ = v1(1,1) 
ENDIF 
ENDIF 


RETURN cel_mai_codel_ 
ENDPROC 
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PROCEDURE def_gestiune_facturi 

LOCAL vi 

DIME v1(1,1) 

vi= 

IF TYPE('cea_mai_gestiune_') = 'U' 
SELECT TOP 1 Gestiune, COUNT(*) AS nr; 
FROM FACTURI INTO ARRAY v1 ; 
GROUP BY Gestiune ORDER BY nr DESC 
„UBLIC cea_mai_gestiune_ 


IFvi(1,1)=' 
IF 'USED('gestiuni”) 
USE gestiuni IN O 
ENDIF 
SELECT gestiuni 
IF RECCOUNT( = 0 
MESSAGEBOX(Nu puteti introduce o factura cita vreme nu e introdusa ; 
nici o gestiune !) 
RETURN F. 
ELSE 
IF EOF() OR BOF(Q) 
GO TOP 
ENDIF 
ENDIF 
SELECT facturi 
cea_mai_gestiune_ = gestiuni.gestiune 
ELSE 
cea_mai_gestiune_ = v1(1,1) 
ENDIF 
ENDIF 


RETURN cea_mai_gestiune_ 
ENDPROC 


IE AE IE E E SE I IE E e E E e WE n E AE A e n me e e e e k ere ea 


Câştigul de productivitate este foarte important la dimensiuni mari ale tabelei. Însă 
punctul nevralgic al bazei rămâne tabela LINIIFACT, mai precis, regulile de validare ale 
acesteia, care blochează efectiv aplicaţia atunci când numărul înregistrărilor este de ordinul 
milioanelor, Funcţia de calcul al valorii implicite a atributului NrFact poate fi modificată 
după calapodul de mai sus — vezi listingul 6.32. 


Listing 6.32. Funcţia stocată (modificată) ce calculează valorile implicite ale 
LINIIFACT.NrFact 


RR RARA RER RPR PEPI RR Ra eee 


PROCEDURE def, nrfact_liniifact 

LOCAL vi 

DIME v1(1,1) 

vi =0 

IF TYPE(nrfact_max_) = 'U' 
* daca variabila publica nu a fost initializata - se 
* determina factura curenta sau factura cea mai recenta 
IF IUSED('facturi') OR EOF(facturi'”) OR BOF('facturi') 


SELECT MAX(NrFact) INTO ARRAY v1 FROM facturi 
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PUBLIC nrfact max 
IF v1(1,1)=0 
MESSAGEBOX(Nu exista nici o factura 19) 
RETURN .F. 
ELSE 
nrfact_max_ = v1(1,4) 
ENDIF 
ELSE 
* FACTURI este deschisa. se preia valoarea curenta 
nrfact_max_ = facturi.nrfact 
ENDIF 
ELSE 
* se verifica daca nu s-a trecut la o alta factura 
IF IUSED{'facturi') i 
USE facturi IN O 
ENDI 
IF facturi. nrfact 4 nrfact_max_ 
nifact_max_ = facturi.nrfact 
ENDIF 
ENDIF 
RETURN nrfact_max_ 
ENDPROC 


În noua versiune a funcţiei care întoarce valoarea implicită a atributului 
LINIIFACT. Linie -— listingul 6.33 —, variabila publică include în numele său şi 
numărul facturii. După o primă inserare a unei linii în tabela LINIIFACT, se iniţializează 
variabila publică cu numele linie_max_nrfactura. Pentru sesiunea respectivă 
următoarele inserări de noi linii pentru această factură vor folosi numai această variabilă e 
care o vor incrementa de fiecare dată în declanşatorul de inserare. k 


Listing 6.33. Funcţia stocată (modificată) ce calculează valorile implicite ale 
LINIIFACT, Linie i 


PEEL PRR RR PRR AREA ARAL 


PROCEDURE def_linie_liniifact 
LOCAL v1_, nrfact_, cNrFact 
DIME v1_(1,1) i 
vi =o 
nrfact_ = liniifact.nrfact 
cNrFact_ = ALLT(STR(nrfact_)) 
nume_ = 'linie_max_'+cNrFact 
IF TYPE((nume_)) = 'U' i 
aja a publica nu a fost initializata 
PUBLIc (ine) INTO ARRAY v1_ FROM iiniifact WHERE nrfact = nffact_ AND IDELETED() 
&nume_ = v1_(1,1)+1 
ENDIF 
RETURN &nume_ 


e E E E E EE, 


Se poate pune problema: ce se întâmplă atunci când o linie este ştearsă? Variabila 
trebuie decrementată prin declanșatorul de ştergere al tabelei LINIFACT. Din păcate, la 
următoarea adăugare de înregistrare, dacă hu s-a lansat între timp comanda PACK cheia 
primară a tabelei va fi violată. Putem stabili, ca regulă de lucru, că, o dată ştearsă, A linie 
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trebuie fie eliminată fizic (prin PACK), fie modificată şi apoi recuperată (anulat marcajul de 
ştergere) — lucrul posibil în cadrul formularelor. 

lată că am ajuns la cea mai problematică dintre funcţiile care întorc valori implicite — 
def_coapr liniifact (). Am testat funcţia pentru un număr de peste cinci milioane 
de înregistrări în tabela LINIIFACT şi blocajul a fost garantat, Mai întâi, va trebui să 
renunțăm la luxul de a ordona produsele după frecventa apariţiei lor în facturi, mulţu- 
mindu-ne ca valoarea CoaPr să nu violeze unicitatea combinației (NrFact, CodPr). 

Ideea ar fi ca, în cadrul unei sesiuni, la primul apel a] funcției def_codpr_linii- 
fact să se iniţializeze un vector ce conține maximum 20 de produse care ar putea să apară 
pe factura respectivă fără a încălca restricția de unicitate. Orice adăugare ulterioară ar putea 
să „recolteze” o valoare din acest vector. Pentru o bună funcționare, este necesar să 
modificăm şi declanşatoarele tabelei LINIIFACT. 

Listingul 6.34 conţine noua formă a def_codpr_linii fact. La prima inserare, din 
sesiunea curentă, a unei linii într-o factură se preiau în vector maximum 20 de valori ale 
CodPr , coduri ce nu sunt încă prezente în factura respectivă. Când factura este una nouă, 
vectorul conține tocmai codurile primelor 20 de produse. Dacă în factură au fost deja 
preluate o serie de înregistrări în sesiuni anterioare, atunci vectorul se completează cu 
produse care nu fac parte din factură. | 


Listing 6.34. Funcţia stocată (modificată) ce calculează valorile implicite ale 
LINIIFACT . CodPr 


De dee e re e ee e e e de e de e RE e e e e ete e dee 


PROCEDURE def_codpr_liniifact 
LOCAL v1_, nrfact_, cNrFact_, nume_, nr_, nume1_ 
DIME v1_(1) 
vi_=0 
nrfact_ = liniifact.nrfact 
CNrFact_ = ALLT(STR(nrfact_)) 
nume_ = 'vProduse_'+cNrPact_ 
numet_ = nume_+'(1) 
IF TYPE((nume_)) = 'U' OR LEN((nume_)) = 0 OR TYPE((nume1_)) #'N' 
* variabila publica nu a fost initializata 
SELECT TOP 20 CodPr INTO ARRAY v1_ FROM PRODUSE WHERE CodPr NOT IN 3 
(SELECT CodPr FROM LINIIFACT WHERE nrfact = nrfact_ AND !IDELETED() ) ORDER BY 
CodPr 


IF _TALLY =0 
MESSAGEBOX(Nu se mai pot introduce produse pe aceasta factura n 
RETURN. .F. 

ENDIF 


nr_ = MIN(20, ALEN(v1_)) 
PUBLIC ARRAY &nume_ (nr_) 
= ACOPY (v1_, (nume_), î,nr_) 


ENDIF 
RETURN &nume_ (1) 


ENDPROC 


Mai rămân de modificat declanșatoarele tabelei LINIIFACT, astfel: 
e  încelde inserare — se elimină din vector codul produsului tocmai inserat: 
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e  încelde ştergere — se adaugă în vector codul produsului şters; 
e în cel de modificare — se şterge codul produsului nou şi se adaugă codul produsului 


vechi. 
Toate aceste modificări sunt prezentate în listingul 6.35. 


Listing 6.35. Modificări apărute în corpul declanşatoarelor 


* 


* declansator general pentru inserare - modificat 
. 


PROCEDURE trg_ins 


IF tabela_ = 'LINUFACT! 


* se verifica daca linia inserata respecta secventa 
LOCAL nrfact_, vi_ 

DIME v1_(1,1) 

vi_=0 


nrfact_ = liniifact.nrfact 
SELECT MAX(linie) FROM LINIIFACT INTO ARRAY vi_ WHERE nrfact = nrfact: 
AND !DELETED() S 
IF tniifact.linie > vi_(1,1)+1 
MESSAGEBOX('Numarul de linie din factura nu respecta ordinea !!) 
SET DELETE &set_deleted_ 
RETURN F. 
ENDIF 


* se actualizeaza FACTURI. VaiTotala 
UPDATE facturi SET valtotala = valtotala + tiniifact vaicutva ; 
WHERE nrfact = liniifact nrfact 


* se elimina din vectorul vProduse_ânriact codul produsului tocmai inserat 

LOCAL cNrFact_, nume, nr_ 

nrfact_ = liniifact.nrfact 

CNrFact_ = ALLT(STR(nrfact_)) 

nume_ = 'vProduse_'+cNrFact_ 

IF TYPE((nume _)) &'u' 
* variabila publica a fost initializata 
ADEL((nume_), ASCAN ((nume ), liniifact.codpr)) 
nr_ = ALEN ((nume_), 0) 
DIME &nume_ ( MAX((nr_ - 1),1)) 

ENDIF 


* se incrementeaza variabila dedicată liniei 
nume_ = 'linie_max_'+cNrFact_ 
IF TYPE((nume _)) #'U' 
&nume_ = &nume_+ 1 
ENDIF 
ENDIF 


trg_ins_&tabela_ = f. 
SET DELETE &set_deleted_ 
RETURN .T. 


+ 
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* declansatorul (modificat) ptr. modificarea tabelelor 


e Dama am aaa a ama mean m 


PROCEDURE trg_upd 


IF tabeia_ = 'LINIIFACT! 


* nu se permite modificarea liniei ! 

IF liniifact.linie 4 OLDVAL(linie', 'liniifact') 
MESSAGEBOX(Numarul de linie din factura nu se poate modifica l’) 
SET DELETE &set_deleted_ 
RETURN .F. 

ENDIF 


* se elimina din vectorul vProduse_&nrfact codul produsului nou 


LOCAL cNrFact_, nume_, nr_, nume 
nrfact_ = liniifact.nrfact 
CNrFact_= ALLT(STR(nrfact_)) 
nume_ = 'vProduse_'+cNrFact_ 
IF TYPE((nume_)) 4'U' 
* variabila publica a fost initializata 
ADEL((nume_), ASCAN ((nume_, liniifact.codpr)) 
nr_ = ALEN ( (nume_), 0) 
DIME &nume_ ( MAX((nr_ - 1),1)) 


ENDIF 
* se adauga in vectorul vProduse_&nrfact codul produsului vechi 
nume1_ = nume_+'(1) 
IF TYPE((nume_)) 4'U' 

* variabila publica a fost initializata 

nr_= ALEN ((nume_), 9) 

IF nr_= 1 AND TYPE((nume1_)) 4 “N” 

nr_=0 

ENDIF 

DIME &nume_(nr_+1)) 

&nume_ (nr_+ 1 )= OLDVAL('codpr, 'liniifact’) 

ENDIF 

ENDIF 
trg_upd_&tabela_ = f. 
SET DELETE &set_deleted_ 
ENDPROC 


* declansatorul (modificat) ptr. stergere 


PROCEDURE trg_del 


** numai pentru LINIIFACT 
IF tabela_ = 'LINIIFACT' 
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* se decrementeaza variabila c inii 
cca E amaru de linii pentru aceasta factura 
nfact_ = liniifact.nrfact j ii 
CNrFact_ = ALLT(STR(nrfact )) 
hume_ = 'linie_max_'+cNrFact 
IF TYPE((nume DELT E 
nume_ = &nu - 
ENDIF bi 


* se re-adauga in vect 
LOCA pu orul vProduse_&nrfact codul produsului tocmai sters 
nume_ = 'vProduse_'+cNrFact 
nume1_ = nume_+(1): ` 
IF TYPE((nume_)) #'U' 
* variabila publica a fost initializat 
a 
He = ALEN ( (nume_), 0) 
n FAND TYPE((nume1_)) "N" 
ENDIF 
ZME &nume_(nr_+1 )) 
num = linii 
sp e_(nr_+1)z= liniifact.codpr 


ENDIF 

să del. &tabela =f 
DELETE &set_d 

RETURN T. _deleted_ 


ile p -0 p 1 descăre te de 
l i fi 
F rocedur stocate in această u timă versiune e€ care am discutat: o pot a 
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Capitolul 7 
Rapoarte în Visual FoxPro 


În general, un raport este perceput ca fiind o listă sau o structură de afișare (sau format 
de listare) a unor informaţii (înregistrări) provenind din tabelele bazei de date. 


7.1. Descrierea structurii unui raport 


În Visual FoxPro, rapoartele (obiectele Report din Project Manager) pot fi 


percepute ca având o structură duală: 

pe de o parte, structura de date, care poate consta din una sau mai multe tabele din 

baza de date, între care există eventual relații permanente; 

e pe de altă parte, structura de afişare (listare) care se referă la formatul efectiv al 
raportului sau, mai exact, la obiectele prin care se face legătura cu structura de date 
şi benzile (zonele) care compun raportul. 

Clasic, structura de date a unui raport este specificată prin mediul de date (data 


environment) asociat fiecărui raport (vezi figura 7.1). 


e 
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Figura 7.1. Structura de date a unui raport - Data Environment 


În Data Environment pot fi aduse tabele sau view-uri din baza de date. Trebuie 
precizat faptul că atunci când se dorește crearea unui raport mai complex, care implică date 
din mai multe tabele (deci, implicit, înregistrările din cele două tabele trebuie corelate), iar 
între cele două tabele este stabilită o relație permanentă, în Data Environment va fi 


moştenită şi respectiva relaţie. 
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71.1, Structura de date 


` n acest demers presupune în primul rând crearea obiectului de tip raport căruia fi 
Stade respectiva structură de date. În acest scop se poate apela fie la comanda 
E REPORT, fie se poate invoca din meniul File opţiunea New, din fereastra care 


se i „manuală”). Dacă se lucrează ordonat, adică integrând toate obiectele într-un 
proiect, se poate alege direct din cadrul de pagină Documents (sau Docs) nodul 


: la 3 E 


E? Labels 


Figura 7.2. Crearea unui obiect de tip raport din Project Manager 


În ac p i 

pie lu eva ea automat Report Designer, utilitarul cu care se 
PRAT a se creează în cele din urmă structura de date? Dacă din meniul principal al 
ei isual FoxPro se alege opțiunea View-—Data Environment, sau din meniul 
contextual (click-dreapta) al generatorului de rapoarte se alege apuna NA 
a E va deschide o fereastră specifică ce se va comporta ca un container 
n e bu ale raportului (tabele sau view-uri). Adăugarea unei tabele sau view 
uctura de date a raportului se poate face prin opțiunea Add.. ., care 
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Figura 7.3. Adăugarea tabelelor în Data Environment R 
lată câteva dintre principalele avantaje ale configurării structurii de date folosind Data 


Environment: l . 
T directă a tabelelor sau view-urilor din baza de date printre sursele de date 
incă 


ale raportului; | ua 
ac simplificată a tabelelor care însoțesc raportul (deschiderea şi închiderea lor 
> 


automată); | i i ea 
facilităţi avansate pentru utilizatori de a invoca cod în anumite evenimente 


metode ce însoțesc sursele de date sau containerul Data Environment (vezi 
figura 7.4). 


În? Properties- Report Designer- rapurt. struct 


codel 
denel 
codliscal 
adesa 

codpost 


i i Environment şi i de date 
Figura 7.4. Proprietăţile containerului Data Environment şi ale unei surse 
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Utilizatorii familiarizați cu aplicaţii mai complexe şi mai personalizate (ca să nu 
spunem „customizate”) își vor pune inevitabil problema modului în care se poate preciza o 
structură de date care derivă, spre exemplu, dintr-o interogare (multe tabele, multe join-uri 
multe filtre). Din acest punct de vedere, abordarea clasică descrisă mai sus are anumite 
limite. O soluţie ar fi construirea unui view neactualizabil care să reflecte respectiv: 
interogare. Dacă însă vom avea de-a face cu prea multe rapoarte de acest gen, vom ajunge 
la un moment dat să ne „încurcăm” în prea multe view-uri. Din experiența noastră, 
majoritatea dezvoltatorilor folosesc de regulă fraze SQL pentru a preciza sursa de date a 
unui raport. Unde și cum pot fi precizate asemenea fraze ? lată două variante: 

|. Construirea unei rutine simple (un program) în care să se precizeze: fraza 
SELECT- SQL plus comanda REPORT FORM, eventual precizând şi clauza 
PREVIEW, care trimite raportul mai întâi pe ecran înainte de a-] lista efectiv. În 
fraza SELECT se va specifica prin clauza INTO CURSOR numele unei tabele 
temporare ce va găzdui datele înainte de a fi afișate prin raport (vezi 
listingul 7.]). 


Listing 7.1. Rutina de listare a raportului Rep Clienti 


SELECT c.codei, c.denci, c.adresa, l.loc, j.judet, c.codpost, c.telefon; 
from clienti e inner join localitati | inner join judete j; 

on ljud = j.jud on c.codpost = l.codpost; 

INTO CURSOR c_clienti 

REPORT FORM Rep_Ciienti PREVIEW 


2. Folosirea evenimentului Init al containerului Data Environment asociat 
raportului (vezi figura 7.5). 


ma a i RE 


Obiect [ED atzi >. Pioceduie: [ina =]: 


SELECT e.codeli, c.denel, c.adresa, 1.loc, 3. dudet, c.codpost, c.teleton: a 
from clienti e inner join localitati 1 inner join judete 3: 
on ljud = 3.4ud on c.codpost = i.codpost; 

into cursor &_ clienti 


20) x 


all Rip 
e af 


Figura 7.5. Adăugarea frazei SELECT-SOL, care va forma sursa de date în 
evenimentul Init al containerului Data Environment 


În cazul în care nu se specifică în mod explicit (prin Data Envi ronment sau metoda 
Init) nici o sursă de date, raportul va încerca să-și preia datele de care are nevoie din 
tabela (sau tabela derivată) deschisă în zona curentă de lucru (vezi capitolul 3 pentru 
eventuale lămuriri). Bineînţeles, dacă zona curentă de lucru nu furnizează structura de date 
pe care este configurat raportul, vor apărea mesaje de eroare la previzualizare sau listare. 
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7.1.2. Structura de afişare 


Suprafața de afişare dintr-un rapori este structurată de către Report Designer în 
mai multe zone care se diferențiază între ele prin mai multe caracteristici, cum ar fi, de 
exemplu, nivelul de repetitivitate. Implicit, instrumentul Report Designer afişează 
rapoartele structurate în următoarele zone sau benzi: 

„e Page Header — în care vor fi afişate informaţii ce se vor regăsi în antetul fiecărei 
pagini; 

e Detail — în care vor fi afişate informaţii ce se vor regăsi pe fiecare linie a 

raportului şi care formează secțiunea principală a raportului; 

e Page Footer — în care vor fi afişate informaţii ce se vor regăsi în subsolul 

fiecărei pagini. 


În funcţie de complexitatea raportului, mai pot fi activate încă patru benzi (sau zone): 


e Title- în care se vor regăsi informaţii listate la începutul raportului o singură 
dată; de regulă, aici se afişează titlul raportului şi alte informaţii generale; 

> Summary — în care se vor regăsi informaţii listate la sfârșitul raportului o singură 
dată; de regulă, aici sunt afişate informaţii sintetizate ce rezumă întregul raport (de 
exemplu, totalurile generale). sau concluzii; i 

e Group Header — în care se vor regăsi informaţii ce trebuie afişate la începutul 
fiecărui grup de înregistrări. De exemplu, clienţii pot fi grupați în funcţie de judeţul 
în care îşi au sediul, astfel că includerea informațiilor despre judeţ în acestă secţiune 
va creşte claritatea raportului, acestea nefiind listate decât o Singură dată la 
începerea grupului de clienți al județului respectiv; 

e Group Footer — în care se vor regăsi informaţii sintetizate la nivelul fiecărui 
grup din raport. 
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Figura 7.6. Secţiunile unui raport Visual FoxPro 


Informaţiile dintr-un raport sunt precizate prin intermediul unor obiecte specifice. În 
acest scop se foloseşte bara de instrumente Report Controls, care de regulă se 
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activează o dată cu pornirea Report Designer-ului. Dacă această bară de instrumente 
nu este activată, atunci va trebui selectată opțiunea Report Control Toolbar din 


submeniul View. Controalele ce formează această bară de instrumente sunt prezentate în 
tabelul 7.1. 


Tabelul 7.1. Structura barei de instrumente Report Controls 


Controale 


Funcție 


Select Objects Permite selectarea unuia sau mai multor 


obiecte din benzile raportului 


Label Control 


abl Field Control 


Inserează blocuri de text 


Inserează în raport câmpuri care conțin 
expresii ce pot face trimitere la: 
— câmpuri din tabele; 
— variabile sistem (gen _Pageno); 
— variabile globale din aplicaţie; 
— funcții predefinite gen DATE () etc. 
— _ funcţii definite de utilizator 


Line Control Desenează o linie în raport 


Rectangle Desenează un dreptunghi 


Control 
Rounded Desenează o elipsă 
Rectangle 
G E Control 
TILEEI Picture/OLE inserează de regulă o imagine 
Bound Control 
îi = Button Lock Inserează în raport mai multe controale de 
“B acelaşi tip fără să fie necesară reselectarea 


butonului din bara de instrumente Report 
Controls 


Prin urmare, în raport sunt inserate trei categorii de obiecte: 
e blocuri text; 
e câmpuri care preiau de regulă informații din structura de date; 
è elemente grafice: linii, dreptunghiuri, imagini. 

Construirea unui raport cu aceste obiecte este ilustrată în figura 7.7. 
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Figura 7.7. Raport construit folosind controalele din bara Report Controls 


7.2. Definirea unui raport simplu 


În acest paragraf ne propunem să parcurgem mai pe îndelete paşii ce trebuie urmaţi 
pentru construirea unui raport, pentru început, simplu. Ca punct de pornire vom considera 
că rapoitul va trebui să satisfacă următoarea cerință esenţială: obţinerea listei clienţilor 
firmei. Procesul pe care îl vom parcurge în cele ce urmează poate fi structurat în șase paşi. 
Astfel: 

|. Este recomandabil ca mai întâi să fie desenată o schiță din care să reiasă 

caracteristicile esenţiale ale raportului: 
è titlul raportului va fi: „Lista clienţilor firmei la data” curentă; 
e raportul va fi structurat pe următoarele cinci coloane: codul fiscal al clientului, 
numele acestuia, adresa completă, codul poştal şi telefonul; 
e în antetul raportului trebuie să apară şi sigla firmei; 
ə dacă este structurat pe mai multe pagini, să fie indicat şi numărul paginii curente; 
e formatul paginii: A4. 
„Apoi se analizează structura de date a raportului, adică de unde provin datele? 

in cazul nostru, sarcina este destul de simplă; toate datele provin din tabela CLIENTI şi 

anume din câmpurile: codfiscal, dencl, adresa, cocpost, telefon, 


3. In cele din urmă trebuie să trecem la construirea obiectului de tip Report. 
Dacă obiectele aplicaţiei sunt organizate ordonat într-un proiect, atunci recomandabilă 
este selectarea nodului Reports din cadrul de pagină Documents al Project 
Kar.ager-ului şi apăsarea butonului New. După care, din fereastra de dialog apărută se va 
selecta butonul Kew Report. 
4. Pasul următor constă în specificarea surselor de date pentru raport. 


In acest sens, după cum s-a arătat mai înainte, există cel puţin două variante. Prima ar fi 
deschiderea  containerului Data Environment (opţiunea  View—Data 
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Environment) şi aducerea tabelei CLIENTI ca sursă de date (opțiunea Data 


EnvironmentAdd). A doua constă în folosi i 
: « olosirea unei fraze SEL -SQL 
obține sursa de date. a 


5. În această etapă vom stabili structura de afişare. 

Deocamdată nu ne vom complica „existenţa” şi vom proceda în felul următor: 

e titlul și sigla firmei le vom plasa în secțiunea Page Header, fiind Sc ian că 
aceste informaţii se vor repeta în antetul fiecărei pagini; tot aici vom include şi u 
cap de tabel prin care se va specifica numele fiecărei coloane din raport; că 

e coloanele raportului vor fi create prin plasarea unui obiect de tip tieid pentru 
fiecare câmp din tabela CLIENTI ce trebuie inclus în raport în secţiunea Detail: 

e în secţiunea Page Footer va fi inclus un obiect de tip câmp de raport (field) 
Care va conține o expresie prin care să se obțină numărul paginii curente. 

Mai întâi vom crea titlul raportului în felul următor: selectăm din bara de instrumente 
Report Controls butonul Label şi facem click cu mouse-ul în Page Header. în 
regiunea din care ar trebui să înceapă titlul. Va rezulta astfel un cursor de scriere i vom 
folosi tastatura pentru a introduce textul „Lista clienților firmei”, după cum SÈ ea î 
figura 7.8 (1). Dacă dorim anumite caracteristici specifice legate de fonturi selectăm aiul 
deja introdus şi apelăm la opțiunea FormatoFont... — vezi figura 7.8 (2). 
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E Cora Nem 
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B Dork Cowie [PELE] |; Bod 
1% Boamor 
TIR Garamond (POLE) 

T Georgi 
FE Haetonschweder vf 


p Eleegia + 
| T Stikeou : 
„TC Ledene 
Tiaa ; E EA 
i a O i Serot DESSA 

E TE X 


. This same ont w be used on both po 


Tisz îs an Open 
Pare ard poz sete 


Figura 7.8. Crearea titlului raportului 


Pentru a crea capul de tabel, vom introduce câte o etichetă pentru fiecare coloană în 


a ce N = pe, >. w a 
sa mod în care am procedat pentru titlul raportului. Vom trasa apoi un chenar (butonul 
ectangle din bara de instrumente a generatorului de rapoarte) — vezi figura 7.9. Dacă se 


doreşte un chenar cu marginile rotunjite, se foloseşte butonul Rounded Rectangle din 
bara de instrumente. iai 
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LISTA CLIENTILOR FIRMEI LA DATA 


Cod fiscal Nume client 


- a Page Haader 


a Page Footer. . 


Figura 7.9. Crearea capului de tabel 


Pentru reeditarea (modificarea) unei etichete se procedează în felul următor: mai întâi se 
va selecta butonul Label din Report Controls, după care se punctează, folosind 
cursorul mouse-ului, eticheta vizată, obținându-se astfel cursorul de scriere. 

În continuare vom crea obiectele de tip câmpuri de raport necesare pentru definirea 
coloanelor raportului sau pentru introducerea datei curente şi numărului de pagină. 
Procedura pe care va trebui să o urmăm este următoarea (vezi şi figura 7.10): se selectează 
din bara de instrumente Report Controls butonul Field (1), după care se desenează 
un dreptunghi de lungimea coloanei ce urmează a fi create în regiunea destinată acesteia 
(2). Se va deschide astfel fereastra Report Expression (3), iar în căsuţa de text în 
stânga căreia se găsește eticheta Expression se va preciza o expresie ce va furniza 
informaţia care va fi afişată în respectiva coloană. Dacă din pasul patru (definirea structurii 
de date) s-a ales a doua variantă, atunci pur şi simplu se va introduce aici numele câmpului 
vizat din tabela-sursă. Însă, dacă în pasul patru s-a optat pentru prima soluţie, se poate 
invoca instrumentul Expression Builder selectând butonul etichetat cu trei puncte de 
suspensie (,...”) din dreapta căsuței de text Expression (4). În fereastra 
Expression Builder există o listă cu câmpurile tabelei-sursă din Data 
Environment, de unde se poate selecta prin dublu-click câmpul dorit (5). Aceste 
operaţii sunt exemplificate în figura 7.10, şi se vor repeta pentru fiecare coloană a 
raportului. De asemenea, pentru data curentă se repetă aceeași procedură, cu deosebirea că 
în Expression Builder se va deschide lista combo-box-ului Date din regiunea 
Functions, unde se va căuta funcţia Date(), iar pentru pagina curentă, tot în 
Expression Builder, din lista Variables se va selecta variabila de sistem 
_Pegeno (vezi figura 7.11). 
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Figura 7.11. Localizarea funcţiei Date () şi a variabilei _Pageno 


Pentru a face mai inteligibilă informaţia, în câmpul din raport destinat numărului de 
pagină se poate preciza expresia “pagina”+allt (str ( pageno)). 

În fine, pentru ca raportul să aibă un aspect cât de cât mai profesionist, se aliniază toate 
obiectele cu atenţie, se adaugă o linie (butonul Line din bara de instrumente) sub 
câmpurile de raport corespunzătoare coloanelor raportului și se include un obiect de tip 
OLE pentru a include şi sigla dorită. Acest obiect de tip OLE va face legătura cu un fişier 
de tip . BMP, iar procedura de urmat se derulează astfel (vezi şi figura 7.12): se selectează 
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mai întâi butonul Picture/OLE Bound Control din bara de instrumente a 
generatorului de rapoarte (1), se desenează apoi un dreptunghi corespunzător în zona 
destinată siglei (2). Ca urmare, se va deschide fereastra Report Picture (3), unde, în 
căsuţa de text din cadrul Picture from, în stânga căreia se află butonul radio File, se 
precizează calea până la fişierul care conţine sigla, sau se selectează butonul etichetat cu 
trei puncte de suspensie din dreapta (3), care deschide o fereastră Open. În această 
fereastră se poate naviga până la fişierul care conține imaginea dorită (5). Această manevră 
este exemplificată în figura 7.12. 


Report Cabtrols i 


A] Alea] + malo fi ari! 
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Figura 7.12. Adăugarea unei imagini într-un raport 


6. În final, înainte de listarea propriu-zisă la imprimantă, vom previzualiza raportul 
__ pentru a verifica eventualele erori run-time şi așezarea efectivă în pagină. 
În acest ultim pas se mai pot aduce. ajustări privitoare la grafica raportului şi, de 
asemenea, se pot stabili câteva specificaţii privitoare la formatul de listare. 
Specificaţiile privitoare la formatul de listare se stabilesc prin opțiunea File->Page 
Setup... — vezi figura 7.13 (1). În fereastra Page Setup (2) se pot preciza: 
— numărul de coloane de listare, cadrul Columns, spinnerul Number; 
— lățimea unei coloane de listare, cadrul Columns, spinnerul Width; 
— eventual, distanța dintre coloanele de listare, cadrul Columns, spinnerul 
Spacing; 
— marginea din stânga a paginii, spinnerul Left Margin. 
Pentru stabilirea formatului (dimensiunii) şi a modului de orientare a paginii, din 
fereastra Page Setup se acţionează butonul Print Setup... (3), care va deschide 
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fereastra Print Setup. (4) — bineînțeles, dacă aveți deja instalată o imprimantă 
(exemplificare în figura 7.13). Dintre opţiunile existente în acestă fereastră se pot evidenția: 
— cadrul Paper, din care se poate stabili dimensiunea paginii (Letter, Ad BS 

A3 etc.) din lista combinată în stânga căreia se găseşte eticheta Si ze; 

~- cadrul Orientation cu cele două opțiuni Portrait (latura mică a hârtiei este 
latura de bază) și Landscape (latura mare a hârtiei este latura de bază). 


Ala) + 


al] 


zen 


wi OK - Cannei-: | 


Figura 7.13. Stabilirea formatului de listare la imprimantă 


dn cele din urmă, pentru previzualizarea raportului (dacă în pasul patru s-a ales prima 
variantă), fie vom căuta opțiunea Preview djn submeniul View sau Opțiunea Print 
Preview din submeniul File, fie vom acționa butonul Preview.. din Project 
Manager sau butonul Print Preview din bara de instrumente standard VEP. De regulă 
după apelarea opțiunii de previzualizare se deschide o fereastră specifică însoţită de bara de 
instrumente Print Preview (vezi figura 7.14). Înainte de previzualizarea efectivă, 


Sistemul va cere salvarea raportului. În urma acestei operațiuni vor rezulta două fişiere: 
unul cu extensia . fry şi altul cu extensia . frt, 
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= se AF Toolbar-ul Print a 
IButonul Print | a ae ag Butonul Print 


Fame car. 


Pagina următoare | 


Ultima pagină i 


| coansca Nume client Adresa Is sa 


R101 Client 1 SRL Trenzitiei, 13 bis 


RIOOL Client 2 SA 032-212121 


R1001 Cijent 3 SR Prosperitatii, 22. 038-222222 


R1001 Client € Sapientai, 56 


RI 961 Client $ SRL „HULL, 056-11111ł 


R1001 Client 6 SA Pacientes, 33 NILL. 


Piol Client ? SRL Victoria Capitalisaului, 2 056-121212 


Figura 7.14. Fereastra de previzualizare 


Dacă în pasul patru s-a optat pentru a doua variantă, formarea structurii de date va 
consta în deschiderea, înainte de previzualizare, a tabelei CLIENTI la care fac referire 
câmpurile raportului. În acest scop se poate scrie un program scurt de genul celui prezentat 
în listingul 7.2. 


Listing 7.2. Programul de listare a raportului Rep Clienti _ Simplu 


IF !USED('clienti”) 
USE clienti IN O 

ENDIF 

SELECT clienti 

REPORT FORM rep_clienti_ simplu PREVIEW 


Sintaxa comenzii REPORT FORM este următoarea: 


REPORT FORM nume raport 
[Domeniu] [FOR expresie logicăl) [WHILE expresie logică2] 
[PREVIEW] [TO PRINTER] 


Clauza PREVIEW se referă la previzualizarea raportului, iar clauza TO PRINTER se 
referă la listarea acestuia direct la imprimantă, Se observă că liniile care vor fi afişate pot fi 
filtrate direct din comanda REPORT FORM prin clauza FOR. 
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7.3. Rapoarte complexe 


Am văzut mai înainte paşii care trebuie urmați pentru construirea unui raport „simpluț”. 
Cum în practică rapoartele simple sunt destul de rare, vom încerca să exemplificăm în 
continuare cum se poate construi un raport ce necesită câteva facilități mai avansate. 

Presupunem că am primit o cerere pentru definirea unui raport despre situația curentă a 
facturilor. Făcând schița inițială împreună cu beneficiarul raportului, deducem că: 

e facturile trebuie grupate pe fiecare client; 

e din raport trebuie să rezulte totalul vânzărilor pe fiecare client şi pe fiecare 

localitate; 

e de asemenea, raportul trebuie să includă şi informaţia cu privire la restantele la 

plată ale fiecărui client; 

e paginile să fie numerotate, iar titlul raportului să apară doar pe prima pagină. 

Structura de date se complică în special datorită informației cu privire la restantele de 
plată. Dar să abordăm problema gradual: i 

° informațiile despre facturi implică tabelele FACTURI, LINIIFACT şi PRODUSE; 

e informațiile despre furnizor implică tabelele CLIENTI, LOCALITATI şi JUDETE; 

e pentru a deduce restanțele fiecărui client vom avea în vedere tabelele 

INCASFACT, FACTURI, CLIENT]. 

La baza raportului, pentru a simplifica într-o anumită măsură lucrurile, vom pune o 
tabelă temporară (cursor) obținută în urma mai multor interogări. Astfel, pentru a obţine 
facturile şi informaţiile despre clienţi, vom efectua o interogare care va face join-urile 
tabelelor CLIENTI, LOCALITATI şi JUDETE pe de o parte, şi FACTURI, LINIIFACT şi 
PRODUSE pe de altă parte (vezi listingul 7.3) 


Listing 7.3. Construirea cursorului cu detaliile despre facturi şi clienţii care le-au primit 


SELECT c.codcl, c.denci, c.codfiscal, c.adresa, c.telefon. L.loc jud, 
J.judet, F.nrfact, F.datafact, Lflinie,: Si eia ] 
Lf.codpr, Lf.cantitate, Lf.pretunit, P.denpr,; 
P.um, P.proctva; 
FROM localitati |, clienti c, judete j,; 
facturi f, finiifact If, produse p; 
WHERE P.codpr = Lf.codpr ; 
and F.nrfact = Lf.nrfact ; 
and C.codcel = F.codci ; 
and Jjud = Ljud; 
and L.codpost = C.codpost; 
INTO CURSOR cfacturi: 


ORDER BY i.codpost, c.codcl, f.nrfact, if.linie 


Se obsevă că rezultatul final al interogării anterioare este tabela temporară CFACTURI. 
În continuare vom efectua o altă interogare, din care să rezulte ce datorie are fiecare client, 
având în vedere că o factură este plătibilă în mai multe tranşe (vezi listingul 7.4). 


Listing 7.4. Cursorul cu datoriile pe fiecare client 


SELECT c.codel sumți.transa) as platit FROM clienti c, facturi f, incasfaci | 
i i i ; ; ct i; 

WHERE i.nrfact = f.nrfact and c.codel = f.codel; 

GROUP BY c.codel INTO CURSOR ctranse 
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În final, vom uni cele două cursoare iniţiale și vom obţine astfel un cursor final din care 
se va forma raportul în sine. Cum există posibilitatea ca un client să nu-şi fi plătit nici o 
factură (nu va apărea în cursorul CTRANSE), vom folosi joncțiunea exeternă de tip LEFT 


OUTER JOIN (vezi listingul 7.5). 


Listing 7.5. Cursorul ce va constitui sursa de date a raportului 


SELECT c1.*, nvi(t piatt, 0) as platit; 
FROM cfacturi c1 LEFT JOIN ctranse t; 
ON c1.codci = t.codci; 

INTO CURSOR craport; 

ORDER BY c1.codpost, ct.codel, c1.nrfact 


Toate aceste interogări vor fi incluse, în ordinea strictă în care au fost prezentate, în 
evenimentul Init al containerului Data Environment. Tot aici mai includem şi 
următoarele instrucţiuni: 

SET DATE TO BRITISH 

SET CENTURY ON 
prin care câmpurile de tip dată calendaristică ale raportului să primească datele în format 
european DD/MM/YYYY (2Z/LL/AAAA) cu patru poziții pentru an. 


7.3.1. Imprimarea preferenţială pe anumite pagini 


În continuare vom defini structura de afişare (formatul de listare) a raportului, încercând 
să-l facem să arate cât mai „profesiona!”, 

În primul rând ne vom ocupa de elementele cele mai simple: vom activa benzile Title 
şi Summary, iar în banda Title vom crea o etichetă (un bloc text — label) care să 
consemneze titlul „Lista facturilor la data”, lângă care vom insera un câmp cu data curentă. 

Titlul raportului va apărea doar pe prima pagină. Pe celelalte pagini va apărea în antet 
un text care să amintească titlul raportului, iar în subsolul paginii va apărea numărul 
acesteia. Aceste informaţii trebuie tipărite pe toate paginile, în afară de prima. Cum se poate 


realiza acest lucru? 
Întâi de toate, vom crea obiectele din antetul şi subsolul paginii: blocul de text 


(label), câmpul de raport cu data curentă şi câmpul de raport cu numărul paginii, care 
poate să conțină o expresie de genul "Pag. "+allt (str (_pageno)). După care se 
vor selecta toate aceste obiecte (cu tasta SHIFT apăsată şi punctare-cu mouse-ul pe fiecare 
dintre ele), iar din meniul contextual (click-dreapta ţinând în continuarea tasta SHIFT 
apăsată) se selectează opțiunea Properties. Din fereastra astfel deschisă se acţionează 


butonul Print When..., care va lansa la rându-i fereastra Print When (vezi figura 7.15), - 


Apoi, în căsuţa de text deasupra căreia se găsește eticheta Print only when 
expression is true se introduce expresia pageno > 1, care va determina 
inhibarea listării respectivelor obiecte pe prima pagină. 
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Figura 7.15. Cum se evită listarea pe prima pagină 


Atunci când anumite obiecte din raport presupun un comportament sau caracteristici 
comune, pentru tratarea lor nediferențiată şi totodată pentru creşterea productivității muncii 
de dezvoltare, aceste obiecte pot fi incluse într-o structură de grup. Acest lucru se realizează 
prin selectarea lor (aşa cum am procedat mai înainte), după care, din meniul principa! al 
VFP, se alege opțiunea Format->Group. dl 


7.3.2. Gruparea înregistrărilor în raport 


; ue raportului ne obligă să grupăm facturile pe fiecare client şi să obținem totaluri 
î N Vânzările pe client şi localitate. În acest scop, vom forma un grup principal după 
d. cs (mai exact, după codul poştal — codpost), un subgrup pentru fiecare client 
- r codci), iar în cadrul acestuia, alt grup pentru liniile fiecărei facturi (după nrfact), 
i n E raportul să se formeze corespunzător, este obligatorie ordonarea datelor in Sursa 
sea « a a câmpuri care vor forma expresiile de grupare din raport. Aşa se 

plică includerea clauzei ORDER BY în fraza SQL din i e 

Š care rezult = 
se teal Q ă ultimul cursor 
i Într-un raport VFP grupurile se declară prin opțiunea Report-Data 
>TOUuping... din meniul pricipal VEP, care va lansa fereastra Data Grouping. În 


această fer eastră se v î i 
pecifica 1n ordine xpr siile după â se £: rm £ p j i 
ors e € care VO fo [zi u urile dir 
raport (vezi figura 7.16). 
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Figura 7.16. Declararea grupurilor din raport 


În fereastra Data Grouping apar şi câteva opțiuni specifice care ne pot ajuta la 
dispunerea şi încadrarea mai rațională în pagină a liniilor care formează grupurile 
raportului. Astfel: 

e grupurile care se formează după localități (după codpost) vor începe întotdeauna 

pe pagină nouă dacă se va bifa opțiunea Start each group on new page; 

e antetul fiecărei facturi va fi reafişat eventual şi pe pagina următoare în care s-ar 
putea prelungi grupul, dacă se va bifa opțiunea Reprint Group Header on 
each page; 

ə de asemenea, pentru o afişare cât mai cursivă, grupurile formate pentru fiecare 
client vor putea fi afişate pe pagină nouă în cazul în care spaţiul până la limita 
inferioară a paginii este prea mic (se evită astfel situaţiile în care numele şi, 
eventual, adresa sunt afişate pe finalul unei pagini, iar informațiile şi subgrupurile 
esenţiale sunt trimise pe pagina următoare). Acest lucru se realizează ajustând 
valoarea spinner-ului Start group on new page when less than. 

În continuare vom crea în antetul grupului pentru localități un nou câmp, în care se va 
specifica numele localităţii şi județul în care se găseşte, folosind, pentru a respecta 
dezideratul de cursivitate a raportului, o expresie de genul 'Localitatea 

'+allt(loc)+' din judetul 'tallt(judet). Apoi, în antetul suberupului 
corespunzător fiecărui client se vor specifica: 

e numele clientului, printr-un câmp de raport care va conține expresia; 
"Societatea '+allt (dencl), şi, eventual, codul fiscal, printr-un câmp care 
va conține expresia 'Codul fiscal:  '+allt(codfiscal) (ambele 
informaţii sunt aliniate pe un singur rând); 

e informații privind localizarea şi modul de contact al clientului respectiv, prin 
etichetele Adresa și Telefon care însoțesc câmpurile în care sunt precizate 
expresiile nvl (alit (adresa),  'necunoscuta!) şi nvi(telefon, 
' Indisponibil”). Am folosit funcţia NVL pentru că aceste informaţii nu sunt 
întotdeauna specificate în baza de date. 
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7.3.3. Variabilele de raport 


aor grupului corespunzător fiecărei facturi prezintă câteva particularități: 
în primul rând, va trebui specificat numărul şi data facturii printr- 

ponme expresia ' Factura Nr. '+alilt (str (nrfact) )+! 
tallt (dtoc (aatafact)): 

e  înaldoi â i i 

T aa Aa trebuie construit un cap de tabel pentru detaliile fiecărei facturi. pe 
e pag ră sd text care vor consemna numele următoarelor ZA ae, 
r odusul, Cantitatea, Pret Uni i 

ea i t i itar, Valoarea far 
T e at a Totala, circumscrise de un obiect grafic de tip dreptunghi; 3 
renea rând, apariția facturilor din grupul unui client este numerotată fe lasină 


un câmp ce va 
din data 


Pentru a numerota apariția fiecărei facturi în grupul 


Per de clienţi 
variabile de raport Nrfact_ şi Nr Crt_ (vezi figura 7.17 ad ER e 


Value o store.. k a 


ifiralsct la fact, 


X drial vaki 


Figura 7.17. Declararea unei variabile de raport 


Specificarea unei variabile de raport Presupune următoare] 


acesteia, a valorii inițiale i e lie o ala 


» a unei expresii care va determina valoarea efectivă ce se va stoca 


resetată la 0 sau la valoare m Ş 3 > 

a ițială i de asemenea dacă va fi e iberată din memorie după 
a 4 N . > . a 
închider ca raportului (vezi opțiunile din fereastra prezentată In figura 7 i 7) 


momentul in care se tr ece la 
o nouă factură, Nr Cr i d incre i 
E , 4 l i t fiin 1 ; mentat cu L La definirea 


e pentru NrFact 
a Valoarea inițială: Nrfact; 
Q Valoarea de stocare: Nrfact; 
Q Momentul resetării: sfârsi i 
s ; şitul raportului f); 
e pentruNr Crt : f bsi dl că i 
ü Valoarea iniţială: 1; 
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Da Valoarea de stocare: expresia iif(nrfact!=nrfact , 
nr_crt_+1,nr_ert_) ~ cu alte cuvinte, incrementarea valorii 
curente dacă se ajunge în înregistrările unei noi facturi; 

Momentul resetării: codcl, adică sfârşitul grupului corespunzător 
clientului curent. l 


Revenind în antetul grupului corespunzător fiecărei facturi, pentru numerotarea facturii 
raport care va conține expresia 


m 


curente se creează un câmp de 
allt (str(nr_ert_)})+')'. 


7.3.4. Introducerea câmpurilor calculate 


În banda de detaliu a raportului vor fi incluse câmpurile care vor consemna informaţiile 
privind numărul liniei din factura curentă (câmpul linie), denumirea produsului din linia 
curentă (DenPr), preţul unitar al produsului din linia curentă (PretUnit). De asemenea, 
vor mai fi introduse două câmpuri suplimentare, care ar trebui să calculeze pentru fiecare 
linie: i 
- valoarea fără TVA, după expresia Cantitate*PretUnit; 

— valoarea totală, după expresia (1+ProcTVA)* (Cantitate*PretUnit), 


În benzile de final ale grupurilor din raport sunt plasate diferite informaţii sintetice. 
Astfel, în subsolul grupurilor corespunzătoare fiecărei facturi vom calcula totalul cu şi fără 
TVA al acestora. În acest scop, se vor crea două câmpuri calculate după expresiile 
consemnate anterior (cele din secţiunea de detalii). Apoi, din fereastra Expression se 
acţionează butonul Calculations..., iar din fereastra Calculations ce se va 
deschide astfel, se selectează butonul radio Sum din cadrul Calculate. În acelaşi timp 
se observă că în lista combinată Reset este deja selectată expresia grupului 
corespunzătoare facturilor - nr fact (în caz contrar, se va alege manual opţiunea NrFact 


din acestă listă). 
[Factura Ne.'salitistrinrtacg)«", din data '+allt{dtoc{datafaco} 


~ Produsul Cantitatea Pret unitar 


JA 
Valoare Valoare Totala 
fura TVA 


Linia 


a Group Heada 3na îi = i à k Da X 
ini cantate, Caritate PretUni.] și +ProcIVAiCanș 


FreiUni} Îi +Proc VA Ean] 


i < C Fix relative Io bottom ol band > 

CE n n NN, je sm 

[7 Stretch with overhow E i | T Bveiage 
Í i iC Lowest 

Corameri $ i Rai 


| Standard deviation Í 
palp | C Variance i 


Figura 7.18. Declararea câmpurilor ce conţin calcule sintetice 
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La nivelul gru i 
pului corespunz i clie i Î 
Soia punzător fiecărui client (mai exact, în Subsolul acestui grup) ne 
~ Valoarea totală a vânzărilor şi i 
ilor şi afişarea nivelului ilor; 
~ eventualele restanţe, ăia 
Valoarea to â j i i 
Ru cil o se obține printr-un câmp ce face un calcul de tip Su i 
EEA iza a a Unit) la nivelul fiecărui e 
: ine printr-un câmp de ae 
SA E i p Ge raport care va afişa valoa in cå 
e bază (nivelul plăţilor pe fiecare cli ti 
aa i É ; pe iiecare client a constitui i 
ele ao SELECT SQL din care rezultă cursorul N Waa 
P ai ma o problemă ceva mai delicată, Primul impuls ar fi 
calcul de tip Sum) la nivel i ; ; 
a a p l nivelul grupului corespunz i i 
E ao A etice * (Cantitate*Pretunit ) pe e it ile 
a fata Și câmpul Platit, ceea ce va denatura rezultatul Soni i. mia 
E lea si atelor, vom crea variabila ae plata, al cărei scop est gi Sata 
ia a 1 al vânzărilor pe fiecare client. Pentru această variabilă - i aa 
a n (1+tProcTVA) $ (Cantitate*PretUnit) iar Fate $ 
e pă ina Ea a variabilelor se va alege Sum vezi i i 
; ul grupului corespunzător fiecărui cli gti 
au în sub cărui client, se v â 
ține expresia iif (de plata-platit>0, de plata-pi sii i i i dala 
atea Taetdene) TEA 
din care incasat: plai 


(__ restanta: fiice piaia- plai 7) 
T a OK ] 
E a zi] $ Cancel 


a Gioup Footer 2:00 [ot 


[ria - ; R 
[E e aa aa 


Value EES e z „O Float 


| 
pereeman T {e Fin relative 1o lop of bad s 
iPro TVA] Cantate Pre Pula | i 
i Car vă ` „Briat When.. 
aie rr ne daci To peiătive to bollan of band: = i 


3 I Stretch with overiiow 


i 
so] 
Tead 
i 

$ 


E Relese she tepe © Epp Aa | Comori 
a să 1 C Lowest 
Resstat [oodd TEEF pge ” = 
: 1 CC Spd deviate | = 
i C Yaiance i 
a ON ARE 


Figura 7.19 Í câ 
. Consemnarea unui câmp caiculat care invocă o variabilă de raport 


Eventual, d 
a ne Ea doreşte afişarea restanțelor numai dacă acestea există, atunci în că 
paragraful despre ni Eul daca is true din fereastra Print When a 
5 erențială) se va preciza expresi 5 
Totalul vânzări CES P a expresia de_plata-plati 
subsolul SA ca i ctre localitate se rezolvă printr-un câmp ao a 
Sai respunzător fiecărei localități (format după codpo t) S ae i 
presia (1+ProcTVA) iù (Cantitate*PretUnit) EISA eee sa conuna 
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7.3.5. Formatul de afişare pentru datele numerice 


Pentru ca toate câmpurile ce consemnează valori să fie afişate în acelaşi mod, se 
recomandă o formatare uniformă folosind opţiunea Format din fereastra Report 
Expression. De exemplu, pentru a afişa toate câmpurile ce consemnează valori în 
format numeric, fără zecimale, cu maxim 12 poziții pentru întregi, se selectează butonul din 
stânga căsuței de text Format, apoi, din fereastra ce se va deschide, se selectează butonul 
radio Numeric, iar în căsuţa de text se consemnează formatul 9999999999993. 


sg Report Expresion 


Figura 7.20. Stabilirea formatului numeric pentru câmpurile ce consemnează valori 


7.3.6. Alinierea obiectelor în raport 


O bună parte din timpul realizării unui raport se consumă pentru a așeza, cât mai estetic, 
obiectele în raport. Există însă o serie de opțiuni specifice care simplifică munca de 
aliniere, centrare, redimensionare etc. a obiectelor din raport. Spre exemplu, dacă dorim ca 
toate câmpurile care consemnează sumele de pe coloana Valoare totală din raport să 
aibă aceeaşi dimensiune şi să fie aliniate în acelaşi sens (formatarea numerică uniformă am 
exemplificat-o anterior), atunci toate acestea se selectează în acelaşi timp (ţinând, 
bineînțeles, tasta SHIFT apăsată), după care se apelează la opțiunile din submeniul 
Format: « 

e  Size—To Widest — pentru a le redimensiona luând ca referință dimensinea 

celui mai larg; 

e  Size->To Narrowest — pentru a le redimensiona luând ca referință dimensinea 

celui mai îngust; 

ə Align>Left Side -pentru a le realinia în funcție de cel mai din stânga; 

e  Align-—Right Side — pentru a le realinia în funcţie de cel mai din dreapta. 

Acest opțiuni, la fel ca şi bara de instrumente Report Layout, conţin şi alte 
posibilităţi de ajustare a plasamentului obiectelor sau structurii de afişare. 

În figurile 7.21 şi 7.22 este prezentată macheta finală a raportului în faza de proiectare și 
de previzualizare. 
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Z) 
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` A Grop Fooie Zeod IE 


LISTA FACTURILOR LA DATA 0209200 


Localitatea Timisoara din Judetul Timis 


Boctatatea Cliant S BRL 


a aie . Cotu! fheal ; R1005 
Teletm 05672277 


Zi Factura RETNI Z, din Guta PIAA 140 
[Tna Produsul ariar siwe } 
| ! Camtăara Pra Vakare Ya Totala 
t Produa, 100 FNO 
S R i TES 5 
Totei tecture 1124000 


Toti vazar pe societatea Cast 3 SAE 
Sin cars incat 


Secotatea Cent? SRL Codul 
Adresa Peoria gal 


| meta 050123343 
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p Tims Produs eines 
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Sin care incasat 


Figura 7.22. Previzualizarea raportului în forma finală 
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7.4. Setarea imprimantei la momentul execuţiei. 
Modalităţi de imprimare rapidă 
După cum am văzut anterior, imprimarea sau previzualizarea raportului se poate realiza 


utilizând sintaxa: 
[TO PRINTER) [PREVIEW] [PROMPT] 


REPORT FORM NumeRaport 
[RANGE nStartPage [, nEnaPage) ) [SUMMARY] 


Parametrii pe care dorim să-i evidenţiem aici sunt: 
PROMPT — care va deschide o fereastră pentru setarea opțiunilor de 


e 
imprimare înainte de a trimite raportul la imprimantă (figura 7.23). Poate fi 


utilizat numai în combinaţie cu parametrul TO PRINTER; 
nEndPage]-— care va trimite la imprimantă 


ə RANGE nStartPage |, 
numai paginile cuprinse în intervalul specificat prin numerele de început şi de 


sfârşit; 

SUMMARY — care nu va imprima linia de detaliu a raportului, obținându-se 
astfel numai liniile de grupare, titlul, sumarul, antetul şi piciorul de pagină. 
Utilizarea acestui parametru este utilă atunci când dorim să construim un 
singur raport, pentru a obţine o situaţie atât centralizată, cât şi detaliată, după 


caz. 


HP Laseslei 4000 Series 


Specifizarea numărului de 
pagini ce vor fi imprimate 


Setarea parametrilor de 
imprimare 


Figura 7.23. Rezultatul utilizării parametrului PROMPT 
în comanda de imprimare a unui raport 
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F Viteza de imprimare a raportului final dieta i 
când - ai constituie a ; 

anii ama ee E ein reincepe 
vom folosi formate mai complexe pentru eta in proiectarea rapoartelor. Astfel, cu cât 
şate etc.), cu atât viteza de im iara $ o lecte (fonturi mai multe, caractere în - 
Dimpotriva, renunțarea la a k e e, deşi raportul final are un aspect mai în sro 
constitui un imperativ, în special î voarea unui grad de funcționalitate s orit grijit. 
firmei, pot genera „mor Pp i e cazul aplicațiilor economice care, în functi i it poate 
idea combi un e mate or pe et eră e timp (e exempla 
impri , e impri i pi 3 i 

vina pană, Ceneze cecen, pe ome ăi în orks er de 
Start >Setings-sepintera Ada a meniul principal al Kae 
tn 6 pie: 4 imprime det caractere ASCII un alt fel de ohai es în 

A ia A ignorat. 4 ini, 
tepari n tapon, În sta, we ea menaj o veat d ae tă formatare 


7.5. Rapoarte dinamice în VFP 


Orice dez 
voltator de aplicaţii ; 
a obține un raport ale aaa Cu ceva experiență s-a întâlnit, măcar o dată aicen 
A a Sci imensiuni pe ori M $ r inta de 
câmpuri, cât şi, e pe orizontală variază i A ; 
» eventual, ca denumi «rază in timp atât ca numă 
: ire a acestora. C EDDI număr de 
raportului se cun A ra. Cu alte cuvint 
oaşte doar forma x ate, în momentul proi ii 
i și : sa generală ( iare î it proiectării 
grupuri şi totalur 3 aranjare în pagină 
i generale), d pagină, eventuale subtotaluri 
denumire > gar nu se cunoaşte cu exacti À auri pe 
a acestora. Această Xactitate numărul de câ Sa 
dinamice, de ti : stă stare de fapt induce necesi à mpuri şi/sau 
» de tip „acordeon” i cesitatea construirii unei 
i A care să fur î : H unei structuri 
existe i nizeze în fin aa , 
Een bea : date, nimic în plus sau în minus al informaţii în funcţie de situația 
ul cel mai con ; 
Pia cludent pent s i ' 
„Yerticalizarea înregi : pentru un raport dinamic « 
regi » amic est , 
Ssubcapitolul e cai iai „ Vom recurge la un exemplu similar cu REA zi la 
; 1 macrosubstitutie: A pote Capitolui 5 
cuprindă totalul i i ituție: se doreşte o i A eta , 
valoric facturat clienţi šte ooținerea unei situații ca 
clienţilor, defalca ia i uații care să 
parte (cu alte cuvi i Hor, aetaicat pe produse cu tot 
inte, cine, ce şi câ 5 guse cu total pe fiecare client î 
i : cât a cum i : : e cient în 
maniera din figur d Ş părat), situația treb ss 
ARERO a 7.24. N ela ha trebuind să fie pre; A 
înregistrărilor din tabela CLIENT (e cel mai bun exemplu, având în E N SA [eta 3 
gestiuni). (ar fi fost mai nimerită, poate, o verticaliz ata 
. sa a! are": pe 
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SITUATIE CENTRALIZATOARE PE CLIENTI SI PRODUSE 
LA DATA: 30/07/2001 


bemire pronis Fote CLIENT 1_ SRL CLIENT 2_ S% CLIENT 3 SRL ciIrN a 
pore CLIENI_ 9 SRE CLIENT 6_SA CLIENT_7 SRL £ 
3,265,550. 00 0.00 B.D 4,24%, 580. U0 
produs 1 0.00 9.90 0.00 
1,160, 250.69 E e T o E V: 


57251, 333700 


Produs 2 980, 550.00 891, 310.00 1,383,375.00 
00 0.00 3337255700 0.09 
produs 3 357,000.00 0.00 0.o 
pi 09 0.00 marr INNA EC 1 A 
Peoaua 4 0.99 564,060.00 0.00 
i 37657, 500.00 5.00 a eE TSU 7,166, 305.00 
Produs 5 CSARS | 0.00 5,334, 200.00 uoo 
sei 
12 ,490,240.00 1,160,250.09 247,935.00 57438,300.00 


TOTAN 1,337,560. 00 6,786,570. 00 1,383,375,00 


Având în vedere faptul că numele clienţilor trebuie să constituie capul de tabel, iar 
aceştia se regăsesc în baza de date sub formă de linii (înregistrări), va trebui: 
în primul rând, să construim o sursă de date mobilă (în funcţie de câţi clienți avem 
la un moment dat, să obținem tot atâtea coloane). Pentru aceasta vom recurge, 
bineînțeles, la un cursor (tabelă temporară) — codul fiind exemplificat în listingul 7.6. 
în al doilea rând, vom proiecta macheta raportului astfel încât câmpurile definite în 
raport să fie vizibile sau nu, în funcţie de existența sau nu a coloanelor 


corespunzătoare în cursor (figura 7.25). 
Listing 7.6. „Verticalizarea” înregistrărilor 


*o varianta de verticalizare 


v_fraza_select='select denpr,codpr' 
IF IUSED(clienti”) 
USE clienti IN O 
ENDIF 
SELECT clienti 
* !* vom "construi" fraza select SQL 


SCAN 
v_client=f_inlocuieste(ALLTRIM(clienti.denc!)) 


v_cod=clienti.codci 


v_fraza_select=v_fraza_select+",f_caicul_("+ALLTRIM(STR(v_cod))+"„codpr) as "+v_client 
v_fraza_union=v_fraza_union+",f_calcul_("*ALLTRIM(STR(v_cod))+")" 


ENDSCAN 
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pm 


vfr = 
aza select=v fraza select+' from produse into cursor c1' 


"| * şi in final macrosubstitutia: 
&v_fraza_select 


FUNCTION f_inlocui 
i jeste && necesară pentru inlocuirea spatiilor din numele clientului 


PARAMETERS stg i && cu un caracter valid pentru nume de campuri 


V_sir_nou="" 
FOR i=1 TO LEN(p_sir) 

IF SUBSTR(p_sir,i, 1)" 
V_sir_nou=v_sir_nou+'_ i 


ELSE 
ERDE Y_Sir_nou=v_sir_nou+SUBSTR(p_sir.i,1) 
ENDFOR 
RETURN v_sir 
END FUNCT 7 ai 


FUNCTION f cal 
_caicul_ && calculează totalul facturat pe produs cumparat 
PARAMETERS p_ciient 
X „p_cod 
DIMENSION a_total(1) isi 
a_tota!(1)=0 
SELECT SUM(cantitate“pretunit:(1+proctva)); 
- FROM liniifact I facturi F,produse p; i 
KUERE I.nrfact=F.nrfact AND p.codpr=l.codpr ; 
D F.codcl=p_client AND p.codpr=p_codpr: 
INTO ARRAY a_total l atit 


RETURN a_total(1) 
END FUNCT 


za gara ci a a ba clasică de realizare a antetului paginii în raport 
a pede Aha Aaa zona de detaliu a raportului a fost înlocuită cu TH 
EA : 
Sei cdlie aul ea Se al să a numele fiecărui client avem o 
e în zona de detaliu (unde trebuie să pei i o e A 
cimpul dn ame) ulii prea dePe fecre register a 
«sumar AI e oara ioducem aceeaşi expresie, dar cu opțiunea de 
ae ja : To de fapt numărul de ordine al câmpurilor cu referire la clienți, 


ce vor avea valori în raportul final 
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5. VEE OP 
SITUAȚIE CENTRALIZATOARE PE CLIENTI SI PRODUSE 


LA DATA: date f) 


Gitta numere algur iza) 317 (a_momare apar 1522] [Liza numare angari ăsta numare ago isa d 


ate 
odus ifra onar camu esa [17 Le Tana Le age 1306 7] 35 (amare aeepur Ia] jiita nomarconpuri»=®, $ 
[Lai (a_numarcameuri>= 12] 


Eie Ponar Cast 19) afta Rase ere 10) 25 a numar t apur isi) 


aitia numarcampuri”jiii f(a numarcampuri y itte ruse aa ae LII Ea numarcampuri>=] 


Bin reonpori>d [ii € (anume ccampuri iii t(s numercampuri>= 
la numsrcanpuri>fiitle numsrcempuri ii ta numarcampuri>} 


iif{a muuna 


N, ri 
"SiE mme 


a Dotat 
J 
a Page Footer 4 paine i arzi în pm a SE 
NIFC car caer i j liila umar caro uz LI i £ (a_punar campus IŢI LE (a numar campuri e 
li elita [a Lama co J meie aratam ea Ap 
| 


E] TOTAL Too ee 


a Surnay 


i: 


g 
3 


Recd EOF 


Raj dă ui e sina 


Expression: | |iif(a_riumarcampuri =1 field(4),"] 


Format: -< | : A 
7 Field position — n ~ i a a 
E fot ni galculations... ] i 
|. Fin relative to top of band i eT Print When.. A 


| C Fix relative to bottom oi band SE 


Hae TR 


| EEE A Mat A E gar PAN 


FZ Stretch with overflow 


Comment 


Figura 7.25. Exemplu de proiectare a unui raport dinamic 


Pentru că în cursorul-sursă (C1) numele clienţilor îl găsim sub formă de nume de câmp, 
utilizăm funcţia FIELD (NumarCamp), ce returnează numele câmpului specificat prin 
Numa rCamp din tabela curentă (numărătoarea începe cu | de la stânga la dreapta), pentru 
a afişa numele clienţilor în antetul de pagină. Se observă că numărul câmpului cu care este 
apelată funcţia este diferit de valoarea de comparaţie a variabilei A Numar Campuri, 
diferenţa fiind de 3 unităţi. Această diferenţă decurge din faptul că primul client din tabela 
CLIENTI se va regăsi, în cursorul C1, pe coloana a patra, primele trei câmpuri ale 


cursorului fiind numele produsului, codul său şi imaginea asociată. 
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Funcţia VALOA ` X 

T AS r (NumeCâmp) va retuma valoarea câmpului specificat c 
pentru a obţine a din cursorul C1. Ea este utilizată în expresia di So . 
sl ni valorile câmpului curent. Conţinutul ci î regăsi a din zona de detaliu 
at macrosubstituția spcamp): regăsim în listingul 7.7 (de 


PARAMETERS pcamp 


RETURN 


Listing 7.7. Definiţia funcţiei Valoare () 


V_vaicamp=0 
Y..valcamp=&pcamp 
VAN v valcam 


În sfârşit funcţi 
| ârşit, a IIF () va returna numele câ i 
A tia SA É umele câmpului (în an i i j 
(în zona de detaliu), atât timp cât regăsim atribute SE ei a ia 
Í in cursorul C1, deci 


cât timp A Numar a p i 
. 4 că r > ( x i p 
i = i À; ( r Y x {u de 2 reprezintă de fa t nur ăr u 
A f definit m aport). In momentu! in n număr ul Câmpului Ei 
cien r. care l 


câmpului referitor la 
it fizic în raport este 


în faza de proiectare avem definite dou 
m: K - ăspreze i 
iaca su a la clienți, în timp ce 4 raportul a a extragerea 
tu ds acelea care și-au găsit câmp Corespondent î a < 
a ent în cursorul C1 (numai 
dacă toate câmpurile de pe o linie afi imi 
a ne atişează „nimic” sau i î ii linii 
î A final (linia liberă din zona de a iasă Haa a 
fete a aie ilor câmpului general ce are ca sursă imagin aia A 
e câmpuri din raportul fina] depinde, pe de o tata Aia 


douăsp ez EI H > 
T ece câmpuri de raport cu refer ire la clienți ceea ce va limita bineînteles 


afişarea a maxim doi I ec je t indife e f 
isp ezec li nji i riin 
p nt câți ar at 
N baza de d 
e, 


Conform notații i 
iilor din figura 7.26 
a .26, elementele i 
ment mobil o SEA E L E necesare impl irass 
biectelor din raport, din punctul de vedere al ie Fei, unui comporta- 
agină, ar fi: 


L 


2; 


Obiectul (în ce A 
(in cazul nostru câmpul) curent va fi afişat, la previzuali 
> IZuaiizare sau 


imprimare, numai dacă prin evaluarea ex iei obți 

A rbd Ja expresiei obținem adevărat; 

se ui iata Aa = lia pe aceeași linie care să poată fi imprimat sa 

ata eu pe care se găseşte obiectul curent) va fi ştearsă di îi 

salute : r a va fi redistribuit obiectelor de pe liniile A iata 

ce a mu ica poziţia (la previzualizare sau imprimare) e 

A talc i ntul proiectării raportului, în funcţi a = 
| elor inconjurătoare; E T SR 


Expresi 
presia ce defineşte sursa de date a câmpului va afişa 


condiţie anume nu este îndeplinită. „Nimic” în cazul în care o 
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“Print ori when eu ăssiori îs true; 
anuma Campu =2 


Figura 7.26. Setări specifice pentru definirea mobilităţii obiectelor în raportul final 
față de poziţiile lor iniţiale în faza de proiectare 


Ne vom referi în final şi la coloana „Foto” din raport, ce cuprinde un câmp de tip 
Picture/OLE bound control pentru care sursa de date o constituie câmpul general 
Imagine din acelaşi cursor C1. Setările necesare imui astfel de câmp le regăsim în 


figura 7.27: 


A F Scale picture, retain shape 
| Soak picture, ithe tiame 


Figura 7.27. Setarea opțiunilor unui câmp de tip Picture 


Specifică faptul că sursa de date este constituită de un câmp al tabelei curente (în 
cazul nostru, cursorul C1); 

Centrează imaginea preluată din câmpul general în cadrul obiectului definit în 
raport, dacă imaginea este mai mică decât dimensiunile acestuia; 

Redimensionează imaginea-sursă până la umplerea completă a scheletului definit 
prin obiectul din raport, chiar dacă aceasta presupune distorsiuni pe orizontală sau 


verticală. 


Capitolul 8 
Formulare Visual FoxPro 


Realizarea formularelor (forms) în Visual FoxPro (şi i 
- B : AA SA ŞI nu numai) r i 
sali piei — şi e mai dificilă a dezvoltării de aplicații. E a a Mn 
i aaa -uti aici prietenoasă şi atractivă, deşi nu Putem spune că o a aie 
dale a a a Ai afă spectaculoasă. Rolul formularelor este capital în iar 
o BE e departe i formularele sunt niște ferestre care pot conţine ta ea 
a teaca au comportament (implementat prin metode) la` Peer i 
a pe a fede pi îi sistem sau de alte obiecte, constituind şi o modalitat a e 
A ectivă a ci aselor noi definite de dezvoltatori. Cu obiectele unui fi las 
ceva mal târziu, pe parcursul acestui capitol, iar clasele d fini ce 
vom aborda în capitolul 11. Ctinite de utilizator le 


8.1. Generalități. Tipuri de controale 


Privite „mai de a 3 i 
i „mai. proape”, formularele sunt nişte module d 
ia ial; e program compli 
7 ți în panică... doar câteva secvențe de cod vor fi scrise efectiv fasii acc, pile 
prezentat în capitolul 4), altminteri atributul „Visua!” din numele medi lui Vi e 
nu şi-ar mai avea rostul, ai a 
În primele versiuni Fox i 
oxPro, crearea unui ecran de introd 
ele i i ucere a datelor i 
ua combinarea mai multor comenzi din categoria say GET ine ta 
lenz «GET... - 
ționat în capitolul 4) ce desemnează regiuni de afişare a datelor şi bre e Si gi 
Ai , , Tegiuni 


trasa i i 

oii So Aa pe reprezentarea unei ferestre, urmată de Scrierea 

p Urlior-eveniment (sau metodelor), sintagme prin care se desemnează i e a 
odul-sursă 


complex). n i l Fo P O de i p p 8 amator 
i ] y sua XFT Pi ŞI N odul de lucru s-a păstr at în m TO 
În = are arte 
ta dă codul Sursă. necesar afişării, CI doar acela necesar tratării da e Ji nente or 
F utem crea un for mular pr in una din următoarele metode: ai 
1n Pro ject Manager selectăm cad p gină tu 
hd rul de a i i 
i E For IS ŞI efec ăm click pe 


e : meniul principal alegem File—Neu... (sau butonul New D din bara princi 
e instrumente) şi în ecranul apărut alegem opțiunea Form: ia 
e În fereastra Command scriem 
comanda CREATE FORM (e 
stre | ventual 
bl şi calea pe disc unde se va memora formularul). Fiindcă veni d T 
işier are extensia . SCX şi este însoțit întotdeauna de un fişier cu acelasi ; aa 
extensia . SCT. ERE 
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[ l odă d i i nod i icit formularul la p oiectul general 
a ip i Miu ga l impli ii T ` 
umai prima met d va ad d, i i 
i aplic A F entru celelalte două modalități este necesară o p t p 
€ ` operaţiune su | nenta ă de 


ad i i ADD di ject Manager. l 

ă re prin interme butonului ADD din Projec l 

ugare prin intermediul | i ; PAT 

a urmare a uneia dintre acțiunile de mai sus, vom obține o fereastră ce reprezintă 
p 3 


a i î rată în fereastra mai mare a Form 
iad i gi, a a peN de unelte (figura 8.1): Form 
a dp ici Layout şi Color Palette. Cea mai utilizată în 
ac ste gi a bara Controls. În cazul în care una dintre aceste bare 
pac iai instrumentului Form Designer, o putem activa prin selectarea 
AE A | Toolbars din meniul principal. 


[E For Desianes - formdoci. sea — 


Regord | Debug F > Syriaca T 
i View | General | Data | Remote Data ] Fie Locations Forme 


Grid 


STEI. Te Show poston a e ii e 
IP aie a Ținerazive =] 
ÎN Snapto gid.. - ide 


i Scale uisi E, [Pres 3] 


"21. Horizohtal ing {pixels} 12 mă A = 
of ongona spacing ea |: Magimum design area ETEITIERS + 


j 
| 
„|: Teb ordeting... 
Sa 
j 
e pie S) 
Venica specing (pei PrE 


` r Template classes e 
Iometer itan s i1152 x 882 
SI Dat ala i Ta l oot [9280 g 1024 
| E Fom i i i -|1600 x 1200 
i T” Buide: lock En D 


$ 7. Prompt to save changes beloie junning form - E : 
7 Cancel |: pep f SetAs Defaut | 


Figura 8.2. Stabilirea dimensiunilor maxime ale formularelor 
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Orice formular, asemenea tuturor componentelor unui proiect Visual FoxPro, se 
salvează într-un fişier şi este bine să ne decidem de la început asupra unui nume, iar primul 


altceva, anume proprietatea Captiona formularului, la care vom reveni). 

Există o chestiune importantă pe care trebuie să o avem în vedere la proiectarea 
formularelor, şi anume care va fi rezoluția monitorului pe care va rula formularul, 
Răspunsul la această întrebare trebuie cunoscut înainte de a nea 
constata la sfârșit, când totul pare bine şi frumos pe calculatorul pe care a fost realizată 
interfața, că pe staţia utilizatorului formularele noastre nu încap pe ecran. O dată cunoscută 
rezoluţia de lucru, vom purcede la setarea dimensiunilor maxime ale formularului prin utili- 
zarea opțiunii de meniu: Tools-—Options, pagina Forms (figura 8.2). Pentru PC-urile 
contemporane cu ecrane de 15-17 inch în diagonală, rezoluția de 800x600 de pixeli este 
recomandabilă. Se poate merge şi la 1024x768, dar ţineţi cont că anumite detalii pot deveni 
greu de observat şi obosesc ochiul, Consultaţi-vă totuşi cu beneficiarul, dacă aveţi 


posibilitatea — s-ar putea ca sistemul lui să aibă alte performanţe, mai bune sau mai slabe 
decât al dvs. 


Atenție! Dacă aţi modificat dimensiunile form-ului, veți constata că ele nu intră 
imediat în vigoare. Trebuie închisă fereastra Form Designer (eventual cu salvarea 
modificărilor) şi redeschisă, lucru posibil prin comanda Fi le-—Open..., prin selectarea 
formularului respectiv în fereastra corespunzătoare a Project: Manager-ului şi 
acționarea butonului Modify sau prin comanda MODIFY FORM 
<cale_şi_nume_formular>. Dacă nu am reținut calea, putem scrie comanda 
MODIFY FORM ?, care va afişa dialogul de tip Open. Un dreptunghi alb pe ecran va 
indica întinderea maximă pe care o poate lua formularul. 


Pe un formular putem adăuga următoarele ripuri de obiecte: 

e controale standard (bara de unelte Controls); i 

e containere (controale de un tip special, care conțin alte controale standard sau nu); 

e clase definite de utilizator (vom vedea aceasta în capitolul 11); 

e controale din categoria Activex (veţi afla mai multe tot în capitolul 11). 

Scopul acestui capitol este de a vă iniţia în realizarea de formulare simple, fără efortul 
mai consistent pe care-l presupun diferite efecte vizuale deosebite ori anumite generalizări 
ale formularelor. 

Tabelul 8.1. prezintă toate obiectele ce pot fi utilizate în construirea unui formular. 


Simbolul asociat fiecărui obiect în bara de unelte Controls este redat în coloana din 
stânga. 
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Simbolul Denumire Functionalitate Poate fi 
butonului lesti leo 

5 

Tabelul 8.1. Simbolurile barei de unelte Controls sursă de 
2L - ate 

Simbolul Denumire Funcționalitate Poate fi B List Box Obiect ce afişează o listă de elemente în care | DA 
butonului legat la o AZE (Casetă cu utilizatorul se poate deplasa pe verticală şi 
sursă de listă) poate selecta unul sau mai multe la un moment 

date dat. 

Select Selectează obiecte, în vederea redimensionării | NU Combo-box Obiect asemănător cu o casetă de text, ce | DA 
Objects şi/sau mutării lor. După crearea unui obiect, kma (Listă deschide (la apariția unui eveniment — de 
(Selector) acest buton este selectat automat. Selecția se combinată) exemplu Click) o listă de elemente din care 
NU este un face prin click pe obiect, click cu tasta Shift utilizatorul poate alege una singură. După 
control apăsată dacă e nevoie a selecta mai multe selecția necesară lista se închide. Foarte util 


obiecte. | i al pentru economisirea spaţiului pe formular. 


Label Obiect de tip etichetă care afişează un text. Se Partea superioară (vizibilă tot timpul) permite 
(Etichetă) foloseşte în general pentru a specifica titlul sau introducerea de text pentru căutare în listă oră 

alte informaţii despre celelalte obiecte. | pentru adăugarea de elemente noi, după caz. 
Text Box Afişează şi dă posibilitatea modificării unei | DA Spinner Afişează într-o căsuță de text un contor | DA 
(Casetă de surse de date formate din valoarea unui câmp (număr) ce poate lua valori între anumite 
text) al unei tabele sau dintr-o variabilă de memorie. limite. Incrementarea, respectiv decrementarea 


au loc prin click pe săgețile sus-jos sau prin 
Scrierea unui număr de la tastatură. 


Grid Obiect de tip container, deosebit de complex, | DA 


Afişează o singură linie de text (chiar dacă pe 
mai multe rânduri, este totuşi o singură linie — 
nu se poate insera alta nouă cu Enter). 


| EC ORGII OCOLIRE REPERE pie 3 z 
Edit Box Are cam aceeași funcționalitate ca şi controlul | DA i ce poate afişa şi manipula datele într-o formă 
(Casetă de Text Box, doar că afişeză sursa de date pe tabelară (ca o foaie de calcul Excel). Poate 
editare text) mai multe linii (se poate începe linie nouă cu include alte tipuri de obiecte. 


Image Afişează şi manipulează fişiere grafice de pe | DA 
disc sau câmpuri de tip General din tabele. 


Enter). Folosit în general pentru a introduce 
fragmente mai mari de text (câmpuri de tip 


memo, de exemplu). 3 Timer Obiect ce permite lansarea unor procese la | NU 
Obiect care simulează vizual un buton al unui anumite intervale de timp, fixate dinainte (spre 


aparat oarecare (poate fi apăsa x, i exemplu, un text care apare/dispare, afişarea 
răspunde la un eveniment Click. Foloseşte la orei la fiecare secundă eic.). Invizibil la 


declanşarea unor operaţii. 


Command 
Button 

(Buton de 
comandă) 


execuție. 


Command Container ce conţine un număr variabil de NU Page Frame | Obiect de tip container ce permite afişarea mai | NU 
Group butoane de comandă, fiecare având propria multor pagini suprapuse, fiecare conținând alte 

(Grup de funcționalitate. Avantajul constă în faptul că controale. Foarte util pentru formularele com- 

butoane de pot fi manipulate unitar (ca un singur obiect} în | plexe, în care spaţiul de pe o singură pagină 

comandă) funcţie de necesităţi. este insuficient, 

Option Container ce conţine un anumit număr de | DA i Ole Utilizat pentru introducerea obiectelor de tip | (în funcție 
Group butoane'cu aspect circular, fiecare însoțit de un | Container Activex. de tipul 
(Grup de text explicativ. Permite utilizatorului alegerea | Control obiectului) 
butoane de unei singure opțiuni din cele posibile la un i Ole Bound Asemănător cu anteriorul. doar Că se ieagă la | DA 
opțiune) moment dat. Mai sunt cunoscute şi sub numele i Control un câmp de tip General dintr-o tabelă. Este 


de butoane-radio. 


utilizat în special pentru afişarea imaginilor 


Check Box Oferă utilizatorului posibilitatea de a opta între stocate în tabela. 
(Casetă de adevărat sau fals pentru o anumită condiție. T Servește la trasarea de linii N 
opțiune} Spre deosebire de butoanele de opțiune, N 
grupurile de obiecte de tip „bifă” pot oferi : z | 
posibilitatea alegerii mai multor opțiuni din | erveşte la trasarea de forme geometrice pe | NU 
=] cele posibile. "i miij end formular. 


26. În loc de „casetă” vom iolosi şi termenul „căsuță”. 
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Simbolul Denumire Funcționalitate Poate fi 
butonului legat la o 

sursă de 
date 
Hyperlink Obiect pentru implementarea unei interfețe tip | NU 
Web (se poate combina cu componente 
speciale de tip Active Doc). Este invizibil 
la execuție. 
Container Permite gruparea obiectelor eterogene într-un | NU 


grup ce simplifică procesul manipulării lor. 


=: 
| 
După cum s-a văzut şi în tabelul de mai sus, un obiect de pe un formular Visual FoxPro 
poate aparține uneia dintre următoarele mari categorii: l 
e container — poate conține alte obiecte sau containere. Se comportă ca obiect-părinte 
pentru alte obiecte (formularul însuşi &ste un obiect de tip container pentru celelalte 
obiecte de pe el). Toate obiectele din container moștenesc valorile setate pentru 
unele din proprietățile containerului (exemplu: Enabled, Visible etc.); 
e control — poate fi aşezat într-un container, dar nu poate fi părinte pentru alte 
obiecte. 
Din punctul de vedere al legăturii cu baza de date, obiectele din formulare 
(controalele) pot fi clasificate astfel: i 
+ obiecte ce se pot lega la câmpuri din tabele sau la variabile (bound controls} prin 
intermediul cărora putem manipula datele din tabele. Vom vedea mai târziu că, 
pentru a lega un control la o sursă de date, trebuie intervenit asupra proprietății 
ControlSource (RecordSource pentru controlul Grid). Datele introduse 
sau alese de utilizator vor fi stocate acolo unde indică proprietatea respectivă (vezi 
tabelul 8.2); i 
e obiecte ce nu pot fi legate la date (unbound controls), având un rol decorativ, 
explicativ sau de interfață cu alte obiecte, acestea din urmă legate ori nu la date. 
Dacă nu se specifică nici o valoare validă pentru ControlSource (la obiectele care 
prezintă această proprietate), datele introduse nu sunt scrise în fişiere, nici stocate altundeva 
în memorie, ci rămân ca valoare a proprietăţii până la distrugerea obiectului. 


Tabelul 8.2. Efectul proprietăţii ControlSource 


Control Efect 
In cazul în care ControlSource este un câmp dintr-o tabelă, atunci valoarea 
Check NULL arată o căsuță inaccesibilă, valorile .F. sau O determină afişarea căsuţei 
Box „nebifate”, valorile .T. sau 1 determină afişarea căsuței activate („bifate”), iar 


valoarea 2 arată o stare incertă. 
Când ControlSource este un câmp dintr-o tabelă, atunci utilizatorul modifică 


Column direct valoarea acelui câmp, pe linia curentă. Deplasarea la altă linie înseamnă de- 
(din Grid) | plasare în tabelă pe altă înregistrare. Dacă se dorește legarea controlului Grid la o 
întreagă tabelă, trebuie scris numele tabelei ca valoare a proprietății RecordSource. | 
| Când Cont rolSource este o variabilă, valoarea aleasă de utilizator este stocată 
ei late în variabilă. În cazul în care Cont rolSource este un câmp dintr-o tabelă, atunci 
CA valoarea aleasă este stocată în câmpul respectiv din tabelă, la întregistrarea curentă. 
RA Dacă un element este identic cu valoarea unui câmp din tabelă, atunci la deplasarea 


în tabelă se selectează automat alt element al listei. 
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| Controt | Efect 
Când Cont rolSource este un Câmp numeric dintr-o tabelă, atunci în câmpul 
respectiv se scrie O (butonul neselectat) sau 1 (butonul selectat). Dacă | 
Cont rol Source este un câmp logie dintr-o tabelă, atunci în câmpul respectiv se 
scrie .F. (butonul neselectat) sau „7. (butonul selectat), i i 
Dacă are loc deplasarea în tabelă, butoanele se acti 
după valoarea curentă a câmpului corespunzător, 
Atenţie: în acest caz sunt două proprietă, 


ji ControlSource: una a grupului și 
una pentru fiecare buton component. Dacă Cont rol Source pentru grup este un 


câmp de tip șir de caractere, atunci la selecția unui buton din grup se memore 


acel câmp textul afişat lângă butonul ales. 


Spinper Dacă ControlSource este un cânip numeric dintr-o tabelă 
— sunt scrise în Câmpul respectiy, pe înregistrarea curentă. 
i -t = i 
i Box Dacă ControlSource este un câmp dintr-o tabelă, atunci textele sau numerele 
z u Bdit introduse sunt scrise în câmpul respectiv, la înregistrarea curentă, Deplasarea pe 
ox altă înregistrare tabelă afectează textul/numărul afisat. 


Option 


A vează/dezactivează automat, 


ază în 


, atunci valorile alese 


Observaţie: înainte de a lega un obiect la o variabilă independentă, trebuie avut în 
vedere că, la un moment dat, conţinutul său este preluat şi de proprietatea Value 


Principala dificultate în crearea unei interfețe productive ține de sincronizarea dint 
starea. elementelor din formular (controalele) şi conţinutul surselor de fa 
(ControlSource) la care sunt legate acestea. Visual FoxPro este un m 
motor propriu de baze de date, dar şi cu facilități de programare din ca 


ji 3 ŞI ci Fi tegoria celor 
„Vizuale” — asemănător cu Visual Basic ori cu Delphi. Putem spune că, grație caracterului 


„mai intim” al legăturii formulare-bază de date sub Vi 
i isual FoxPro, modu 
ceva mai uşor de înţeles. dt ia 


Putem spune că, din punctul de vedere al dezvoltatorului, 
părți (figura 8.3): l 
e partea de front-end sau ceea ce va vedea efectiv util 
care va deschide formularul; 
° partea de back-end sau mulțimea tuturor liniilor de cod introduse pentru a da 
funcționalitate diverselor evenimente sau metode, precum şi multimea proprietăților 
configurate pentru a asigura legătura şi sincronizarea cu sursele de date. 


un formular prezintă două 


izatorul final în momentul în 


să BACK - END 7 
„7 (legături cu sursele de date ji 
pe Şi proceduri ce implementează 
Spa comportamentul obi i 


FRONT - END 
(aspectul formularului şi obiectelor sale, i 
vizibile utilizatorului) i 


Figura 8.3. Cele două „straturi” ale unui formular 
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Deşi fiecare dezvoltator are stilul său propriu de lucru și nu ne propunem să dăm aici 
sfaturi cu tentă general valabilă, totuşi, o metodologie de proiectare a unui formular, pe 
care o vom urma şi noi în continuare, ar consta în următorii paşi: 

e în primul rând trebuie să fie foarte clar ce anume va face formularul respectiv, 
scopul acestuia şi dacă va oferi sau nu utilizatorului o interfață de actualizare a 
anumitor structuri de date; 

e identificarea structurilor de date ce vor fi actualizate sau sunt necesare pentru 
afişare; 

e crearea formularului, configurarea dimensiunilor şi adăugarea controalelor 
necesare. În funcţie de tipul fiecărei surse da date ce va fi actualizată, se va alege 
acel tip de obiect care va oferi, pe de o parte, o cât mai mare uşurinţă în utilizare, 
iar pe de altă parte, un risc minim de erori; 

e legarea controalelor formularului la sursele de date şi, eventual, setarea valorilor 
altor proprietăţi, pentru „cosmetizare”; 

e verificarea configurărilor iniţiale ale surselor de date (deschiderea tabelelor, 
stabilirea indecşilor activi, valorile implicite ale variabilelor) la lansarea în execuţie 
a formularului; 

e redactarea secvenţelor de cod aferente metodelor şi evenimentelor care definesc 
„comportamentul obiectelor din formular”; 

e testarea formularului la execuţie, corectarea erorilor găsite şi efectuarea retuşurilor 
finale. 

O atenţie deosebită trebuie acordată alegerii celor mai potrivite tipuri de controale 

pentru interacțiunea cu utilizatorul, atât ca aspect, cât şi ca funcționalitate. 


Tabelul 8.3. Categorii de acţiuni care vor determina alegerea controalelor 


| Actiune Controale recomandate 

Simpla afişare a datelor toate cele care acceptă texte şi numere E 

: (preferabil cu proprietatea Enabled=. f a | 

oferirea unui număr de opțiuni predefinite (ex.: Option Group, List box, Combo- 
sex bărbătesc sau femeiesc) box. 


| acceptarea de date ce nu pot fi prevăzute (ex: | Text Box, Edit Box q 
numele şi prenumele) 


acceptarea de date ce trebuie să se încadreze 
|_ Între anumite limite (ex.: anul de studii) 
oferirea posibilităţii de a declanşa anumite 
| acțiuni predefinite (ex.: adaugă un judeţ) L 
declanşarea unei acțiuni predefinite la anumite Timer 
intervale de timp (ex.: aflarea periodică a 
spațiului liber de pe disc în condițiile unor 

ļ_ operații de actualizare masive) 

un grup de obiecte trebuie să poată fi 
inactivaV/activat (sau vizibil/invizibi]), în funcţie 
de anumite condiţii 

actualizarea unor tabele ce nu au un număr prea | Grid 


Spinner, Text Box (cu validare) 


Command Button, Command Group 


Obiecte plasate într-un Container 


|__mare de atribute (câmpuri) 
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8.2. Macheta primului formular. Tranzacţii 


In continuare vom proceda la realizarea efectivă a unui formular pentru actualizarea 
persoanelor din baza de date, Scopul efectiv al formularului va fi navigarea prin tabela 
PERSOANE, consultarea datelor corespunzătoare unor persoane şi, eventual, actualizarea 
tabelei: adăugarea/modificarea/ştergerea unor înregistrări. Structura tabelei PERSOANE o 
regăsim în capitolul 2. 

În această etapă stabilim câteva detalii asupra modului în care va trebui să funcționeze 
formularul în ansamblul său. Astfel, o dată lansat în execuţie, acesta trebuie să furnizeze 
următoarele posibilităţi; 

° căutarea și poziționarea pe o persoană anume, pentru a vizualiza/modifica sau 

Şterge datele referitoare la ea; l 

e adăugarea unei persoane noi; 

° in momentul selectării unei persoane, toate controalele legate la date trebuje să 

afişeze datele de pe înregistrarea corespunzătoare din tabela PERSOANE; 


o orice operație de actualizare trebuie să poată fi anulată la cererea expresă a 
utilizatorului. 


aproape orice SGBD, permite utilizarea tranzacţiilor. O tranzacţie (în sensul de mai sus) 
x nae r S % $ e 

este un grup de instrucțiuni DML? înlănțuite funcțional, de tipul „totul sau nimic” Şi în 

Visual FoxPro se implementează conform următoarei scheme: 


BEGIN TRANSACTION 
Instrucţiuni de actualizare ... 
END TRANSACTION 


BEGIN TRANSACTION 
instrucțiuni de actualizare ... 
ROLLBACK 


Dacă tranzacţia se încheie cu END TRANSACTION, actualizările efectuate în baza de 
date de la inceputul tranzacţiei (după BEGIN TRANSACTION) vor fi definitive; dacă 


tranzacţia se încheie cu ROLLBACK, modificările sunt abandonate, fiind restaurată Situația 
existentă înainte de începutul tranzacţiei. l 


27. DML ~ Data Manipulation Language — instrucțiuni dedicate actualizări datelor în tabelele bazei de date. Spre 
exemplu, limbajul SQL conţine următoarele instrucțiuni DML: insert, update, delete. 
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+ 1, tabela LOCALITATI va ramane intacta 


BEGIN TRANSACTION 
INSERT INTO localitati VALUES ('9999','Test 1','IS'} 
BROWSE && urmariti rezultatul 
EGIN TRANSACTION 
ii UPDATE localitati SET jud='VS' WHERE jud='IsS' 
ZND TRANSACTION 


BROWSE && urmariti rezultatul 
ROLLBACK 
BROWSE && urmariti rezultatul 


* 2. singura modificare in tabela LOCALITATI va fi aparitia 
** unei localitati noi: "Test 1%, din judetul 15 
BEGIN TRANSACTION 
INSERT INTO localitati VALUES (19999','Test 1','I8)) 
BROWSE && urmariti rezultatul 
BEGIN TRANSACTION 
UPDATE localitati SET juđd='VS' WHERE jud='IS' 
ROLLBACK 
BROWSE 
END TRANSACTION 


&& urmariti rezultatul 


Figura 8.4. Două exemple de imbricare a tranzacţiilor 


Există câteva restricții legate de tranzacții: _ 

ə într-o tranzacție nu pot fi utilizate instrucțiuni DDL (Data Definition Language) — 
CREATE, MODIFY, CREATE TABLE, ALTER TABLE etc. — şi nici comanda PACK; 

e nu se poate părăsi mediul Visual FoxPro dacă există tranzacții deschise; 

e tranzacțiile Visual FoxPro pot fi imbricate, dar nu mai mult de 5 niveluri; 

e în cazul mai multor tranzacţii imbricate (incluse), anularea unei tranzacţii de pe un 
nivel superior atrage implicit anularea tranzacţiilor de pe nivelurile inferioare, chiar 
dacă acestea din urmă au fost comise (s-au încheiat prin END TRANSACTION); 

e tranzacțiile reprezintă o potențială sursă de erori atunci când se lucrează în rețea, cu 
tabele deschise în mod partajat (buffering). Mecanismul buffering oferă o 
alternativă la tranzacţii (vezi şi capitolul 13). 

Pentru exemplificarea modului de lucru cu mai multe tranzacţii, recurgem la secvențele 
de cod prezentate în figura 8.4. În primul exemplu, deşi a doua tranzacție s-a încheiat prin 
permanentizarea actualizării câmpului Jud, prima s-a încheiat cu anulare, ceea ce a 
determinat automat anularea şi celei de-a doua. În schimb, în cel de-al doilea exemplu, 
tranzacţia inferioară rămâne anulată chiar dacă cea superioară este comisă definitiv. Pentru 
aflarea nivelului unei tranzacţii deschise se foloseşte funcția: TAXNLEVEL (), care va 
returna numărul nivelului tranzacţiei curente (între 1 şi 5) sau 0, dacă nu este nici o 
tranzacție deschisă. Comanda BEGIN TRANSACTION incrementează acest număr, END 
TRANSACTION sau ROLLBACK îl decrementează. 

Vom reveni la formular urmând pașii pe care i-am prezentat ceva mai sus. O dată ce 
formularul nostru își propune să actualizeze tabela PERSOANE, este foarte clar că una 
dintre structurile de date implicate va fi chiar tabela în discuţie (câmpurile acesteia). Pe 
lângă aceasta mai avem nevoie, însă, de încă două tabele. Să ne oprim puţin asupra 
atributului cheie străină, Codpost. Acest câmp ar trebui completat cu codul poştal al 
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localităţi; icili i icei 
Cas a E dar, de obicei, ne este mai la îndemână numele 
“H 33 eventual, al judeţului, și mai puțin codul poștal. lată d i 
PA d Aa aa tulu i n Ci poştai. lată de ce interfața (partea de 
- e utilizatorului posibilitatea să al i 
TER Ale ua ibilit; să aleagă o localitate anume dintr-o 
t, eventual cu județul asociat. În urma i i 
118ta: -ge i t i unel asemenea optiuni ea 
- i ASOC, » partea 
a E ul va avea grijă să introducă în câmpul Paco Ace adi 
a codului poştal corespunzător localităţii al 5 aur ocafităţii, nici 
i (i alese. Cum nici numele localităţii. nici 
numele județului nu se găsesc îr E ao 
1 tabela PERSOANE, în sursele de da ili 
ihai i , ate pentr 
a formular se includ și tabelele LOCALITATI şi JUDETE. i ici all 
rmătorul pas constă în proiectarea efectivă a formularului. Crearea unui formular 


( ) ` ? N 
form nou se realizează folosind una dintre metodele pre entat 
zentate la începutul acestui 


O b Sery aji e: adăugarea contr oalelor se ealizează pr m selectar ea butonului 
corespunzător tipu H de cont ol dorit, din bara de contr oale, şi descr ierea unui 
dreptunghi pe formular, în locul in care tr ebuie să apară contr olul. 


O d 
a pe trasate toate controalele de care avem nevoie, vom trece la aranjarea lor 
t re şi redimensionare) îmbinând cât mai bine aspectul cu funcționalitatea. În urma 


acestor actiuni Yom obt ne u Î i i b ne dar deo a d 
] a. $ me un formular care arată elativ j i 
( ) l > camdată nu foloseşte 


PE IEI)! 


Teieton emat 


Acasa ȚigTe:scasa 


Komi [idTermonii 


Breu [Tateorua 


Email (TdEmat 


Zona 2 


a Pena Fam, o Pee ceai 
eine a men a Toia: ceri e onan 


Zona H 
Bara de controale 


y | 
iome u. | Meron vină ai BA ER GR et 


Figura 8.5. Formular pentru actualizarea tabelei PERSOANE în faza de proiectare 


Pentr ine j ili 
po ru a obține un spor de comoditate la utilizare, un formular de acest cen se Împarte 
convențional în trei zone distincte, astfel: B i 


2 i : . ; : 
zona | — conţine controale ce permit navigarea în tabela (tabelele) sursă; 
bă 
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e zona 2 -— cuprinde obiectele de afişare/editare a conținutului surselor de date şi două 

butoane de validare sau anulare a ultimelor intervenții ale utilizatorului; 

e zona 3 — cuprinde butoane ce permit declanșarea unei acțiuni anume asupra surselor 

de date (adăugare/modificare/ştergere) şi un buton de ieşire din formular. 

Atunci când utilizatorul se află într-o sesiune de modificare a înregistrării curente 
(zona 2), celelalte două zone sunt inactive şi invers. Astfel, o dată intrat într-o sesiune de 
actualizare, utilizatorul va trebui în final să o valideze sau să o anuleze şi abia apoi să aibă 
posibilitatea să treacă la altă înregistrare şi/sau să intre într-o nouă sesiune de modificări. 
Acesta este un stil de lucru recomandat pentru formularele care actualizează un număr 
relativ mare de surse de date (multe câmpuri ale unei/unor tabele) și/sau în cazurile când 
nici un obiect de actualizare nu poate fi lăsat fără valoare introdusă. 

Tabelul ce urmează îşi propune o prezentare sistematizată a tuturor obiectelor 
formularului din figura 8.5, în ordinea numerotării lor în figură (un număr corespunde unui 
anumit tip de obiect). 


Tabelul 8.4. Principalele obiecte ale formularului 


Tip Obiect ___Nume Obiect Zona 


Functionalitate 


txtCnp 2 Afişare/editare câmp Clienti ,Cnp 
txtNume ii 2 Afişare/editare câmp Clienti Nume 
txtPrenume 2 Afişare/editare câmp Clienti. Prenume 
p TextBox txtAdresa 2 i Afişare/editare câmp Clienti Adresa 
tatTelacasa 2 Alişare/editare câmp Clienti. Telacasa 
txtTeilmobil 2 Afişare/editare câmp Clienti. Telmobil 
txtTelbirou | 2 | Afişare/editare câmp Clienti.Telbirou 


w 


Afişare/editare câmp Clienti.Email 
Cuprinde lista persoanelor din baza de date în 
ordine alfabetică. La selecţia unei persoane 
anume se realizează poziționarea cursorului pe 
înregistrarea corespunzătoare în tabela-sursă şi 
actualizarea controalelor de editare din Zona 2. 
p] Combo-Box Nu este legat la nici o sursă de date. 

i cboCodpost 2 Cuprinde lista localităţilor şi codurile poştale 
din tabela LOCALITATI. Este legat la câmpul 
CLIENTI . Codpost ca sursă de date pentru 
afişarea localităţii persoanei curente şi editarea 
acesteia. La selecţia unei localităţi se 
actualizează valoarea curentă a codului poştal 
(câmpul-sursă). 

Desemnează sexul persoanei, NU este legat 
Option opgSex direct la o sursă de date. Afişarea şi, eventual, 
Group editarea sexului persoanei curente se realizează 
la declanşarea anumitor evenimente 
(Refresh sau InteractiveChange). 
Include 2 butoane: BtnB şi BtnF. 
2 | Introdus mai mult cu titlu de exemplu. Nu este 
legat la nici o sursă de date. Funcţionează ca un 
întrerupător: 

— dacă este bifat, se activează containerul 7 cu 

obiectele de xditare a telefonului/e-mailului: 


txtEmail 
cboPersoana 


N 


H CheckBox chkTel 


Formulare Visual FoxPro 


265 
Tip Obiect Nume Obi vuncpionati 
ect | Zona |_ F uncţionalitate 
— dacă nu este bifat, containerul respectiv nu 


este activ, utilizatorul neavând acces la 


obiectele acestuia. 
Salvează actualizările sesiunii curente de 


| Beommand 


Button 


cmdok 


| modificări. 

cmdabandon Sala ____|_ Anulează ultimele modificări (ultima sesiune), 

cmălesire 3 j Pentru părăsirea formularului. 

ctntelefon | 3 Introdus, ca şi chkTel, pentru exemplificarea i 
modalităţii de accesare a obiectelor dintr-un alt 

container decât formularul însuși. Conţine patru 

textbox-uri. Este activ sau inactiv, în funcţie de 


L 
[] Container 


x starea curentă a căsuței de opțiune chkTel. J 
aia cgrActuali- 3 Conţine trei butoane de comandă pentru 
roup zare adăugare (emdAdauga), modificare 


(cmaModi fica), ştergere (cmaSterge). 
Conţine patru butoane de navigare la apăsarea 
cărora se realizează un salt înainte sau înapoi cu 
O inregistrare sau un salt la prima sau ultima 
înregistrare. 


cgrNavigare l 


ssal 


In afara celor cuprinse în tabel, mai există obiecte de tip Label (tip notat cu 6 în 
figură), precum şi formularul însuşi, care are şi el un nume, frmPersoane. Obiectele 
Label pot avea fiecare nume adecvate, dar, dat fiind rolul lor pasiv, le putem lăsa numele 
implicite, dacă nu avem de gând să le edităm prin program. 

Cât priveşte denumirea controalelor, aceasta trebuie să fie Sugestivă (să arate pe cât 
posibil sursa de date a controlului sau acțiunea pe care o permite). Pentru uşurinţa 
înțelegerii codului-sursă, este recomandabilă aşa-numita „notație ungurească”, în care tipul 


controlului este indicat de un prefix format din trei lite i 
re ataşat numelui. Aceste prefixe 
prezentate în tabelul 8.5. i = 


Trebuie să mai spunem aici că în cazul containerelor, modalitatea de lucru este 
următoarea: 


® sẹ adaugă containerul pe formular; 
e se efectuează un click-dreapta pe acesta şi, din meniul contextual, se alege opțiunea 

Edit, care va schimba starea din modul selectat în mod editare; 

„se adaugă celelalte obiecte necesare, prin trasare în container. 

Alinierea obiectelor în formular presupune utilizarea barei cu butoanele de aliniere 
Layout (sau Format—Align din meniul principal), după ce în prealabil au fost 
selectate controalele de aliniat. 

După cum se observă şi din figură, pe formularul aflat în faza de proiectare, pentru 
unele obiecte numele acestora este vizibil (Text Box şi Combo-Box), în timp ce pentru 
altele se afişează şirul de caractere introdus ca valoare a proprietăţii Caption (Command 
Button, Option Button, CheckBox etc.). Numele obiectelor nu vor fi vizibile la 
execuția formularului, în timp ce valorile proprietăţilor Caption, da. 
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Tabelul 8.5. Prefixe recomandabile la denumirea controalelor 


Tip control Prefix Tip control Prefix 
Check Box chk Line lin 
Command Button | cmd Grid | gd 
Command Grou Image PAME | 
Container | Shape shp o ooo o 
Edit Box edt Spinner |__spn 
Form frm BE |_List Box lst 
Label | Ibl | Page Frame ` fr 
Option Button opt Timer tmr 
Option Group | opg Combo-box cbo, cmb 
Text Box txt 


Înainte de a trece la partea cea mai „sensibilă” a realizării unui formular, ce constă în legarea 
obiectelor la sursele de date şi codificarea comportamentului fiecăruia, trebuie să lămurim 
mai bine ce sunt proprietățile şi metodele despre care am vorbit în treacăt până acum. 


8.3. Proprietăţi, metode şi evenimente 


Pe scurt, proprietățile sunt variabile locale ale fiecărui obiect, numite şi atribute, ce pot 
lua diverse valori, în conformitate cu funcţionalitatea acestora. Metodele sunt proceduri 
specifice asociate fiecărui obiect în parte, ce se execută în momentul invocării lor explicite 
printr-o linie de cod dintr-o altă procedură. Metodele se pot executa şi automat, la apariția 
unui eveniment. Evenimentele reprezintă una dintre pietrele de temelie ale sistemelor de 
operare de tip Windows: ele desemnează acțiuni ale utilizatorului (click-uri, deplasarea 
mouse-ului, apăsarea unei taste sau unei combinaţii de taste, scurgerea unui interval de timp, 
deschiderea unei baze de date, o cerere a sistemului de operare adresată unei aplicaţii etc.). 

Prin intermediul evenimentelor şi al metodelor (se mai numesc proceduri-eveniment) se 
implementează comportamentul obiectului. Proprietăţile, metodele şi evenimentele unui 
obiect sunt întotdeauna accesibile codului-sursă implementat la nivel superior (spre exemplu, 
la nivel de metode ale formularului); reciproc, proprietăţile, metodele şi evenimentele 
formularului pot fi accesate din cadrul codului aferent unui obiect anume de pe formular. 

Sintaxa generală pentru a accesa o proprietate sau o metodă a unui obiect este 
următoarea: 
numecontainer.numeobiect .numeproprietate[=valoare] 


sau: 
variabila= nurecontainer,numeobiect .numeproprietate 
sau: 


numecontainer.numeobiect .numemetoda 


Containerul de nivelul cel mai înalt este formularul însuşi, care în cod se specifică prin 
expresia TRISFORM. De asemenea, în codul asociat unui eveniment, numele controlului 
pentru care se tratează evenimentul poate fi înlocuit cu sinonimul THIS. 
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8.3.1. Despre proprietăţi 


3 R , : 

5 i om ara in continuare o parte din cele mai importante proprietăţi comune mai 

; i or iecte şi absolut necesare în proiectarea unei interfeţe viabile. Nu vom face aici 

A a cele 7 a uzuale (pentru că s-ar putea să nu le folositi niciodată) sau cele 
ind aspectul final al obiectului (FontColor, Backcol ai 

mg pe A or etc.); ac t 

decât intuitive în utilizare, Că bazau a 
ale ; ; 

° Marit — stochează valoarea curentă a obiectului pe parcursul execuţiei formu- 
arului. Pentru obiecte de tip listă, această proprietate preia valoarea elementului 
curent selectat. Pentru obiectele legate la o sursă de date, această proprietate are 
aceeaşi valoare ca şi valoarea curentă a sursei de date. Valorile permise pentru 
Proprietatea Value sunt redate în tabelul 8.6. 


Tabelul 8.6. Tipuri de date ale proprietăţii value 


Control Posibile tipuri de date pentru proprietatea Value 
CheckBox Integer, Logical, Numeric 
Combo-Box Character, Integer, Numeric 
CommandGroup Character, Integer, Numeric 
EditBox Character, Memo 
Grid Character, Numeric 
ListBox Character, Integer, Numeric 
|_OptionButton Integer, Logical, Numeric 
OptionGroup_ Character, Integer, Numeric 
Currency. Integer, Numeric 


Orice tip 


| Spinner 
TextBox SES 
Notă. În cazul selecției unui element din grupurile de tip OptionGroup sau 


CommandGroup propri 7 : 
> prietatea Value ja ca valoare numărul de i : 
selectat, ordine al butonului 


. ControlSource ~ specifică sursa de date a unui obiect legat și poate fi un câm 
al unei tabele sau o variabilă (eventual un element al unui tablou). Valoarea cica 
a sursei este afişată în controlul respectiv, iar o eventuală modificare a valorii 
obiectului antrenează modificarea valorii sursei de date, Este, fără îndoială, cea mai 
importantă proprietate a unui obiect, prin intermediul ei realizându-se. legătura 
efectivă dintre baza de date şi elementele interfeţei-utilizator. i 

* RowSource (se întâlneşte la controalele Combo-Box şi ListBox) — specifică 
sursa pentru elementele ce vor popula o listă. Este diferită de ControlSource - 
care, în cazul listelor, constituie, pe de o parte, sursa de afişare a unei valsti (dacă 
ea coincide cu un element din listă), iar pe de altă parte, „tinta” de stocare a unei 
eventuale modificări. Cu alte cuvinte, când alegem un element dintr-o listă, acesta 
va fi stocat în ControlSource, iar când modificăm prin program valoarea 
câmpului sau variabilei din ControlSource, obiectul va afişa un alt element din 
listă (dacă noua valoare coincide cu un element din listă); 

° RowScurceType — dedicată setării tipului sursei elementelor unui obiect de ti 
listă. Tipul ales trebuie să fie obligatoriu compatibil cu sursa specificată J 
RowScurce. Tabelul 8.7 prezintă variante posibile ale acestei proprietăți: 
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Tabelul 8.7. Proprietatea RowSourceType - variante de configurare 


BE Variantă Semnificație 
1 - Value pentru valori introduse direct în RowSource (separate prin virgulă”E) 
2 - Alias specificarea câmpurilor unei tabele. RowSource va conţine în acest caz 
lia = numele tabelei (vor fi luate în considerare toate câmpurile 
3 — SQL specificarea unei fraze SELECT - SOL ca şi RowSource. Fraza 
Statement respectivă trebuie să aibă ca rezultat un cursor sau o tabelă și nu poate 
avea mai mult de 256 de caractere (exemplu: SELECT denpr, codpr 
FROM produse INTO CURSOR CrsProduse) 
å — Query specificarea unei proceduri de interogare ce creează un cursor sau o tabelă, 
(.apr) Opţiunea oferă o mare flexibilitate şi în acelaşi timp utilitate, dat fiind 


faptul că de multe ori nu putem obține rezultatul dorit dintr-o singură frază 
SQL. Procedura de interogare trebuie să existe pe disc sub forma unui 
fişier cu extensia . qpr (chiar dacă aplicaţia este compilată într-un fişier 
executabil) şi trebuie specificată în RowSource utilizând calea completă 
(exemplu: | 
d:Naplicatielqueriesilocalitati si coduri,gpr). 
sursa de populare a listei va fi constituită din elementele unui tablou 
specificat în RowSource prin nume (fără dimensiuni) 
lista este populată numai cu valorile câmpurilor specificate, utilizând 
formatul: numetabelă . câmp2, câmpi... (exemplu: 
Produse .denpr, codpr). | 
H - Files lista de fişiere din directorul curent, cu posibilitatea navigării prin 
directoare şi chiar a schimbării discului curent. Pentru filtrarea fişierelor se 


foloseşte o mască de genul: * . jpg, nume. *, w??? . tmp etc. 

[8 - Structure | numele câmpurilor tabelei specificate în RowSource (structura acesteia) 

e ColumnCount — specifică numărul de coloane ce va fi afişat într-un obiect de tip 
listă (în cazul Combo-Box, numai la deschiderea listei) sau Grid. Dacă acest 
număr este mai mare decât numărul de câmpuri al sursei de date, ultimele coloane 
vor fi vide; 

e  Columnwiaths — stabileşte dimensiuni pentru coloanele unui obiect de tip listă. 
Se exprimă în pixeli. Dacă nu sunt specificate dimensiuni, în cazul mai multor 
coloane, fiecare linie a listei va fi dimensionată în funcţie de lungimea valorilor de 
pe fiecare linie a sursei de date, rezultând uneori un aspect nedorit al listei (de 
exemplu, pentru o listă cu trei coloane: 250, 0, 24, unde dimensiunea 0 înseamnă 
ascunderea coloanei respective). Această proprietate se foloseşte în combinaţie cu 
ColumnlLines; 

e BoundColumn — specifică a câta coloană (de la stânga la dreapta, numărătoarea 
începe cu 1) este cea legată de sursa de date (ControlSource) sau valoarea 
cărei coloane va fi preluată de proprietatea Value. Se foloseşte doar în cazul în 
care un obiect de tip listă are mai multe coloane. Oricum, indiferent de numărul 
coloanei legate, obiectul (Combo-Box sau ListBox) va afişa elementul de pe 
prima coloană, corespunzător liniei curente. 


— 


28. Controalele ListBox și Combo-Box pot avea mai multe coloane, de lățimi diferite, dintre care cel mult una 
poate fi legată la o sursă de date. 


. 


Formulare Visual FoxPro 
269 


i A 
RecordSource — proprietate pe care o regăsim numai | 


şi specifică sursa de date. Această sursă este bidirecţ 
tabelei în controlul Grid şi, totodată, valorile pot fi 
deplasarea pe altă linie producând actualizarea lor. Fie 
Grid ar trebui să fie, la rândul ei, legată prin propria proprietate 
ControlSource la o coloană a tabelei-sursă. În caz contrar grid-ul afişeaz 

coloanele în ordinea în care ele se găsesc în sursa de date; l H 
RecordSourceType — tipul 
dintre variantele din tabelul 8.8. 


a controalele de tip Grid 
ională: se afişează datele 
modificate direct în grid, 
care coloană a controlului 


sursei de date pentru un contro! Grid, Poate fi una 


Tabelul 8.8. Configurări posibile ale RecordSourceType 


a 27 Í 
lá riantă Sem njicatie 
sursa va 2 4 i — vii 
i Alias fi o tabelă din baza de date (sau ot abelă der ivată view) 


la execuţie se va deschide o fereastră de dialog pentru ca 
aleagă singur tabela-sursă. În acest caz, proprietatea Rec 
| rămâne vidă în faza de proiectare 


utilizatorul să-și | 
ordSource va 


3-Quer : i 
y (.qpr) procedură de interogare cu extensia | qpr, ce are ca rezultat o tabelă s 


cu au 
o tabelă temporară (vezi şi RowSourceType) 


4-SOL statement 


frază SELECT ce are ca rezultat o tabelă permanentă sau temporară 


* Name — specifică numele obiectului, fo] 


metodele obiectului respectiv. Obiectele di 
identice; 


osit pentru a accesa proprietăţile şi 
n acelaşi container nu pot avea nume 


Caption — specifică textul ce va fi afişat pentru obiectul respectiv; 
Enabled — poate lua doar două valori (.7.sau . F.) şi Jaani starea 
obiectului din punctul de vedere al accesibilității de către utilizator (accesibil 
inaccesibil la momentul execuției), obiectul fiind (totuşi) vizibil; na 
° Visible — poate fi .T.sau .F., setarea având ca rezultat vizibilitatea s 
invizibilitatea obiectului pentru utilizator (tot la momentul execuţiei); (i 
SelectOnEnt ry — poate fi .T.sau .F.; indică dacă val e 
obiect va fi (sau nu) automat selectată în momentul 
controlul (focus-ul). Proprietatea este utilă pentru a nu obl 
„mai întâi valoarea veche şi apoi să o intro 
scrie direct peste valoarea veche. 
set n Il pia aici sintagma „obiectul preia controlul” şi termenul „focus”; 
pi A mya sinonime şi se referă la obiectul activ la un moment dat. Această 
e prezentată vizual în maniere diferite, în funcție de tipul obiectului. Astfel 
an de tip TextBox prezintă un cursor clipitor când sunt active, controalele de 
T e OptionButton şi CheckBox prezintă un dreptunghi punctat 
cadrează textul afişat, controlul Label nu prezintă nimic, fiindcă nu i se 
ceda controlul, la controlul Grid una din căsuțe este afișată cù E fn 
ui Se , butoanele pot fi „apăsate” şi cu tasta Enter sau cu tasta Space, în 
click. Schimbarea controlului activ are loc prin click pe un alt control 
tastele Tab (înainte), respectiv Shi ftTab (înapoi). D 
* TabIĪndex — poate lua numai val 
ordinea în care va fi 


oarea curentă afişată de 
în care acesta primeşte 
iga utilizatorul să şteargă 
ducă pe cea nouă, din moment ce poate 


altă culoare etc. În 


ori numerice pozitive, de la 1 la n, Şi indică 
transferat controlul de la un obiect la altul, în cadrul 
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formularului, în cazul utilizării exclusive a tastaturii în acest scop (Tab, 
Ctrl+Tab). Iniţial este ordinea în care au fost trasate controalele, dar se poate 
modifica (cel mai simplu prin View-—Tab Order. . ., urmând a se face un click 
pe numerele afişate pe fiecare control, în noua ordine dorită); 
e  TabStop — dacă este setată cu valoarea .F., obiectul nu va primi niciodată 
controlul în cazul utilizării exclusive a tastaturii pentru deplasare; 
ButtonCount — specifică numărul de butoane disponibile într-un obiect de tip 
OptionGroup sau CommandGroup; 
ToolTipText — specifică textul ce va apărea ca etichetă pentru obiectul respectiv 
în momentul „plimbării” mouse-ului deasupra sa. Necesită setarea unei alte 
proprietăţi a formularului şi anume: ShowTips, cu valoarea . T. 
WindowType — proprietate specifică doar formularului, ce poate avea două valori: 
Modeless şi Modal. Dacă proprietatea are valoarea Moda, este interzis accesul 
la alte formulare sau la meniu atât timp cât formularul se află în execuţie. 


Atenţie! Proprietatea WindowType este foarte importantă atunci când dintr-un 
formular se apelează un altul în care trebuie efectuate imperativ o serie de operaţii. 
Astfel, dacă formularul apelat este modal, execuţia formularului apelant este suspendată 
până la ieşirea din formularul apelat, începând cu linia de cod imediat următoare celei 
care l-a lansat în execuţie. Dacă formularul apelat nu este modal, execuția celui apelant 


nu este suspendată. 


Ar mai fi de punctat şi câteva proprietăți specifice obiectelor de tip listă (Combo-Boz 
şi ListBox) ce servesc la manipularea elementelor listei. După cum vom vedea şi pe 
parcursul acestui capitol, dar şi în capitolul 10, cunoaşterea acestora este importantă pentru 
sincronizarea afişării unui element sau altul în conformitate cu valorile curente ale surselor 
de date. Pentru exemplificare, vom presupune că avem un obiect de tip listă, cu numele 
cboTest, cu două linii şi două coloane cu elementele: a77, al2, a2l, a22. lată 
proprietăţile: 

ListCount — returnează numărul de linii din lista de elemente. În exemplul 
nostru, expresia x=cboTest . ListCount va avea ca rezultat x=2; 
Listitem(nrLinie) — extrage (returnează) elementul din listă de pe linia 
specificată prin nrLinie. Dacă lista are mai multe coloane, elementul va fi 
implicit extras de pe prima coloană. De exemplu, în urma execuției instrucţiunii de 
atribuire x=cboTest .Listitem (2), x va avea valoarea a21; 

e  List(nrLinte,nrCol) — returnează elementul din listă specificat prin 
Nrlinie, Nrcoloană. Folosit pentru listele multicoloană. De exemplu, în urma 
execuţiei instrucţiunii: x=cboTest .List (1,2), x va avea valoarea a12; 
Listindex — desemnează indexul liniei curente sau care va deveni curentă şi, 
prin urmare, elementul curent afişat de control. Exemplu: 
cboTest.ListIndex=2 va determina selectarea liniei 2 din listă, iar cooTest 


va afişa ca valoare curentă a21. 
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8.3.2. Despre evenimente şi metode 


Evenimentele şi i i î 
ele şi metodele folosite mai des în proiectarea formularelor ar fi următoarele; 


"e Init - eveni — î 
i eniment — se declanșează în momentul în care se creează un obiect, la 
, 


lansarea în execuție a unui formular, 


Observaţie: i i i 
ație: evenimentul Init al unui container (exemplu: formularul) se declan- 


Şează după ce s-au inițiali j 
Ş upå ce s-au inițializat toate obiectele conținute de acesta (în ordinea adăugării | 


în container), zi 


În metoda i i i i 
ataşată evenimentului Init se pot introduce parametrii formularului prin 


utilizarea, obligatoriu pe prima linie, a sintaxei: 


LPARAMETERS parametrul, parametru? 
În A de cazuri, formularul va trebui lansat cu comanda: 
Ea a. a pata WITH valparami, valparam2,... 
pieaica crearea unui obiect, în funcţie de valoarea anumitor parametri la 


momentul ex iei. î : ; 
ao y în evenimentul Init se foloseşte instrucțiunea: RETURN. F. În acest 
> enimentul Destroy pentru respectivul object nu va mai avea loc l 


e° Destroy — eveni À î 
y niment — se execută în momentul în care un obiect este distrus 


(şters de pe ecran şi descărcat din memorie, ca de exemplu la închiderea 
formularului). 


Observaţie: i ; 
e: s 5 it, în caz i 
e Ad ctg cell de Init, în cazul containerelor (şi formularelor), eveni- 
3 Y 
Stroy la nivel de container se declanşează înainte de evenimentul 


STro al tecărui obie i 
je Yy f i ct conținut astf i e i i i 
Je fi ji > el incât pot fi ap late obiectele interne ma inte 


e Load- i înai i 
A Fi eveniment — se declanşează înainte de crearea oricărui obiect, deci înainte 
3 n k ta i . . $ A 
o Init, şi îl regăsim numai la nivel de formular. Şi în acest caz 
ili i împiedi 
za RETURN „F. pentru a împiedica lansarea în execuție a formularului 
Fi 


dacă anumite co d ți p e ără ca evenin entu y 
> nai nu sunt înde linit i 
vocat: > fă venm l Des ro să fie 


e Un — i i 
load eveniment — specific doar formularelor; se declanşează după 


evenimentul Dest roy; 


> Release — i 
ease — metodă — specifică doar formularelor; se declanşează la invocare 


efectivă printr-o lini 
F o Sa de cod (exemplu: Thisforn.helease) şi duce la 
ormularului (dispariţia sa de i 
t pe ecran şi Ştergerea din r ie) 
Declanşează evenimentele Destroy, apoi Unload: i Dii 
Activate — eveni i a 
o pă a specific formularelor şi controalelor de tip PageFrame 
nă). Se declanşează la i, câ l i 
g preluarea controlului d y 
in a i i » când un formular sau un 
g in mai multe) devine activ î iunii utili 
TEPE « In urma acțiunii utilizatorului sau 
pe ecran a controlului i ca i ii ici 
oi , dar numai ca urmare a invocării explicite prin 
GotFocus — eveni î 
TRR eveniment =se declanşează în momentul când un obiect primește 
— Ñ ocus -ul) — prin click sau deplasare cu ajutorul tastaturii: 
en — ey = = i înai i 
ic pui se declanşează înainte de Got Focus și este utilizat în genera] 
ocarea sau nu a accesului la un obiect în funcţie de anumite condiții. Dacă 
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acest eveniment returnează . F. (în codul său se scrie: RETURN .F.), obiectul nu 
va primi controlul; 

Valid — eveniment — se declanşează chiar înainte ca un obiect să piardă controlul 
şi este utilizat în general pentru a nu permite „părăsirea” controlului dacă anumite 
condiţii nu au fost îndeplinite (spre exemplu, dacă datele introduse într-un 
TextBox nu sunt valide ca format sau semnificație). Dacă evenimentul returnează 
F. (RETURN .F.), utilizatorul nu poate „pleca” de pe obiectul respectiv decât 
după introducerea unor date corecte. Condiţiile de validare se verifică în metoda 
asociată, folosind şi proprietatea Value, chiar în procedura evenimentului Valid; 
lostFocus — eveniment — se declanșează când un obiect pierde controlul 
(„focus”-ul), la click pe alt obiect ori la navigarea cu ajutorul tastaturii. Are joc 
după evenimentul Valid; 

SetFocus — metodă — controlul va fi predat obiectului specificat (exemplu: 
CmdAbandon . set focus). Nu poate fi invocată din evenimentul Valid; 
Refresh — metodă — se declanşează la invocare explicită printr-o linie de cod și 
generează reactualizarea valorilor afişate de obiecte (valori stocate în proprietatea 
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“DataEnvironment, BeforeOpen'Tables 
a ET 


i 


ESTA F 


G) Ol ect. Init (de a Àla n obiecte) 


Value), în funcție de valorile curente ale surselor de date. Apelul acestei metode 
pentru un container (de exemplu formular : Thisform.Refresh) va duce 
automat la invocarea metodei pentru fiecare obiect pe care îl conţine, provocând 
astfel „împrospătarea” tuturor obiectelor. În cazul utilizării controalelor PageFrame, 
aceeași comandă va genera metoda Refresh doar pentru obiectele din pagina 
curentă (activă la momentul invocării metodei). La execuţia metodei Refresh, 
controalele legate la câmpuri din tabele vor actualiza valorile afişate, în funcție de 


Figura 8.6. Ordinea declanşării evenimentelor dintr-un formular 


ra manieră, figura 8.7 prezintă evenimentele ce se vor declanșa la închiderea 
ă 1 formular fie din butonul specific oricărei ferestre Windows, fie la invocarea metodei 
elease a formularului în maniera: thisform. release. l 


Secvența evenimentelor care se produc în momentul în care un obiect anume preia 


înregistrarea curentă; 

Requery — metodă — specifică obiectelor de tip listă, reevaluează expresia din 
proprietatea RowSource şi actualizează lista de elemente a obiectului. -Se declan- 
şează la invocare explicită prin cod; 

Error — eveniment — se declanșează la apariția unei erori ca urmare a execuției 
codului ataşat unei metode a obiectului curent. Prezintă importanţă pentru tratarea 
erorilor ce pot apărea la execuția unui formular; 

InteractiveChange -~ eveniment — se declanşează când utilizatorul modifică 
valoarea unui obiect din tastatură sau mouse; 

Click — se declanșează la un click de mouse sau la apăsarea tastei Enter. (ori 


controlul, precum şi în momentul când acesta pierde controlul este redată în figura 8.8 


roy (de la T] 
Form.Unload: 


EA ea ie ra să 
onment.AfterClo 


3 3 : Š 
++. DataEnvironment, Destroy, = 


Space) pe obiectul curent. ; ; (5) Le 


Întrucât momentul lansării în execuţie a unui formular este extrem de important în 
funcţionarea interfeţei unei aplicaţii, prezentăm în figura 8.6 ordinea declanşării eveni- 
mentelor formularului. Obiectul Data Environment — şi evenimentele asociate — va fi 
discutat pe larg mai târziu în cadrul acestui capitol. 


| Figura 8.7. Ordinea declanşării evenimentelor în momentul închiderii unui formular 
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Transfer control 


(re > 


Figura 8.8. Ordinea declanşării evenimentelor când un obiect primeşte sau pierde controlul 


8.4. Proprietăţi ale controalelor pentru formularul 
în studiu 


În ceea ce priveşte formularul nostru, pasul următor constă în configurarea proprietăților 
fiecărui control în parte. Modalitatea standard de lucru presupune următoarea secvență de 
acţiuni: selectăm controlul ce ne interesează şi alegem opţiunea Properties, fie din 
meniul contextual deschis cu un click-dreapta, fie din opţiunea View—Properties a 
meniului principal. Vom obţine fereastra de proprietăți şi metode pentru obiectul în cauză, 
fereastră ce cuprinde, la rândul ei, cinci cadre de pagină (figura 8.9): 

e All — lista tuturor proprietăților, evenimentelor şi metodelor obiectului selectat 

(evident, este cea mai lungă); 

ə Data- lista proprietăţilor posibil a fi setate pentru legarea obiectului la sursa de 

date şi formatarea modului de afişare a acesteia; 

e Methods — metodele obiectului curent; 

e Layout — lista proprietăţilor ce determină forma sub care va fi afişat obiectul 

(dimensiuni, culori, efecte speciale); 
a Other -lista altor proprietăți ce nu se includ în categoriile Data şi Layout. 


Valorile proprietăţilor se introduc în caseta arătată în figura 8.9. Unele proprietăţi 
permit lansarea unui dialog printr-un mic buton notat cu trei puncte (...). De asemenea, o 
proprietate poate fi setată şi prin utilizarea unei funcţii ce returnează o valoare validă, 
Pentru a fi evaluată, funcţia trebuie obligatoriu precedată de semnul „=”. Spre exemplu: 
Obiect. ProprietatezIIF (condiţie, ValoareDacaAdevarat, ValoareDacaFals). 
Un buton notat cu fă, aflat în dreapta casetei pentru scrierea valorii, permite construirea 
asistată a unei expresii ce conţine funcţii. Dacă funcţia e simplă, ea se poate introduce 


direct, fără a omite semnul egal. 
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Zona de modificare a valorii proprietăților 


Lista pentru selecţia unui obiect 


CEDH Properties -frmpersoane.sen n CRE e 


TI fe 2 Rn 3 


A | Dae | Mondi ITS] Ove} 4 | da | Metode] amos Coe 
sti a 
Ea 


Nume proprietate/metodă 


Scurtă descriere a proprietăţii/metodei Valoarea curentă a proprietății 


Figura 8.9. Cele patru cadre de pagină ale ferestrei Properties 


Pentru a introduce codul procedurilor-eveniment sau metodelor, este necesar un click 
-dreapta pe obiectul dorit şi se alege din meniul contextual opțiunea Code, sau se e 
e Chiar din meniul principal, opţiunea View>Code, având selectat un obiect; şi mai 

piu, se poate executa dublu-click pe obiectul pentru care se intenționează scri 
metodelor. Va apărea o fereastră în care se va scrie codul (figura 8.10) ide 

Deplasarea la codul altei metode pentru un obiect dat poate avea loc pri lecți 
metodei adecvate din combo-box-ul situat în dreapta-sus (figura 8.10). bila ai 


cA i À 
n Metodele pentru care am scris deja cod nu respectă ordinea alfabetică 
iniţiajă, ci sunt plasate Ja începutul listei, cu caractere bold. 


Accesul rapid la o anumită metodă a unui obiect are loc direct din fereast 
Properties, după selectarea unui control și efectuarea unui dublu-click pe ie 
evenimentului/metodei. În această fereastră, metodele la care s-a ah pt pa 
iat acel [User Procedure]. Tot de aici se poate şterge complet codul unei 
nig ode, prin click-dreapta pe numele metodei, urmată de alegerea optiunii Reset 
default din meniul contextual (a se utiliza cu precauție). i sisu: 
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Lista obiectelor introduse pe 
formular 


Ei ChoPersoana.Interactirethang 


Lista metodelor şi evenimentelor 
obiectului selectat (cele cu litere 
îngroșate conțin deja cod-sursă scris de 
programator) 


Intezacinrelhange < > 
InteractiveChange 
Addliem 
AddListitem 
AddProperty 
Ciear 


7 ? Cick 
i Zona de editare a codului-sursă Dice 


Destroy 
DownClick 
Drag 
DragDrop 
DiagDver 
DropDown 
Enor 

>- [EnorMessage 


X ` Plocedure: 
i X=SEEK (THIS. VALUE, ' persoane’, 'enp') 
THISFORU, REFRESH ; 


Pioceduie: 


| enp! ) 


ie: CmaGroupNavigare 

GG CmgPrimul 

O Cmdinapoi 

3 Cmdnainte 

C3 CmdUtimul 
"FE CboPersoană 


O Cmdâdauga 
C3 CmoModifica 
O CmdSterge 
E Commandi 
O Command? 


Figura 8,11. Fereastra pentru scrierea codului (se observă lista de obiecte) 


În finalul acestei părți se cuvine a face o ultimă precizare referitoare la faptul că putem 
adăuga unui formular (dar numai lui, nu şi controalelor componente) proprietăţi şi metode 
noi (definite de utilizator), în funcţie de necesităţi. Vom recurge la această posibilitate 
pentru modularea şi eficientizarea codului. Într-adevăr, imaginați-vă că putem declanşa o 
operaţie (ce necesită 50 de linii de cod) atât prin click pe un buton, cât şi prin apăsarea unei 
combinații de taste când ne aflăm într-o căsuţă de text. Sunt cel puţin două posibilităţi: 

e una complicată: scriem cele 50 de linii de cod o dată pentru evenimentul Click al 
controlului CommandButton şi încă o dată pentru evenimentul KeyPress al 
controlului TextBox; 

e una simplă: la nivelul formularului declarăm o nouă metodă, să zicem 
OperatieComplexa, ce va cuprinde cele 50 de linii de cod, iar în evenimentul 
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Click al controlului CommandButton, respectiv în evenimentul KeyPress al 
controlului TextBox invocăm explicit noua metodă: thi 
Complexa. 


Adăugarea unei noi metode are loc prin intermediul opțiunii Form->New Method... a 
meniului sistem care afişează o fereastră de dialog (figura 8.12), 


sform.Operatie 


“jrealizeaza cautarea tuturor facturilor emise 
catre clientul selectat si copierea lor intr 


Figura 8.12. Declararea unei noi metode la nivel de formular 


O proprietate a unui control poate fi apelată din alte controale numai prin referința 
completă: THISFORM. numecontrol.numeproprietate sau THISFORM, 
numecontainer.numecontrol,. numeproprietate (dacă obiectul se află într-un 
container). Regula este valabilă şi pentru metode. 

O variabilă oarecare poate fi apelată (citită/scrisă) din evenimentele sau metodele mai 
multor obiecte numai dacă este declarată ca fiind globală (PUBLIC). În general, aceste 
variabile se declară în evenimentul Load al formularului; 


metodelor „de după”. Declararea poate avea loc şi într- 
formularul respectiv. 


pentru a fi accesibile tuturor 
c o procedură oarecare, care va apela 
Mai elegant, se poate declara o proprietate nouă a formularului, ce 
poate fi apelată din orice punct al acestuia cu THISFORM. numeproprietate. 


Declararea unei noi proprietăţi are loc cu ajutorul meniului Form—New 


> Pr cz 
care afişează dialogul din figura 8.13. îs 


: IT Access Method Ț 


Description: = i, 


= | data si ora la care am inceput lucrul 


Figura 8.13. Adăugarea unei noi proprietăți pentru un formular 
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Notă. Proprietăţile şi metodele adăugate de utilizator nu respectă ordinea alfabetică 
inițială, fiind întotdeauna adăugate /a sfârșitul listei de proprietăţi şi metode din 
fereastra Properties. 


De fapt, prin adăugarea de noi proprietăţi şi metode, am făcut deja puţină programare 
obiectuală (asemenea unui personaj literar. care făcea proză fără să ştie...). Tehnica se 
numeşte subclasare şi cu ea ne vom întâlni din nou în capitolul 11. 

În tabelul 8.9 regăsim toate obiectele formularului (mai puțin cele de tip Label) cu 
proprietăţile setate în funcţie de necesități. Nu vom insista, după cum spuneam şi la început, 
asupra proprietăților de formatare a obiectului (FontBola, ForeColor, Height, 
Width etc.). Numele obiectului este introdus prin proprietatea Name, Atenţie la obiectele 
care dispun de proprietatea Caption (Form, Label, Option Button, Command 
Button etc.) care este textul afişat pe control (în bara de titlu, pentru Form) şi nu trebuie 
confundat cu numele (Name). O altă confuzie frecventă (la începători) este aceea dintre 
numele intern al formularului (proprietatea Name) și numele fişierului (cu extensia . scx) 
în care este salvat — numele fişierului este cel care apare în secțiunea 


Documents—Forms a ferestrei Project Manager. 


Tabelul 8.9. Precizări privind controalele formularului frmPersoane 


Proprietate Valoare Comentarii 


Control: txtCnp 


ControlSource PERSOANE. Cnp Controlul este legat la atributul CNP din 


iabela PERSOANE. 
.F. — False 


La lansarea formularului, controlul este 
dezactivat (pentru lămuriri, vezi împărțirea 
pe zone a formularului prezentată la 
începutul capitolului). 

La preluarea controlului, în momentul 
execuției, conţinutul obiectului va fi 
implicit selectat. Setare foarte utilă dacă nu 
dorim ca utilizatorul să fie nevoit să 
şteargă mai întâi conţinutul vechi şi apoi să 
introducă noua valoare. 

Numărul de ordine al obiectului, ce va 
determina la al câtelea TAB (sau Enter, 
sau tastă cu săgeată) acesta va primi 
controlul în cazul utilizării exclusiv a 
tastaturii pentru navigare (este ignorat în 


cazul utilizării mouse-ului). 
Control: txtNume 


PERSOANE . Nume 


Enabled 


SelectonEntry „IT. — True 


TabIndex 5 


ControlSource 


Enabled Jo sE = False | 
SelectonEntry -Ta — True za! 
Tabilnaex 5 j 

; Control: txtPrenume _| 
ControlSource PERSOANE, Prenume 
Enabled „PF. ~ False 
SelectonEntry To e rue 


Tabilndex 7 
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Comentarii 


1: txtAGresa 


ControlSource 


|_Enablea „F. - False 


Persoane.Adresa 


Control 


LLA 
|__SelectOnEntry „7, - True 
TabIndex 8 


: txtTelacasa 


A N 


| ControlSource 
Enabled 


„7, — True 


| PERSOANE , Telacasa 


fi inactiv, 
| _SelectonEntry „1. - True 
|_Tabindex 21 


Este activ în momentul lansării în execuţie 
a formularului, dar containerul în care se 


află va fi inactiv. Ca urmare, şi obiectul va 


Control: 


„T. - True 
Tablndex 24 


Control: ctnTelacasa (în containerul ctnTelefo ] 
E S n) 
Enabled .F. ~ False 7 
TabIndex 12 Š 
al 
SpecialEfect 1-Sunken |__Aspect 3D de „scufundare”, 
L Control: txtTelmobil (în containerul ctnTelefon) 
Cont rolSource PERSOANE , Telmobil 
m IN a a 
Enablea .T. — True Vezi txtTelacasa, 
n ai BI (dei —_ 
SelectOnEntry „7. - True 
Tabindex 22 
Dati 


L : txtTelbirou (în containerul ctnTelefon) - 
ControlSource PERSOANE. Telbirou = 
Enabled .T..- True Vezi txtTelacasa. 

SelectOnEntry .T. ~ True 
Tabindex 23 
Control: txtEmail (în containerul ctnTelefon) 
ControlSource PERSOANE Email 
Enabled pap 


T. - True Vezi txtTelacasa. 
SelectonEntry ; Z] 


; Control: opgSex l 
ButtonCount 2 Include două butoane de opțiune. 
Enablea .F. - False 


aaa | 


Tablndex 9 
Control: BtnB (în grupul opgSex) 
Caption Barbatesc Textul ce apare lângă buton. 
Kame BtnB Numele obiectului, 
alue d. Este butonul implicit selectat la lansarea 
formularului. 
Control: BtnFf (în grupul opgSex) 
Caption Femeiesc 
Name BtnF 
= 
Value 0 Este deselectat la lansarea formularului. 
Folosim această proprietate pentru a 
stabili, din faza de proiectare, care opțiune 
este implicit selectată din cele existente 
L_ într-un Opt ionGoup. 
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Proprietate Valoare | Comentarii g P Proprietate J Valoare Comentarii 
Control. chkTel Column Lines sE: Linii care separă coloanele în partea 
E Caption Are telefon/emai! | Text ce apare în dreapta căsuței de bifat. H | | desfăşurată” a listei, 
Enabled Eo c False ca Style 2-DropDownList Proprietate extrem de importantă. Poate 
Style 9) 9 = Standard înseamnă căsuţă de avea două valori: 
opțiune „obişnuită”. 1 — Graphical 0 - DropDownCombo — utilizatorul va 
conferă aspectul tridimensional avea posibilitatea fie să aleagă un element 
(asemănător unui buton de comandă), din listă, fie să-l introducă de la tastatură 
apăsat când opţiunea este activată. (pentru a-l adăuga în listă, trebuie scris cod 
TabIndex 11 în evenimentul Valid); deşi utilă în 
Control: cboCcodpost a] anumite cazuri, această setare este o sursă 
ControlSource PERSOANE . Codpost Specifică atributul de care este legată lista probabilă de erori; 
şi a cărui valoare curentă va constitui: 2 - DropDownList — nu va exista 
— Sursa de afişare a unui element anume decât posibilitatea alegerii unui element 
din listă, corespunzător valorii curente din listă. În cazul în care lista este 
a câmpului; è ordonată, se poate căuta rapid în listă prin 
— „ținta” de modificare a valorii prin apăsarea primelor 2-3 caractere ale 
alegerea unui alt element din listă. elementului dorit (proprietatea 
Proprietatea DataSource va fi IncrementalSearch trebuie să aibă 
obligatoriu un câmp de tip şir de caractere, | valoarea .T.). 
Acest tip de control nu se poate lega la o Control: cboPersoana Sea 
sursă de date de tip numeric. ControlSource ] (None) SI Are doan rol de poziţionare pe o persoană 
Enabled .F. - False | i şi de „împrospătare” a controalelor ce 
Tablndex 10 - — afişează conținutul înregistrării curente. 
RowSourceType 3-SOL Statement 1 Sursa de populare a listei va fi rezultatul i Chiar dacă lista nu este legată la o sursă de 
unei fraze SELECT SQL. j date, proprietatea Value va stoca (la 
RowSource SELECT loc, | Fraza SELECT ce furnizează elementele execuţie) valoarea curentă de pe coloana 
judet, codpost listei. Când lista nu este deschisă, obiectul i specificată în proprietatea 
FROM localitati va afişa elementul curent al primei DENN BoundColumn. 
1, judete j WHERE | coloane. Observăm că lista este ordonată Enabled -T.-True 
l. jud=j.jud ORDER | după numele localității, pentru a furniza | Tabindex 1 
BY loc INTO utilizatorului posibilitatea căutării rapide RowSourceType 3-S0L Statement | Vezi cboCodpost. E 
CURSOR f | (vezi proprietatea Style). RowSource | SELECT Prima coloană a interogării SELECT este | 
crslocalitati i ALLTRIM (nume) +” | compusă (nume + spațiu + 
BoundColumn 3 A câta coloană din cele furnizate de + 4 , x 
` ` prenume), pentru că obiectul afişează în 
RowSource este cea legată la Control ALLTRIM (prenume) mod curent (când lista nu e desch, F 
Source. In cazul nostru, este coloana pe AS nume, cnp FROM elementul de pe prima coloană. Po 
care avem codul poştal, întrucât lista PERSOANE WHERE luate în considerare înregistările mareste 
serveşte la completarea câmpului NOT DELETED () : 
. pentru ştergere din tabela PERSOANE 
PERSOANE, Codpost, pentru o persoană ORDER BY (WHERE NOT DELETED ( )”) 
| nou-introdusă sau care-și schimbă domiciliul. nume, prenume INTO | 3 
ColumnCount 2 Numărul de coloane afişate la deschiderea CURSOR 
listei (click, sau Space, sau Alt+W pe crspersoane 
control), numărându-le de la stânga la | BoundColumn 2 Vezi j 
dreapta pe cele enumerate în RowSource. f cboPersoana.ControlSource. 
Daca di să fie vizibil şi codul poştal, ColumnCount 2 Vezi cboCodpost. — 
vom seta proprietatea pe valoarea 3. ColumnLines la 
ColumnWidths 200, 150 | Lăţimea fixă a coloanelor ce vor fi afişate ColumnWidths 200,200 Vezi cboCodpost. =a 
pentru aspectul estetic al listei, Dacă dorim _Style 2-DropDownbist T Vezi cboCodpost. > 


să ascundem județul, vom introduce 
valoarea 3 în ColumnCount şi 200, 0, 50 
pentru acestă proprietate. 
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Proprietate Valoare Comentarii | 
Control: cgrNavigare - 

ButtonCount 4 Include patru butoane de comandă cu 
numele: cmăPrimul, cmâlnapoi, 
cmdinainte, cmâultimul. 

Enabled .T.-True 

Tablndex 2 

Control: cgrActualizare 

E »ttonCount 3 Include trei butoane de comandă: 

cmdAdaugă, cmdMoaifică, 


cmâSterge. 


TabIndex 


Controale: cmdOK şi cmdăAbandon 


Caption OK, respectiv Abandon 
Enabled To 
Tablndex 13, respectiv 14 
În A E Aa R 


Obiect: frmPersoane (formularul însuşi) 


Ca A Actualizare Text ce apare ca titlu al ferestrei 
Persoane formularului, ; 
WindowState 1-Modal Utilizatorul nu va avea acces la meniul 


aplicaţiei (sau la alt formular) decât după | 


ieşirea din acest formular. 
Asters „F, - False Proprietate adăugată de utilizator (ca în 


figura 8.13) ce ia valoarea . T. dacă 
utilizatorul a şters măcar o persoană. Este 
folosită pentru lansarea comenzii PACK 
(ştergere definitivă) la ieşirea din formular, 
dar numai dacă în sesiunea curentă s-a 
marcat pentru ştergere măcar o 
înregistrare. Este necesară deoarece 
comanda PACK consumă un timp destul de 
mare la execuţie pentru tabelele cu multe 


_| înregistrări, mai ales dacă au şi indecşi. 
Îi EESAN, MAI ales daca au ŞI Indecsi. j 


Precizare. În cazul containerelor (Container), pentru grupurile de butoane 
(CommandGroup sau OptionGroup), manipularea butoanelor componente (de 
exemplu, în scopul rearanjării lor) presupune utilizarea opțiunii Edit din meniul 
contextual, ce se deschide la un click-dreapta pe containerul-grup (el apare încadrat cu 
linie groasă, hașurată după această operație). 


8.5. Sursele de date ale controalelor 


O dată ajunşi în această fază a realizării formularului, urmează să parcurgem următorul 
pas, prin care ne vom asigura că toate sursele de date vor fi deschise/inițializate i 
momentul lansării formularului în execuție, când se creează efectiv obiectele legate de ele. 
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Este foarte important acest aspect, pentru că, după cum ştim (vezi capitolul 
unei tabele sunt accesibile numai dacă aceasta este deschisă”, 
Avem două posibilități de rezolvare a problemei: $ 
e fie utilizăm sursa de date a formularului — Data Environment — ce se 
inițializează după cum am văzut şi în figura 8.6, înainte de iniţializarea obiectelor 
form-ului; 
e fie introducem câteva instrucţiuni de deschidere a tabelelor şi, eventual de iniția- 
lizare a unor variabile globale, în evenimentul Load al formularului care de 
asemenea se declanşează la înainte de inițializarea celorlalte obiecte (figura 8.6.) 


3), înregistrările 


8.5.1. Utilizarea Data Environment pentru deschiderea tabelelor 


Data Environment (vom folosi traducerea „Sursă de date”, deși literal ar fi „Mediu 
de date”) este un obiect specific formularelor şi rapoartelor Visual FoxPro, care permite 
selecția tabelelor şi câmpurilor folosite în formularul sau raportul respectiv, şi memorarea 
tuturor referințelor necesare în acelaşi fişier ce conţine codul formularului/raportului, 

După cum se observă și în figura 8.14, din meniul contextual deschis cu un click-dreapta 
pe formular se alege opţiunea Data Environment; apoi, din noul meniu contextual se 
alege mai întâi opțiunea Add, care va afişa o fereastră ce conţine tabelele bazei de date. În 
cazul formularului frmPersoane vom alege, bineînţeles, tabela PERSOANE. 


pa PAETE bH i Dueso. | Boero. |h si vin. CR e REOG 


Figura 8.14. Adăugarea tabelelor necesare controalelor formularului 
în Data Environment 


DI IN II 


29. Constituie excepție de la acestă regulă instrucțiunile SELEC 


T — SQL, care deschid implicit tabela dacă nu 
este deschisă deja. 
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Observaţie. Nu adăugăm sursei de date şi celelalte tabele care am stabilit că sunt 
necesare formularului (LOCALITATI şi JUDETE), deoarece acestea sunt invocate în 
fraza SQL care serveşte drept RowSource pentru obiectul cboCodpost şi se vor 
deschide automat (dacă nu sunt deja deschise) la inițializarea obiectelor respective. 
Important este ca la lansarea formularului să fie deschisă baza de date. Acest lucru se 
poate face printr-un program extern, executat prealabil lansării formularului, sau prin 
adăugarea codului pentru deschiderea bazei de date în procedura evenimentului 
BeforeopenTables a obiectului Data Environment (vezi figura 8.15). 


O dată adăugate tabelele necesare în Data Environment, este important de stabilit 
dacă acestea trebuie deschise exclusiv sau în mod partajat (shared). Setarea implicită a 
proprietăţii Exclusive (marcată cu un semn de exclamare în figura 8.14) a tabelelor din 


Data Environment este .F.-False. Ea nu trebuie schimbată dacă lucrăm într-un 


mediu multiutilizator, deoarece nimeni n-ar mai putea folosi tabelele respective până ce nu 
se termină lucrul cu acest formular. Dacă se lucrează doar în regim monoutilizator (la o 
firmă mică, având un singur calculator), putem folosi setarea Exclusive=.T., mai ales 
dacă se doreşte ca, la ieşirea din formular, să elimine definitiv toate înregistrările marcate 
pentru ştergere în sesiunea de lucru curentă (comanda PACK cere mod de lucru exclusiv), 


Dataenvronmenit 


aa aa VREI 
„ela 
„INorie) 


Palaenvăonmeni 


Figura 8.15. Metoda BeforeopenTables a obiectului Data Environment 


Ce facem cu PACK dacă suntem constrânși să folosim modul de lucru partajat (cazul cel 
mai probabil în practică)? O soluţie este să renunțăm la comanda PACK din formular, 
urmând să concepem o procedură adecvată care: 

+ încearcă să deschidă tabelele în mod exclusiv; 

e execută comanda PACK pe tabelele unde deschiderea exclusivă a reuşit. 

O asemenea procedură poate fi găsită în capitolul 17. 
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8.5.2. Deschiderea explicită a bazei de date şi tabelelor 


Data Environment este un instrument puternic, atât prin proprietăţile sal 
AutoOpenTables şi AutoCloseTables, cât şi prin evenimentele Bef sea 
OpenTables ŞI AfterCloseTables. Se oferă astfel o cale convenabilă de a iza 
rapid un formular cu un efort mai mic din partea programatorului, Cu toate acestea D iai 
Environment are şi limitări, dintre care principala este „legarea” unui formular o 
bei atata de date. Dacă utilizatorul preferă o manieră de lucru mai „migăloasă” dar 

exibilă, el poate opta pentru deschiderea/închiderea explicită a bazei de date şi 
tabelelor, folosind în acest scop evenimentele formularului: Load pentru scrierea duhai 
de deschidere şi Unload pentru închidere (dacă nu se foloseşte Data Envi a, 
atunci Load este primul eveniment, iar Unload ultimul). ie ul 


În cazul formularului i p 
i tratat aici, codul lasat in procedura evenimentu ui 
$ i i 1 Load ar putea 


Listing 8.1. Secvenţă de cod posibilă pentru evenimentul Loaa 


if not dbused(“vinzari”) 
PRE ai database “aplicatie databaselwinzari” shared 
if not used(“persoane”) 
use persoane in O shared 
endif 


Ta exemplul anterior, \aplicatie\database\vinzari este o cale relativă 
e arda a înțelege acest concept, vom preciza că elementele proiectului sunt plasate în 
lrectoare distincte, dar toate în cadrul aceluiaşi director (vezi figura 8.16) 


: B Database 
; B Forms 
S-L] imagini 
B Libs 
E-L] Meniuri 
B-{ Progs 
EI] Reports 


Figura 8.16. Structura de directoare a aplicaţiei 


Formularul proiectat este memorat în subdirectorul Forms, iar fişierele bazei de dat 
găsesc în subdirectorul Database; directorul-părinte APLICATIE are ot Ja i, 
înalt nivel. Scriind calea relativă, simulăm deplasarea din directorul Forms la dire e 
rădăcină (\)}, apoi succesiv prin directoarele APLICATIE și Database, până île 
vinzari . abc, containerul bazei de date. Ghilimelele au rolul de a consideră ca o Rar 


expresie O cale de directoare ale căror nume conțin spaţii de exemplu, C: Progr am 
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8.6. Metodele formularului şi lansarea în execuție 


Suntem acum în măsură să parcurgem și ultimul pas, cel mai „delicat” de altminteri, ce 
constă în codificarea comportamentului obiectelor. Am văzut mai sus cum se ajunge la 
fereastra pentru codul-sursă aparținând unei metode ori eveniment anume. 

Vom prezenta aici codul metodelor şi evenimentelor formularului, indicând pentru 
fiecare secvenţă de cod în care dintre proceduri trebuie introdusă. În evenimentul Load al 
formularului vom deschide sursele de date (în cazul în care nu utilizăm Data 
Environment) şi vom inițializa eventualele variabile globale. 

După cum se poate observa şi în figura 8.17, Activare,Dezactivare şi 
Sincronizare (ca şi proprietatea Asters) sunt metode adăugate de utilizator. Am 
explicat anterior la ce folosește proprietatea Asters. Cele două metode, Activare şi 
Dezactivare, servesc la activarea/dezactivarea unor controale de editare (care trebuie să 
fie inactive la consultarea tabelei, pentru a nu modifica din greșeală ceva, dar, în schimb, 
trebuie activate la operațiile de actualizare, pentru a putea adăuga ori modifica datele unei 
persoane). Cât despre cea de-a treia metodă nou-introdusă, Sincronizare, ea serveşte la 
sincronizarea listei CpoPersoana cu modificările făcute de utilizator în tabelă (după cum 
ştim, obiectul nu este legat ja nici o sursă de date). Deoarece ar fi ineficient să scriem 
aceleași instrucțiuni de mai multe ori (o dată pentru butonul de adăugare, o dată pentru cel 
de modificare etc.), este de preferat să le grupăm într-o metodă nouă, ce va fi apelată din 
orice punct al formularului printr-o singură linie de cod: THISFORM.Activare sau 


n Ta 
a fam 


ou: fairy 


cae f T 


ara coama de cae mie 2} 
Sez acivaaza pe ceia de namgar 


Sterge 


IC JAI [ARE IER RM REA E ai SR apa e EEE ae oder atitea EAA a bla) 
fai Aaa oale o iei em oo iile Ala. 
zar a new rhod to Éa urm-nirei ciast j a 


asa d oa > from g L S Beo d] em! RUUT 


Figura 8.17. Adăugarea unei metode noi: Activare 


Comentariile pe marginea codului sunt notate cu &&. 
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Listing 8.2. Metodele formularului FrmPersoane 


ZE ca die Obiect: frmPersoane 


THISFORM.cboPersoana.LISTINDEX=1 && 


THISFORM.cboPersoana. INTERACTIVECHANGE aae, pa ni element din listă 


&& asigură “refresh-u/” controalelor legate 


Seimeni Destroy 
TX 
NLEVEL(>0 && daca nu e inchis 


IF MESSAGEBOX('Salvati ultimele modificari?',32+4 'Ce face e eena 


m cu ultimele modificari ? )=6 


END TRANSACTION 
ELSE 


ROLLBACK 
ENDIF 
ENDIF 


IF THISF = 
ORM.Asters=.T, && daca a sters macar o persoana 


SELEGT persoane && nota: e nevoie de acces exclusiv!ij 


PACK 
ENDIF 


"Metoda: Activare 

WITH THISFORM 
„îxtCnp.ENABLED=.T. 
„ixiNume.ENABLED=.T. 
„txtPrenume.ENABLED=. 7. 
„bxtAdresa.ENABLED=Ţ. 
-OpgSex.ENABLED=.T. 
„chkTel.ENABLED=.7. 
„cmdOK.ENABLED=.Ț, 
„cmdAbandon.ENABLED=.T, 
„cboCodpost. ENABLED=.Ţ, 
„cboPersoana.ENABLED=.F. 
CgrNavigare. ENABLED» F. 
„CgrActualizare.EN, = 

ENDWITH al 


THISFORM.chktel. INTERACTIVECHANGE 


"Metoda: Dezactivare 

WITH THISFORM 
„ixtCnp.ENABLED=.F. 
„îxtNume.ENABLED=.F. 
„xtPrenume.ENABLED=.F, 
„ixtAdresa.ENABLED=.F. 
„opgSex.ENABLED=.F. 
„chkTel.ENABLED=.F. 
„cinTelefon.ENABLED=.F. 
„CmGOk.ENABLED=.F. 
„mdAbandon.ENABLED=.F. 
„cboCodpost.ENABLED=.F. 
„cboPersoana.ENABLED=.Ţ. 
„cgrNavigare.ENABLED=.Ţ. 


.CgrActualizare.ENABLED= 
ENDWITH SERE 


*Metoda Sincronizare 
san TO THISFORM.cboPersoana.LISTCOUNT 
HISFORM.cboPersoana.LIST( i, 2 )==CrsPersoane.Cnp 


THISFORM.cboP =i 
Sp ersoana.LISTINDEX=i 


ENDFOR 
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THISFORM.cboPersoana. INTERACTIVECHANGE P Obiect: cgrNavigare.cmdUltimul 
Eveniment: Click i 
Obiect: cboPersoane SELECT CrsPersoane 
“Eveniment: interactiveChange GO BOTTOM 
x=SEEK(THIS.VALUE 'persoane','cnp') && caută cnp-ul persoanei selectate şi se poziţionează pe THISFORM, cboPersoana.LISTINDEX=THISFORM.cboPersoana LISTCOUNT 
. && înregistrarea respectivă * ListCount specifică numărul total de elemente din listă 
THISFORM.REFRESH && asigură 'reimprospătarea” controalelor legate conform THISFORM. cboPersoana.INTERACTIVECHANGE 
&& înregistrării curente 
E , Obiect: cgrNavigare.cmdinainte 
Obiect: txtCnp Eveniment: Click 
*Eveniment: Valid i SELECT CrsPersoane 
IF LEN(ALLTRIM(THIS.VALUE))<13 SKIP 1 
MESSAGEBOX('Codul numeric persona! are obligatoriu 13 cifre',16,'CNP incorectţ) IF EOF( 
RETURN F. && blochează transferul controlului la un alt obiect MESSAGEBOX(Ati ajuns la ultima persoana", 64, ' Atentie! ') 
ENDIF GO BOTTOM 
ENDIF 
: - Obiect: opgSex THISFORM.Sincronizare 
"Eveniment: InteractiveChange 
IF THIS.btnB.VALUE=1 && a fost selectată opțiunea ‘Barbatesc’ ; Ş Obiect: cgrNavigare.cmdinapoi 
REPLACE PERSOANE.SEX WITH 'B' Eveniment: Click 
ELSE && a fost selectată opțiunea 'Femeiesc' SELECT CrsPersoane 
REPLACE PERSOANE.SEX WITH 'F' SKIP -1 
ENDIF IF BOFQ 
MESSAGEBOX('Ati ajuns la prima persoana", 54, Atentie! * ) 
"Metoda: Refresh && nu uităm că este invocată implicit la: thistorm.refresh ` GO TOP 
IF persoane.sex='B' ENDIF 
THIS .btnB.VALUE=1 
THIS.btnE VALUE=0 | i THISFORM. Sincronizare 
ELSE 
THIS. btnB.VALUE=0 
THIS.btnF.VALUE=1 : , Obiect: cgrActualizare.cmdAdauga 
ENDIF g Eveniment: Click 
i SELECT MAX(codpost) FROM localitati INTO ARRAY alocdefault 
Obiect: chkTel i BEGIN TRANSACTION 
*Eveniment: InteractiveChange | INSERT INTO persoane VALUES (, », n, n 'B', alocdefault(1), ", », «, » 
IF THIS.VALUE=1 && controlul este “bifat” f THISFORM.REFRESH 
THISFORM.ctnTelefon.ENABLED=.T. THISFORM.activare 
ELSE && controlul nu este “bifat” | THISFORM.btenp.SETFOCUS 
THISFORM.ctnTelefon.ENABLED=.F. | 
ENDIF i ȘI Ă Obiect: cgrActualizare.cmdModifica 
i Eveniment: Click 
"Metoda: Refresh g BEGIN TRANSACTION 
IF !EMPTY(persoane.telmobil) OR IEMPTY(persoane.telbirou); THISFORM.activare 
OR !EMPTY(persoane.telacasa) OR !EMPTY (persoane.email) THISFORM.txtenp.SETFOCUS 
THIS.VALUE=+ z i 
ELSE && toate cele patru câmpuri sunt vide | A i Obiect: cgrActualizare.cmdSterge 
THIS.VALUE=0 Eveniment: Click 
ENDIF SELECT persoane 
IF MESSAGEBOX(' Sunteti sigur? ', 32+4, ' Persoana curenta va fi stearsa n )=6 
Obiect: cgrNavigare.cmdPrimul DELETE 
*Eveniment: Click THISFORM asters=.Ț. 
SELECT CrsPersoane && cursorul din cboPersoane.RowSource ENDIF 
GO TOP : i A E Obiect: cmdOk 
THISFORM.cboPersoana.LISTINDEX=1 Eveniment: Click 
THISFORM. cboPersoana. INTERACTIVECHANGE Dap TON 
i „dezactivare 
THISFORM. cboPersoana.REQUERY 
THISFORM.Sincronizare 
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Obiect: cmdAbandon 
"Eveniment: Click 

ROLLBACK 

THISFORM.dezactivare 


Obiect: cmdlesire 


"Eveniment: Click 
THISFORM.RELEASE _____ 


Persoane: 


ze i las Sarion 
[TE pen iosaid 
r |Popzeri ioana 
na A zeta Simion E i 
Li [vase Simona ONPE 


Pronume i A z - 
Birou - {103276 i e 


Eat Î NULL 


Adesea 


> Sex: 
IT Bathatasc 
4 ; 


L Femeiesc 


Localitate 


: PP Bia uieture tal 


Figura 8.18. Formularul £rmPerscane în faza de execuţie 


Lansarea în execuţie a formularului (figura 8.18) se realizează cu ajutorul comenzii DO 
FORM <numeformular>: 

DO FORM “Naplicatielformsifrmpersoane” 

Această comandă se include într-o secvență de cod ori se scrie direct în fereastra 
Command, Execuţia se poate declanşa şi cu butonul : r | din bara de instrumente standard 
a Visual FoxPro, ori cu opțiunea FormRun Form din meniul principal (sau rapid cu 
Ctrl+E). Aceste ultime opțiuni nu sunt accesibile decât dacă formularul este deschis în 
fereastra Form Designer. De asemenea, dacă dispunem de un proiect (tot pe parcursul 
realizării unei aplicaţii), se poate selecta numele formularului în secțiunea 
Documents | Forms a proiectului, folosind apoi pentru execuţie butonul Run. 

Formularele se pot lansa şi cu parametri, dar numai prin comanda: 

DO FORM numeformular | (parametrul, parametru2...)] 

Reamintim că parametrii sunt preluaţi de evenimentul Init al formularului, deci în 
codul acestuia, pe prima linie, trebuie să existe declaraţiile PARAMETERS sau 
LPARAMETERS. Parametrii sunt creați iniţial ca variabile de tip Logical, cu valoarea 
implicită . F., şi vor rămâne aşa dacă nu se transmite nimic prin comanda DO FORM. 

Presupunând că, în funcţie de anumite opțiuni, am vrea să lansăm formularul maximizat 
sau la dimensiunea „normală” (stabilită la proiectare), evenimentul Init trebuie modificat 
astfel: 


Listing 8.3. Evenimentul Init în cazul formularelor parametrizate (varianta 1) 


Eveniment: Init 
LPARAMETERS stare_formular 


!___1F stare _formular="max" && “maximized” 
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THISFORM.Wi = 
ENDIE WindowState=2 


TH 
a On apaRersoanaiLISȚINDEX SA && obiectul va afişa implicit primul element din listă 
; ersoana.INTERACTIVECHANGE && asigură 'refresh-ul” controalelor legate 


E Forms 
: 8) fimactivex 
5] timolienti 
-E hminifact 
+- E8] lmproduse! 
: fim_ehart 
i produse 
|E- Reports 
ET Labels 


FE |Descipton i 


Path, i uk N ms Vfimpeisoane, sox i [i 


Figura 8.19. Formularele unui proiect în curs de realizare 


Lansarea în execuţie în noile condiţii se poate face astfel: 
DO FORM Naplicatie forms frmpersoane „Scx” WITH n 


T otuși, dacă nu se foloseşte clauza opțională WITH sau dacă lansarea în 
prin opțiuni de meniu ori prin butonul Run, va a 


Init. Într-adevăr, pentru proprietatea 
WindowState= 


max” 


execuţie are loc 
părea o eroare provenind din metoda 
WindowState a unui 
ea e=. F. este o setare incorectă. Pentru a împiedica apariția erorii î 
= nu e nevoie de lansarea parametrizată, vom modifica 
Init ca în listingul 8.4. 


formular, 


i n cazul în 
din nou procedura evenimentului 


Listing 8.4. Evenimentul Init în cazul formularelor parametrizate (varianta 2) 


MOS stare_formular 
” daca este de tip sir de caractere si are valoarea “max” 
IF TYPE(“'stare_formular”)="C” and LOWER pa 


THISFORM.WINDOWSTATE= 
ENDIF o 


THISFORM.CboPersoana.LISTINDEX=1 
THISFORM.CboPersoana.INTERACTIVECHANGE 


(stare_formulan)="max” 


p33 x . 
este „max”, deoarece altă valoare nu interesează. 


Se verifică mai întâi dacă i i 
rifică mai întâi dacă s-a transmis ca parametru un şir de caractere şi dacă acesta 


Notă. iabi 
Alta T parametru se comportă ca o variabilă locală la nivelul procedurii eveni- 
ui Init. Dacă el trebuie consultat altundeva în formular, în aceeaşi procedură 


Init se va atribui valoarea lui unei variabile publice sau, mai el 


egant i jetăţi 
a formularului, creată special, iii aia 


Capitolul 9 


Tabele virtuale 


În mod obişnuit, tabelele virtuale sau derivate (există o anume diferență între aceşti 
termeni, diferență pe care o vom trece cu vederea) sunt percepute ca tabele noi, construite 
prin subconsultări aplicate asupra tabelelor de bază sau altor view-uri. Standardul SQL-92 
defineşte view-urile ca tabele virtuale ce sunt materializate atunci când este invocat numele 
lor. Materializarea înseamnă, de fapt, execuţia frazei SELECT, ce constituie definiţia tabelei 
virtuale şi popularea cu înregistrări ce reprezintă rezultatul interogării. 


9.1. Generalităţi despre tabele virtuale 


Care ar fi motivele recurgerii la o tabelă derivată? În primul rând, pentru posibilitatea de 
a extrage, din una, două, trei... tabele, mai multe informaţii pe care să nu le stocăm nici în 
tabele propriu-zise (mari consumatoare de spaţiu), nici în variabile de memorie (atât de... 
volatile, dar şi limitate, la urma urmei). Deși pare plauzibil, acest motiv prezintă serioase 
contraargumente. Dacă problema este numai de extragere şi afişare a datelor, atunci se 
recomandă utilizarea fie a cursoarelor, fie a fişierelor-interogare (filtre), ce au extensia 
-QPR şi pot fi lesne incluse în proiect. La urma urmei, Query Designer seamănă 
binişor cu View Designer. Problema este că fişierele-interogare nu fac, propriu-zis, 
parte din baza de date şi nu pot fi utilizate în Data Environment ale rapoartelor. Un 
alt atu al views față de querys în Visual FoxPro ține de faptul că o tabelă derivată 
poate fi parametrizată (se poate solicita introducerea de la tastatură a valorii unui atribut al 
tabelei derivate chiar în momentul lansării, deci „filtrul poate fi construit interactiv). 


9.1.1. Ce sunt tabelele virtuale şi care este utilitatea lor 


Noţiunea de tabelă derivată apare în BD relaționale legată de nivelul extern, nivelul la 
care utilizatorii sau grupurile de utilizatori interacționează cu baza de date. Din acest punct 
de vedere, este îndeobşte recunoscut faptul că tabela virtuală facilitează accesul la baza de 
date şi diminuează riscurile accesului neautorizat. În VEP putem spune că prin tabelele 
virtuale este facilitat accesul. 


Cele mai importante avantaje ale tabelelor derivate decurg din faptul că acestea sunt 


actualizabile, iar modificarea lor poate fi propagată în tabelele-sursă din care provin. De 
asemenea, în Visual FoxPro, prin tabele derivate putem gestiona (cam mult spus) baze de 
date Oracle, SQL Server etc. Nu în ultimul rând, tabelele derivate sunt foarte utile în 
formulare, mai ales ca surse ale controalelor de tip Gria. 


Tabele virtuale 


NI E 


9.1.2. Tabele virtuale în SQL.-92 


a a în SQL-92 al comenzii de creare a unei asemenea tabele virtuale este: 

E2 IEW <nume-tabelă-virtuală> [<listš- i 

de A ia [ stă-coloane>] As 
[WITH (<clauză de nivele>] CHECK OPTION] 


unde 
<clauză de nivele> ::= CASCADED | LOCAL 


: O dată creată tabela virtuală, definiția sa este salvată în schema bazei. Ulterior ori de 
Câte ori este necesar, la deschiderea/reîmprospătarea tabelei derivate aceasta t 
(re)populată cu înregistrări extrase din cele ale tabelelor propriu-zise ce par în dia 
FROM a interogării. O tabelă virtuală poate fi deci privită şi ca o expresie de subconsult j 
a unei tabele persistente, stocată în bază și invocată prin numele său, zi 

Potrivit SQL-92, unei tabele virtuale nu i se pot asocia indecşi şi nici defini restricții 
deşi unele SGBD-uri optimizează lucrul cu view-urile folosind indecşii tabelelor persi t i ' 
Numele său este unic, şi nu se poate autoreferi, deşi un view poate fi creat z aer 
combinații de tabele persistente şi/sau alte view-uri. i Bai 

3 A sa introduce şi noțiunea de tabelă derivată, definită asemănător celei virtuale, dar 
e pot defini restricții şi asocia indecşi, fiind, spre deosebire de tabela virtuală, 
BE i mic baia ale a aa AS <nume-tabelă-virtuals> [<listă- 

La creare, o tabelă virtuală poate fi declarată actualizabilă sau non-actualizabilă (Read 
Only). Pentru a fi actualizabilă, o tabelă virtuală trebuie să aibă fiecare linie a sa a 5 
unei singure linii din tabelele bazei. La modificarea unei linii din view A 
făcută, În aceste condiţii, fără probleme de ambiguitate. 

Fireşte, o tabelă derivată de genul: 

CREATE VIEW vJudetel AS 

SELECT + 

FROM Judete 

WHERE regiune = ‘Moldova’ OR regiune = "Dobrogea! 
nu va crea probleme insolubile la actualizare. În schimb, deși cu un conţinut identi 
VIUDETEI, tabela virtuală VJIUDETE2, creată prin comanda care urmează. nu a 


actualizabilă nici în SQL- ici î jori ilor i 
o ha n 092, nici în majoritatea SGBD-urilor importante 
SELECT * 
FROM Judete 
WHERE regiune = ‘Moldova’ 
UNION 
SELECT * 
FROM Judete 
WHERE regiune 


» Propagarea poate fi 


1r 


"Dobrogea! 


30. Preluare din [Celko2000], p. 266, 
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| ON CLIENTI.CodPost = vLOCALITATI.CodPost 
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Regulile actualizări tabelelor în SQL-92 sunt foarte stricte”: 


Tabela virtuală trebuie derivată dintr-un SELECT cu o singură tabelă de bază; mai 
multe tabele de bază înseamnă mai multe niveluri ale tabelelor virtuale. Spre exemplu, 
pentru a construi o tabelă virtuală VCLIENTI în care pot fi modificate: denumirea 
clientului, adresa sa, denumirea localității în care îşi are sediul şi numele județului, sunt 
necesare următoarele view-uri — listingul 9.1. 


Listing 9.1. Tabele virtuale definite pe baza altor tabele virtuale 


CREATE VIEW vJudete AS 
SELECT * 
FROM Judete 


CREATE VIEW vLocalitati AS l 
SELECT CodPost, Loc, vJudete.Jud, Judet, Regiune 
FROM LOCALITATI INNER JOIN vJUDETE 

ON LOCALITATI.Jud = vJUDETE.Jud 


CREATE VIEW vCiienti AS | 
SELECT CodCi, DenCi, Adresa, vLocalitati. CodPost, Loc, Jud, Judet, Regiune 


FROM CLIENTI INNER JOIN vLOCALITATI 


2. Tabelele virtuale trebuie să includă toate coloanele cheilor primare/alternative ale 


tabelelor de bază. O linie dintr-o tabelă virtuală trebuie să corespundă unei singure linii 


din tabela de bază. 
Toate coloanele neincluse în view trebuie să permită valori NULL sau să prezinte valori 


implicite. Altminteri, inserarea unei linii într-o tabelă derivată ar fi imposibilă. 


U 


Nu poate fi actualizată o tabelă virtuală creată prin fraze SELECT în care apar: 
e clauze GROUP BY / HAVING, 

ə funcții agregat, 

e coloane calculate, 
kd 


UNION, 
e  INTESECT, 
e EXCEPT (MINUS), 
èe SELECT DISTINCT. 


Din punctul de vedere al actualizării tabelelor virtuale, SQL-92 este mult mai limitat 


decât o cer regulile lui Codd, preferându-se siguranța. Multe SGBD-uri sunt însă mai 


îngăduitoare în această privință. Mai mult, în SQL3 şi o serie de SGBD-uri, prin mecanisme 
de genul declanșatoarelor INSTEAD OF, multe probleme ale tabelelor virtuale, insolubile 


în SQL-92, îşi găsesc rezolvarea. 

Atunci când tabela virtuală este actualizabilă, se poate folosi clauza WITH CHECK 
OPTION pentru un mai bun control al modificărilor. vJudeteMcidova conține 
înregistrările tabelei JUDETE pentru care valoarea atributului Regiune este Moldova: 


31. [Celko99], p. 57 
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CREATE VIEW vJudeteMoldova AS 
SELECT * 
FROM judete 
WHERE Regiune='Moldova' 
WITH CHECK OPTION 


Comanda INSERT în formatul: 


INSERT INTO vJudeteMoldova VALUES ('BC', 'Bacau', 'Moldova!) 


se execută fără probleme, ceea ce nu este valabil şi pentru: 


INSERT INTO vJudeteMoldova VALUES ('AR!, 'Arad', 'Banat!) 


care va genera un mesaj de eroare din cauza regiunii care nu este acceptată în tabela 
virtuală, graţie clauzei CHECK OPTION. În SQL-92, clauza de verificare este, implicit 
declanșată în cascadă (CASCADED), adică atât pentru tabela virtuală curentă cât şi pe 
cele pe baza cărora a fost construită, nivel cu nivel. Cu toate acestea, CASCADED în pia 
înlocui cu LOCAL, caz în care se verifică numai WEERE-ul prezentei tabele virtuale te a 
se testa modul în care modificările afectează tabelele derivate de pe nivelurile inferioare 
e aaa unei tabele viruale din schema bazei de date se realizează prin comanda DROP 

DROP VIEW <nume-tabelă-virtuală> <comportament> 

unde 

<comportament> ::= CASCADE | RESTRICT 


i Prin clauza CASCADE se şterg atât tabela virtuală curentă, cât şi toate cele create pe 
aza acesteia, în timp ce RESTRICT interzice operaţiunea atâta timp cât există măcar un 
view construit pe baza tabelei virtuale curente. 


9.2. Crearea tabelelor derivate VFP în mod asistat 


Visual FoxPro este un produs generos în ceea ce priveşte tabelele derivate care, după 
Cum se va vedea în continuare, acordă o mare libertate dezvoltatorilor, în comparaţie 4 
restricțiile standardului SQL-92. În VFP tabelele virtuale pot fi create atât grafic, cât şi rin 
program. Important este că pot fi definite explicit atributele modificabile A 
nemodificabile, modul de actualizare a tabelelor, ba chiar mai mult, se pot defini indecsi si 
reguli de validare chiar la nivel de view”. a a, 
Ea Belea de atributele denormalizate introduse în capitolul 6 în tabela 

NUP » pentru început ne propunem să construim o tabelă virtuală ce conține liniile 
(detaliile) facturilor, prin parcurgerea procedurii de creare în mod asistat. Prin urmare v 
trebui să adăugăm (de fapt, să creăm) în fereastra Project Manager un nou obiect 
üp view. Acest lucru se realizează în felul următor: i 

e selectarea paginii Data (sau nodul Data din pagina A11); 

° Ea agite S Databases, apoi a nodului corespunzător bazei de date 

e selectarea nodului Local views; 

e  „apăsarea” butonului New, deschizându-se fereastra New Local View; 


32. Vezi şi [Fotache&Strîmbei99-2]. 
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e  „acţionarea”, din fereastra New Local View, a butonului sub care se găseşte 
eticheta New view. 
Ca urmare a acestei succesiuni de operaţii, va fi lansat instrumentul View 
Designer. Procedura propriu-zisă de creare a tabelei virtuale poate fi descrisă astfel: 


1. Specificarea câmpurilor din tabelele-sursă din baza de date care vor forma schema 
finală a tabelei derivate , i 

Cum e și normal, înainte de a declara expresiile câmpurilor care vor forma schema 
tabelei derivate, View Designer-ul solicită specificarea tabelelor de bază din care se va 
construi tabela virtuală. Acest lucru se realizează prin fereastra Add Table, care, de 
obicei, apare implicit o dată cu lansarea asistentului pentru crearea unei noi tabele virtuale. 
Altminteri, această fereastră poate fi lansată folosind opţiunea Add Table... din meniul 
Query, meniu activ doar pe durata utilizării View Designer-ului sau Query 
Designer-ului (crearea unei interogări — query — se derulează la fel ca şi crearea unei 
tabele virtuale, cu excepţia pasului 4). 

Lucrul cu fereastra Add Table este similar rapoartelor în ceea ce priveşte 
specificațiile legate de mediul de date (Data Environment). Singura excepţie intervine 
atunci când între tabelele de bază nu există legături permanente pe baza cărora să fie deduse 
expresiile de joncțiune corespunzătoare; atunci utilizatorul este invitat prin dialogul Join 
Condition să precizeze ad-hoc aceste expresii. 


Pentru exemplul nostru vor fi adăugate, în ordine, următoarele tabele: LINIIFACT, 
FACTURI, PRODUSE. Începând din momentul adăugării celei de-a doua tabele, în cadrul 
Join al View Designer-ului apar automat expresiile de joncțiune deduse pe baza 
legăturilor permanente deja declarate în baza de date (vezi fisura 9.1). 


datalact 
gestiune 
codel 
` fobs 


Corespondenta legăturilor 
permanente cu conditiile de join 


| Fer | Order By | Group By | Update. Cite | Miscelaneo 


Fiekis 
Typ Field Name, Not Gilera $ Vale 
« Inner dou  Facturn.nifact = Lirătact nifact 
tje Innerdoi:  Produse.codpr = Linăfact codp 


Ei 


E insert Remove 


Figura 9.1. Adăugarea tabelelor de bază şi formarea clauzelor de joncțiune 
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Pagina View Designer-ului în care se mută apoi teat ațiunilor” 
Fields. Astfel, din coloana Available Fields pia lepsa n 
LINIIFACT .nrfact, FACTURI. Gatafact, LINIIFACT linie an A cat 
codpr, PRODUSE. denpr, PRODUSE. um, LINIIFACT. cantitat a 
FACT. pretunit, care se adaugă (pe rând sau în bloc) în coloana Sel = zal dea 
apelându-se la butonul Add. iei i 

Pentru adăugarea câmpurilor calculate dedicate valori; fără TVA, TVA-ului şi i 
totale a liniei din factură, se va selecta căsuţa de tip text "Fun a sii 
Expressions în care, pentru valoarea fără TVA (spre exemplu) Să at o 
expresia LINIIFACT.cantitate * LINIIFACT. pretunit (cei filar Ea 
instrumentul Expresion Builder Îl pot apela prin butonul etichetat cu t ae 
suspensie). In fine, pentru a aduce şi acest câmp novw-creat în lista Select da e E 
vom apela din nou butonul Ada. ; TOR ETA 
ie sade se procedează și pentru câmpurile prin care se calculează TVA-ul şi valoarea 

a a liniei din factură, folosind expresiile  LINIIFACT. canti tate* 
LINIIFACT .pretunit * PRODUSE .proctva Şi LINII FACT. i î să 
LINIIFACT. pretunit* (1+PRODUSE.proctva) %, i aa 


d 


SR 


Câmpuri din tabelele de 
bază care pot fi adăugate 
direct 


z i Expresii pentru câmpuri 


; SE calculate 
4 A PE e ey e A ra zi L 
Fiel i ie Ciara | ) 
ields |Join | Fiter | Orce p9] Group By | Update Criteria ] Misogitâneous | i Câmpurile 
e sii Dia : a Și ile care 
Avadable fields: : cata If Selected falie vor forma 
Adu F [_] Linifactcadpr & [| schema finală a 


Produse.denpr tabelei derivate 


acturi gestiune 
Factuti.codel 
Facturi. obs 
Facturi. valtva 


BANS p EF Produse. um 
= Linifact cantitate 


îi 4 Eee” 


Figura 9.2. Specificarea câmpurilor tabelei virtuale 


2. Declararea ev iterii i 
5 entualelor criterii de selectie j istrări 
ție pentru înregistră i for 
Ee gistrările care vor forma 
A A ; AEN | 
, această etapă se vor preciza criteriile prin care se filtrează setul de înregistrări 
constituit la deschiderea tabelei derivate. Spre exemplu, dacă dorim ca view-u] să conţină 


33. În capitolul 6 paragraful 6.5.2 sunt exemplificate câteva proceduri stocate (mai exact triggere) t 
z xa ggere) pentru 


determinarea valorilor unor câmpuri calculate gen FACTURI ValTotala Pentru a ex A ; 
caracteristicile utile ale view-urilor, am ignorat întru câtva această cale in prezentul pia. SALA Coat 
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numai liniile facturilor emise între 01/08/2001 şi 07/08/2000, vom preciza un criteriu 
în felul următor: selectăm cadrul Filter, iar în prima linie a grid-ului acestuia alegem 
atributul FACTURI .Datafact din combo-box-ul aflat în coloana Field Name, apoi 
din coloana Criteria selectăm Between, iar în coloana Example vom introduce 
expresia CTOD ("01/08/2000"),  CT0D("07/08/2000"). Notaţia este un pic 
ciudată, dar e singura funcționabilă, în ciuda recomandărilor din MSDN privitoare la 
criteriul Between pentru filtrele din View Designer. Pentru interpretarea corectă a 
datelor calendaristice precizate anterior este recomadabil să se execute o comandă gen SET 
DATE TO BRITISH înainte de deschiderea tabelei derivate. 


| 25 View Designer  vfacturiasist. 


codpr 
denpi 
um 

:.| grupa 
pioctya 


i dei By | Group By T Update Criteria 


i Noi Catei 


pa isi | “ Remove q 


Figura 9.3. Declararea criteriilor de selecție 


3. Declararea eventualelor criterii de ordonare şi de grupare a înregistrărilor care 
vor forma tabela derivată 

Pentru ordonarea înregistrărilor ce vor forma tabela derivată se foloseşte pagina Order 
By, unde în coloana Selected Fields se regăsesc câmpurile selectate în pasul 1, Se 
vor alege câmpurile LINIIFACT.nrfact şi LINIIFACT. linie din lista din stânga 
cadrului de pagină, adăugându-se apoi în lista Ordering Criteria prin selectarea 
butonului Ada. În consecință, acestea vor deveni criterii de ordonare. | 

Dacă s-ar fi dorit constituirea înregistrărilor din tabela derivată din grupuri de 
înregistrări ale tabelelor de bază, s-ar fi utilizat cadrul de pagină Group By. în care 
câmpurile disponibile pentru grupare se regăsesc în lista Available Fields şi care, 
mutate în lista Grouped fileas, pot deveni criterii de grupare (dacă dorim să obținem 
în final o tabelă derivată actualizabilă, atunci trebuie evitat acest cadru). 
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ati 


Titouan heida : 


Seine $ 


Figura 9.4. Precizarea criteriilor de ordonare şi grupare 


4. Specificarea opțiunilor privind gestiunea actualizărilor tabelelor de bază (normal, 
pentru situația în care tabela derivată este creată în acest Scop) 
Dacă tabela derivată este construită numai pentru vizualizarea datelor aflate în tabelele 
A bază, acest pas nu este obligatoriu. Dacă se doreşte însă modificarea datelor din tabela 
erivată și transmiterea acestor modificări în tabele de ba i i 
i 5 ză, atunci pasul d 
o A p 4 devine absolut 
In esenţă, această etapă presupune specificarez i 
3 specificarea, folosind tab-ul Update Cri i 
a următoarelor opțiuni: i D 


Câmpurile ce vor fi declarate actualizabile 

Spre deosebire de specificaţiile standardului SQL-92, în Visual FoxPro se poate forța 
nota aşa încât să se încerce actualizarea mai multor tabele de bază folosind cezar) tabelă 
Virtuală, cu rezultate, într-adevăr, destul de imprevizibile în anumite situații. În acest sens 
în cadrul de pagină Update Criteria se găseşte o listă combinată numită Tables și 
localizată undeva în stânga, prin care se filtrează o listă centrală. Aceasta va fi folosită 
pentru a face specificaţii fie asupra unei anumite tabele, fie asupra tuturor tabelelor de bază 
privind câmpurile ce vor fi declarate actualizabile. În acest scop, câmpurile din tabelele de 
bază care se doresc a fi actualizabile prin tabela derivată se vor bifa în coloana deasupra 


căreia se află simbolul ce sugerează un creion 2, 


Tot în lista centrală din pagina Update Criteria este foane important să se 
precizeze câmpurile din tabelele de bază care formează cheia de actualizare (de regulă se 
mapează cu expresia cheii primare). Acest lucru se realizează bifând câmpurile deseuri 
zătoare în coloana deasupra căreia se găseşte un simbol ce sugerează o cheie £. 

In cazul nostru, singura tabelă actualizabilă este LINIIFACT, aşa încât cheia de 
actualizare este alcătuită din atributele LINIIFACT. nrfact şi LINTIFACT. lini e 
care formează de fapt cheia primară a tabelei LINIIFACT. De asemenea prin tabela 
derivată se declară actualizabile doar câmpurile LINIIFACT.nrfact LINII- 
FACT. linie, LINIIFACT.codpr, LINIIFACT.cantitate şi LINITEACT 
pretunit (vezi figura 9.5). iii ăi 
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Modul de propagare a modificărilor 

Mecanismul pentru propagarea modificărilor din tabela derivată către tabele de bază se 
aseamănă cu execuţia unei fraze UPDATE-SQL. Astfel, valorile care vor fi transmise în 
tabele de bază sunt preluate în clauza SET pomind de la câmpurile declarate actualizabile, 
însă clauza WHERE care efectuează testul prin care se determină liniile din tabelele de bază 
care vor prelua aceste valori poate fi constituită în mai multe moduri. În acest sens, în cadrul 
de pagină Update Criteria există un grup de butoane-radio etichetat SOL WHERE 
clauses includes (localizat în dreapta — vezi figura 9.5), cu următoarele opţiuni: 

e Key fields only -prin care numai valorile câmpurilor declarate cheie sunt luate 
în considerare în clauza WHERE. Cu alte cuvinte, propagarea actualizărilor are loc 
numai în condiţiile în care se constată că au rămas nemodificate valorile câmpurilor din 
tabelele de bază care au fost declarate cheie în tabela derivată; 

e Key and updatable fields — prin care sunt luate în considerare atât 
câmpurile-cheie (vezi opţiunea precedentă), cât şi cele declarate actualizabile. Dacă se 
constată că valorile din tabelele de bază ale câmpurilor-cheie sau actualizabile au fost 
modificate între timp de alt utilizator/instanță a aplicaţiei, propagarea actualizărilor este 
oprită; 

e Key and modified fields — prin care la actualizarea tabelelor de bază se 
verifică dacă, din momentul constituirii tabelei virtuale până în cel al propagării 
actualizărilor tabelei derivate, au fost operate modificări nu numai în atribute-cheie, dar 
şi în orice alt atribut a cărui valoare a fost modificată în vi ew, caz în care propagarea 
actualizărilor este blocată. 

Prin aceste opţiuni se face de fapt verificarea (la momentul declanşării procesului de 
propagare a actualizărilor) stării înregistrărilor din tabelele de bază (stare consemnată în 
momentul „populării” tabelei derivate). Rolul câmpurilor-cheie este de a face posibilă 
maparea fiecărei înregistrări din tabela derivată la o singură înregistrare din tabela-sursă şi 
pentru a diminua riscul incoerenței tabelelor în modul de lucru multiutilizator (vezi 
capitolul 13). Această verificare se realizează prin clauza WHERE a frazei SQL corespunză- 
toare. În exemplul nostru vom opta pentru a doua opţiune — Key and updatable 
fields. 


Modul de efectuare a actualizărilor 

Deşi mecanismul clasic de propagare a modificărilor implică construirea şi execuţia unei 
fraze UPDATE, mai există şi posibilitatea apelării la un alt mecanism de actualizare: mai 
întâi liniile ce trebuie actualizate se şterg, după care se reinserează cu noile valori provenite 
din tabela derivată. În acest sens, în cadrul de pagină Update criteria există un grup 
de butoane-radio etichetat Update using, cu două variante: SQL DELETE then 
INSERT și SOL UPDATE (vezi figura 9.5). Pentru cazul concret al exemplului nostru 
vom opta pentru a doua opțiune, şi anume SQL UPDATE. 

În fine, pentru ca modificările din tabela derivată să actualizeze într-adevăr tabela de 
bază, este necesară bifarea check-box-ului Send SQL Updates aflat în Sstânga-jos în 
cadrul Update Criteria (vezi figura 9.5). 
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Figura 9.5. Opțiunile privind propagarea actualizărilor în t ă zii 

f abelele de bază 

In final, tabela virtuală se salvează sub un nume sugestiv 
bazei de date. O dată creată, această tabelă trebuie deschisă 
operațiune în urma căreia are loc execuţia frazei SELECT şi popularea cu înregistrări 
corespunzătoare. De remarcat că împrospătarea tabelei derivate cu cele mai noi înr > i : 
ale tabelelor de bază nu necesită închiderea şi deschiderea sa, acest lucru realizând a 
instrucțiunea REQUERY (). Din păcate, această funcție nu poate fi inclusă în a ii ici 


şi va fi inclusă în dicţionarul 
explicit prin comanda USE, 


9.3. Conflicte la propagarea modificărilor în tabelele de bază 


Cei care lucrează frecvent cu tabele derivate în Visual FoxPro este aproape imposibil să 
nu fi avut parte de mesajul Update conflict (eroarea cu numărul 1585) Pe i # 
clarifica circumstanțele în care poate apărea această problemă, vom insista ifin a i 
in acest paragraf, anticipând discuţia din capitolul 13. iba Li 

Situaţia cea mai plauzibilă când ar putea să apară eroarea 15 
atunci când doi utilizatori efectuează în acelaşi timp operaţii de actualizare pe leaşi 
inregistrări. De exemplu, pornind de la tabela derivată tocmai construită, zh dei 
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Să ne imaginăm următorul scenariu: 
1) Primul utilizator accesează formularul pentru a modifica detaliile facturii 1122 
Lansarea formularului de lucru al aplicaţiei cu facturi presupune şi desc! 


[pa i hiderea 
tabelei derivate, a cărei formare este ilustrată în figura 9.6. 
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Figura 9.6. Starea inițială a tabelei derivate 


2) Al doilea utilizator modifică aceeaşi factură — 1122 — la care primul utilizator încă 
lucrează, schimbând valoarea atributului FACTURI.nrfact în 1123. Prin 
cascadă, datorită frigger-ului trg_upd_facturi, această modificare este 
propagată în tabela LINIIFACT asupra înregistrărilor corespunzătoare facturii 
vechi cu numărul 1122, după cum se ilustrează în figura 9.7. 
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Figura 9.7. Propagarea modificării din tabela FACTURI 
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3) În fine, primul utilizator modifică preţul unitar şi cantitatea şi încearcă să valideze 
actualizările făcute. Ca urmare, va apărea fatalul mesaj Update conflict 
(vezi figura 9.8). 


NumaiFaciura | :Datat. 
1 18! 


În cele din urmă 
eroarea VFP cu 
numărul 1585 


Figura 9.8. Generarea mesajului Update conflict 


; Explicația este următoarea: sistemul a încercat să propage modificările din tabela 
ierivatā în tabela de bază LINIIFACT, adică a încercat să actualizeze o înregistrare 
paie facturii 1122. Însă în tabela LINIIFACT această factură nu mai există (în 
ocul său aflându-se factura 1123), fapt .semnalat de VFP pri j i 
A -SÈ rin r l Upcat 
a p nesajul Update 
: Eroarea se declanşează indiferent de specificațiile clauzei SQL WHERE declarate în 
Update criteria, deoarece NrFact este atribut-cheie, 
Există însă și alte circumstanţe în c ă 

s are poate apărea această problemă în funcţie de 
clauza SOL WHERE selectată. Astfel: . 

e În cazul Key and Updatable Fields, dacă al doilea utilizator modifică în 
tabela LINIIFACT oricare câmp declarat actualizabil în tabela derivată, adică 
LINIIFACT .nrfact, LINIIFACT. linie, LINIILFACT , codpr 
LINITFACT, cantitate sau LINIIFACT .pretunit, se va genera aceeaşi 
eroare 1585. Să presupunem că al doilea utilizator modifică LINII FACT, can- 
titate specificând valoarea 150. Urmările sunt cele din figura 9.9. 


304 


Visual FoxPro 


Al doilea utilizator Primul utilizator 


e E 


sineta atoli] a E ag 
Cant uai a La IEanihala| Preturi [ai 
ai 2. k 3 K a 
i 7 ae CS 
L3 ae DA A ORE af 


Al doilea utilizator modifică câmpul LINIIFACT.cantitate actualizabil prin tabela derivată deschisă 
de primul utilizator. 
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Primul utilizator modifică valorile câmpurilor Cantitate şi Pretunit din tabela derivată declarate actua- 
lizabile şi corespunzătoare câmpurilor LINIIFACT cantitate şi LINIIFACTpretuni t din tabela de bază. 
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Uodate conflict. z 


Pre E a 
piine inel code ei |... 


zidi. Sifroa 5 


d) terte 


| Nrtast lhin 


elect vtacturiasisr 
requery() 
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Al doilea utilizator poate renunța la modificările făcute (alege butonul Revert din dialogul anterior) şi, 
folosind funcția REQUERYQ, poate reactualiza tabela derivată astfel încât aceasta să reflecte modificările 
recente din tabela de bază. 


Figura 9.9. Un alt Update conflict şi modul în care se reîmprospătează 
tabela derivată 


în cazul Key and Modified Fields — mesajul poate apărea și la modificarea 
unui câmp din tabela de bază, chiar dacă în tabela derivată câmpul corespunzător nu 
este cheie sau nu este declarat actualizabil. 


Atenţie! Trimiterea în tabela de bază a modificărilor operate în view se realizează, de 
regulă, prin simpla părăsire a înregistrării curente şi plasarea pe altă înregistrare. O 
alternativă o reprezintă folosirea funcţiei tableupdate () executată din fereastra de 
comenzi. Dacă însă intervine eroarea Update conflict, tabela derivată pare blocată, 
modificările neputându-se „comite” în tabela de bază. Pentru a rezolva problema, fie se 
apasă butonul Revert din dialogul determinat de eroarea Update conflict, fie se 
execută din fereastra de comenzi funcţia tablerevert (). 


| cantitatea şi preţul unitar. 
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Alegerea clauzei SQL WHERE pentru actualizarea tabelei de bază este importantă din 
cel puțin două puncte de vedere: cel al performanţelor şi cel al Ssuprascrierii modificări! 
efectuate de alți utilizatori asupra tabelei de bază. Din această perspectivă: tii 

— Opţiunea Key and Updatable Fields presupune efectuarea unui test destul 

de laborios, în funcție de numărul de câmpuri declarate actualizabile în tabela 
derivată, însă nu ridică probleme de Suprascriere a modificărilor efectuate de ceilalti 
utilizatori asupra tabelei de bază. Acest lucru se datorează faptului că medeni 
din câmpurile neactualizabile nu se propagă, iar dacă în tabela de bază câm iile 
declarate actualizabile în tabela derivată au fost deja modificate apare sp A 
Update conflict, fiind împiedicată astfel suprascrierea acestora (după cum i 
exemplificat în figura 9.9). m 
iz Opţiunea KeyFields Only presupune efectuarea unui test puţin costisitor, însă 
în situația în care un alt utilizator modifică câmpurile din tabela de bază declarat 
actualizabile în tabela derivată, există riscul ca aceste modificări să fie su n 
după cum se ilustrează în figura 9.10. iii 
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Primul utilizator modifică, la rândul său, valorile pentru câmpurile cantitate şi pretunit din tabel 
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Figura 9.10. Suprascrierea valorilor din tabela de bază în cazul în care pentru tabela 
derivată a fost specificată optiunea Key Fields Only l 
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— Opțiunea Key and Modified Fields — presupune efectuarea unui test destul 
de greoi, în funcţie de numărul de câmpuri care au fost modificate (indiferent dacă sunt 
actualizabile sau nu), şi lasă deschisă posibilitatea suprascrierii modificărilor efec- 
tuate de alți utilizatori asupra câmpurilor din tabela de bază declarate actualizabile în 
tabela derivată. Acest lucru se întâmplă numai în cazul în care pentru efectuarea 
actualizărilor s-a recurs la varianta SQL DELETE then INSERT (vezi figura 9.11). 
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Al doilea utilizator modifică valoarea câmpului cantitate din 500 în 600. În tabela derivată deschisă în 
sesiunea primului utilizator rămâne în continuare valoarea inițială 500. 
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Primul utilizator modifică în tabela derivată valoarea câmpului Pretunit (din 77500 în 12000) şi valoarea 
câmpului Linie (din 7 în 2). Câmpul Linie a fost modificat pentru a nu intra în conflict cu cheia primară. 
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După trimiterea modificărilor în tabela de bază se observă că, în tabela de bază, pe lângă câmpurile Pretunit 
şi Linie modificate în tabela derivată de cășre primul utilizator, a fost reactualizat şi câmpul Carti tate (modificat 
anterior de al doilea utilizator la 600), care revine la valoarea iniţială 500, nemodificată în tabela derivată. 
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Figura 9.11. Suprascrierea valorilor din tabela de bază în cazul în care pentru tabela 
derivată a fost specificată opțiunea Key and Modified Fields 


In acest ultim exemplu am presupus că primul utilizator modifică şi valoarea câmpului 
Linie, pentru că la propagarea modificărilor înregistrarea veche din tabela de bază este 
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9.4. Obţinerea de informaţii privind structura tabelelor 
virtuale. Crearea view-urilor prin program 


o ; : s i di 
Sa tabelă derivată apare în baza de date ca obiect distinct ce poate fi localizat în 
: o Manager sub nodul Local Views. De fapt, după cum se poate observa din 
nodul asistat exemplificat anterior, crearea unei i 
ei tabele virt i 

i A uale presupune două componente 
1L NI 2 Ta A 

mecanismul de definire a structurii şi setului de înregistrări care: formează tabela 


derivată. Acesta constă în execuția unei fraze SOL-SELECT rezultată din informaţii! 
e 


care se găsesc în cadrele de pagină Fields, Join, Filt er, Order by şir 

i 3 ' : = b 3 GUI 
by, frază care, în modul View Designer, poate fi vizualizată prin opţiunea Que a 
> View SOL din meniul principal VFP (vezi figura 9.12). ii 
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Figura 9.12. Vizualizarea frazei SELECT-SQL asociată tabelei derivate 
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9.4.1. Tabelele derivate în dicționarul de date 


Atât fraza SELECT-SQL, cât şi specificațiile care determină modul de actualizare a 
tabelei de bază se regăsesc în containerul bazei de date (. DBC) ca proprietăți ale unor 
obiecte de tip view şi fields. Informaţiile din dicţionarul bazei de date pot fi accesate 
direct interogând fişierul cu extensia .DBC, dar, după cum am mai văzut în capitolul 6, 
modul de prezentare nu este supărător de inteligibil. Mai elegant, se pot folosi instrumentele 
mediului VFP, adică funcția DBGETPROP () pentru a „citi” informaţii din container şi 
funcţia DBSETPROP () pentru a modifica/actualiza dicţionarul de date: 

DBGETPROP (cName, cType, cProperty) 
DBSETPROP (cName, cType, cProperty, ePropertyValue) 
unde: 
e  cName -~ este numele obiectului (bază de date, tabelă, tabelă virtuală, atribut 
[câmp], conexiune) a cărui proprietate va fi consultată sau modificată; 

e  cType ~ reprezintă tipul obiectului (database, table, view, field, 

connection) a cărui proprietate va fi consultată sau modificată; 

e  cProperty - desemnează numele proprietăţii vizate (proprietățile, ca şi numărul 

lor, sunt specifice fiecărui tip de obiect din containerul bazei de date); 

e  ePropertyValue — reprezintă, numai în cazul funcţiei DBSETPROP şi numai 

pentru proprietățile care nu sunt declarate read-only, o expresie din care va rezulta 
noua valoare care va fi asisnată proprietăţii obiectului vizat. 


De exemplu, dacă dorim afişarea frazei SELECT-SOL care stă la baza unei tabele 


derivate, se poate recurge la comanda: 
? DBGETPROP ('vfacturiasist!, 'view', 'sgl') 


Pentru o tabelă derivată, interesează valorile proprietăților asociate view-ului respectiv şi 
ale câmpurilor (fields) componente. Din acest punct de vedere, principalele proprietăți 
accesibile prin funcţiile sus-amintite sunt: 

e  lanivelul view-ului: - 
e SQL — se referă la fraza SQL care este executată la deschiderea tabelei 
derivate; 
e Tables -— reprezintă o listă (a cărui delimitator este virgula) ce conţine 
numele tabelelor-sursă; | 
e  UpdateType —reprezintă un număr (Sau o directivă inclusă în Foxpro.h) 
care indică modul în care se vor efectua actualizările asupra tabelelor-sursă: 
. 1 sau DB_UPDATE  — indică folosirea comenzii UPDATE, 
corespunzător opțiunii SQL Update din View Designer; 
= 2 sau DB DELETEINSERT -— desemnează mecanismul ştergere + 
inserarare corespunzător opțiunii SQL DELETE then INSERT din 
View Designer; 
e  WhereType —sereferă la un număr (sau o directivă inclusă în Foxpro.h) 
care indică cum se va forma testul corespunzător clauzei SOL WHERE. Astfel, 
dacă valoarea specificată pentru această proprietate este: 
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* 1 sauDB_KEY — înseamnă că se va ţine cont numai de câmpurile cheie 
corespunzător opțiunii Key fields only din View Designer; 

= 2 sau DB KEYANDUPDATABLE -— înseamnă că se va ţine cont de 
câmpurile cheie plus câmpurile declarate actualizabile, corespunzător 
opțiunii Key and updatable fields din View Designer; 

= 3 sau DB KEYANDMODIFIED -— înseamnă că se va ține cont de 
câmpurile declarate chei plus toate câmpurile ale căror valori iniţiale au 
fost modificate, Corespunzător opțiunii Key ana modified fields 
din View Designer; 

» 4 sau DB_KEYANDTIMESTAMP — înseamnă că se va ține cont de 
câmpurile declarate cheie şi de marca temporală (în cazul în care tabelele 
acceptă o marcă temporală), 

e  Sendupdates — acționează ca un comutator care activează sau dezactivează 
actualizarea tabelelelor pe baza modificărilor survenite în view ~ corespunde 
opțiunii Send SOL Updates din View Designer. 


e  lanivelul câmpurilor (fields) tabelei derivate: - 

» KeyField -conține o valoare de logic (TRUE/FALSE) prin care se indică dacă 
respectivul câmp este declarat cheie (T.), similar bifării check-box-ului 
corespunzător din prima coloană a listei de câmpuri din cadrul Update 
Criteria alView Designer-ului; 

* UpdateName -— desemnează numele câmpului din tabela-sursă la care se 
mapează câmpul din tabela derivată (poate reprezenta destinaţia propagării 
actualizării). Această proprietate este importantă în cazul în care numele câmpului 
diferă în tabela derivată față de tabela-sursă; 

e Updatable ~ conține .T. dacă respectivul câmp este declarat actualizabil 
similar bifării check-box-ului corespunzător din a doua coloană a listei de câmpuri 
din cadrului Update Criteria alView Designer-ului. 


9.4.2. Crearea »programatică” a tabelelor virtuale 


Aplicațiile profesionale dezvoltate în VFP ce folosesc tabele virtuale utilizează 
programe în care sunt prezente comanda CREATE SOL VIEW şi o serie de variante ale 
funcţiei DBSETPROP(). Deşi complicată la prima vedere, funcția DBSETPROP() este foarte 
putemică şi prezintă atuul flexibilităţii, după cum se observă în listingul 9.2, în care este 
prezentat programul de creare a unei tabele derivate similare celei create în mod asistat. 
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Listing 9.2. Program Visual FoxPro 6 de creare a unei tabele derivate 


"= CREAREA TABELEI DERIVATE vFacturi 
INCLUDE foxpro.h 


IF IDBUSED('vinzari') 
OPEN DATABASE vinzari 

ENDIF 

SET DATABASE TO vinzari 


IF USED('vFasturi) 
SELECT vFacturi 
USE 

ENDIF 


* Fraza SQL de creare a tabelei virtuale 
CREATE SOL VIEW vFacturi AS ; 
SELECT LF.NrFact, F.DataFact, Linie, LF.CodPr, DenPr,; 
UM, Cantitate, PretUnit, Cantitate * PretUnit AS ValFaraTVA, ; 
Cantitate * PretUnit * ProcTVA AS TVA, ; 
Cantitate * Pretunit * (1 + ProcTVA) AS ValTotaia ; 
FROM LINIIFACT LF INNER JOIN FACTURI F ON LF.NrFact=F.NrFact ; 
INNER JOIN PRODUSE P ON LF.CodPr=P.CoaPr ; 
ORDER BY LF.NrFact, Linie 


* Pe baza tabelei derivate, se va actualiza numai LINIIFACT 
DBSETPROP(vFacturi', 'View, 'Tables', 'LINIIFACT”) 


* Se declara atributele cheie (primara) 
DBSETPROP(vFacturi.NrFact', 'Field', 'KeyField, .t.) 
DBSETPROP('vFacturi.Linie', 'Field', 'KeyFieid', 1.) 


* Eventual se declarara modul de mapare a atributelor 
DBSETPROP('vFacturi.NrFact', 'Field', 'UpdateName, 'LINHFACT.nrfact') 
DBSETPROP(vFacturi.Linie', 'Field', UpdateName", 'LINIIFACT linie”) 
mes ete 


* Se declara ca actualizabile atributele cheie primara 
DBSETPROP('vFacturi.NrFact', 'Field', 'Updaiable,, t.) 
DBSETPROP('vFacturi.Linie', 'Field', 'Updatable, 1.) 
DBSETPROP('Facturi.Codpr, 'Field', Updatable’, t.) 
DBSETPROP(vFacturi.Cantitate', 'Field', 'Updatable, t.) 
DBSETPROP(Facturi Pretunit, 'Field', 'Updatabie,, .t.) 


* Tipul modificarilor (UPDATE, nu INSERT-DELETE) 
DBSETPROP('vFacturi, 'View, 'UpdateType', DB_UPDATE) 


* La propagarea actualizarii in tabelele de baza, se verifica caca au 
* intervenit modificari in continutui atributelor cheie si a celor actuvalizabile 
DBSETPROP('vFacturi, 'View', 'WhereType', DB_KEYANDUPDATABLE) 


* Semnalul final pentru propagarea modificarilor din tabeia derivata in cea de baza 
| DBSETPROP(vFacturi, View, Sendipdates, t) 


Pentru afișarea tabelelor derivate din baza de date se poate apela la interogarea: 


SELECT * FROM vinzari.dbc WHERE OBJECTTYPE='View' 
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Figura 9.13. Informațiile despre view-uri din containerul .DBC 


aonoa =] 


Atributul Property conţine fraza SELECT pe baza căreia a fost construită tabela 
virtuală. Cât despre obținerea datelor despre atributele tabelelor derivate, iată interogarea 


care generează rezultatul din figura 9.14: 


SELECT v2.,objectname, vl.objectiă, vl.objectname, 
left (vl.property, 200) ; 

FROM vinzari.dbc v1 INNER JOIN vinzari.dbe v2 
ON vl.parentid=v2,objectid ; 


Li 


La 


WHERE v2 . OBJECTTYPE="'View' AND vl.OBJECTTYPE= "Field! 


ORDER BY vl.objectida 


_Obiectname_ a _| Obiectid | 
; Zi, 
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9.5. Alte considerații privind tabelele derivate 
în Visual FoxPro 


Dacă până acum ne-am ocupat aproape exclusiv de înțelegerea mecanismelor specifice 
VFP care stau la baza creării tabelelor virtuale, în continuare vom încerca să punem în 
valoare câteva aspecte ale utilității practice a acestora. Plecând de la tabela derivată 
proaspăt-creată, vor fi operate câteva facilități suplimentare, pentru care se va face apel la 
alte proprietăți ale tabelelor derivate în VFP. 

Una dintre cele mai tentante utilizări ale tabelei derivate VFACTURI ține de legarea sa 
la un control de tip rețea (grid) într-un formular, control care să permită utilizatorilor să 
completeze sau să modifice detaliile facturilor. Pentru început, să recapitulăm chestiunile 
esenţiale ale VFACTURI: i 
e tabelele enumerate în fraza SELECT care contribuie la formarea setului de înregistrări 

al tabelei derivate sunt: FACTURI, LINIIFACT, PRODUSE; 

e dintre aceste tabele, numai una recepționează eventualele modificări ale tabelei 
virtuale —  LINIIFACT —, atributele nrfact, linie, codpr, cantitate şi 
pretunit; celelalte două sunt folosite doar la popularea view-ului. 

ə  câmpurile-cheie pentru actualizare sunt nrfact şi linie; 

e mecanismul de actualizare este de tip DB_UPDATE, iar la propagarea actualizărilor în 
tabela de bază sunt avute în vedere câmpurile-cheie şi cele declarate actualizabile 
(DB_KEYANDUPDATABLE). 


Pentru creşterea funcționalității tabelei derivate, pot fi identificate câteva caracteristici 
suplimentare şi anume: 

a) comportamentul tabelei derivate la adăugarea unei noi linii să fie asemănător cu cel al 
tabelei-sursă LINIIFACT, adică: 

~ valoarea implicită pentru câmpul nrfact să fie numărul ultimei facturi 
din tabela FACTURI; 

— valoarea implicită pentru câmpul linie să fie consecutivă față de 
ultima valoare pentru acest câmp în cadrul aceleiaşi facturi. 

b) La adăugarea unei noi linii, atributul datafact (neactualizabil) să afişeze data 
facturii corespunzătoare, valoare care se găseşte în tabela FACTURI. 

c) Modificarea valorii pentru câmpul codpr să antreneze şi modificarea valorilor 
câmpurilor denpr, UM (neactualizabile) cu denumirea produsului şi unitatea de măsură 
corespunzătoare din tabela PRODUSE. În plus, aceeaşi modificare a codpr să 
producă şi resetarea valorilor (aducerea la 0) pentru câmpurile cantitate şi 
pretunit, precum şi pentru câmpurile calculate TVA, Val faraTVA, ValTotala. 

d) Modificarea valorii câmpurilor cantitate şi pretunit să antreneze recalcularea 
automată a valorilor pentru câmpurile TVA, Val faraTVA, ValTotala. 

e) Blocarea validării unei linii, dacă nu s-a precizat nici un produs sau nici o valoare pentru 
cantitate şi preț unitar. 


Vom aborda gradat aceste probleme. Valorile implicite pentru câmpurile nrfact şi 
linie din tabela virtuală pot fi determinate de aceleaşi proceduri stocate folosite pentru 


Tabele virtuale 


câmpurile corespunzătoare din tabela LINIIFACT, și anume def nrfact_ linii 
fact) şi det _linie_linifact (). Asocierea acestor proceduri la cele două 
atribute ale tabelei virtuale este o operaţiune simplă, realizată prin intermediul proprietăților 
de tip Defaultvalue: 

DBSETPROP ('vFacturi, NrFact!, 'Fiela', ! DefaultValue!, 

"def nrfact liniifact FIJ 

DBSETPROP ('vFacturi.Linie'! „ 'Field', 'DefaultValue' $ 

i det_linie linii fact ()!) 


Dacă problema valorilor implicite pentru câmpurile nrfact şi linie este relulivy 
simplă, pentru câmpul datafact lucrurile se complică puţin. În acest Scop, va trebui să 
construim o procedură stocată suplimentară care să returneze data facturii căreia ți 
corespunde noua linie din tabela derivată. O soluție pentru o astfel de procedură este 
prezentată în listingul 9.3, 


Listing 9.3. Exemplu de regulă de validare la nivel de atribut al unei tabele virtuale 


* 


PROCEDURE def_datafact_vfacturi 

IF indexseek(vfacturi.nrtact, T., facturi, 'nrfact') 
return facturi. datafact 

ENDIF 

ENDPROC 


Se are în vedere faptul că procedura def_nrfact_liniifact (), care furnizează 
valoarea implicită pentru atributul nrfact, se execută anterior procedurii 
def_datafact_ vfacturi (). Numele acestei proceduri se asociază proprietăţii 


DefauitValue pentru câmpul DataFact: 


DBSETPROP (!'vFacturi Datafact! F 
'def _datafact_vfacturi()') 


'Field', "DefaultValue!, 


Pentru recalcularea câmpurilor TVA, ValfaraTvA şi ValTotala ca urmare a 
modificării cantităţii sau preţului unitar, vom adăuga un câmp nou în tabela derivată 
ProcTva care provine din tabela PRODUSE. Acest câmp este necesar pentru 
simplificarea calculelor. Atributele TVA, ValfaraTVA şi ValTotala au un rol pur 
informativ (nu pot fi declarate actualizabile), însă pentru ca linia respectivă să fie corectă, se 
impune recalcularea acestora la fiecare modificare a unui atribut „sursă” (cantitate 
pretunit). În acest scop, vom construi procedura stocată calcul _val Infact O 
din listingul 9.4. 


Listing 9.4. Procedură stocată ce (re)calculează valorile fără TVA, cu TVA 
şi totală în tabela virtuală vracturi 


Ey 


PROCEDURE caicul_va!_infact 
IF 'EMPTY(Vfacturi.cantitate) and EMPTY (vfacturi.pretunit) 
replace vfacturi.ValFaraTVA with vfacturi.Cantitate * vfacturi.PretuUnit 
replace vfacturi. TVA with vfacturi.cantitate * vfacturi.Pretunit * vfacturi.proctva 
e vfacturi.vaitotala with vfacturi.Cantitate * vfacturi.Pretunit * (1 + vfacturi.ProcTVA) 
ENDPROC 
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Această procedură va fi declarată regulă de validare la nivel de câmp pentru atributele 
Cantitate şi PretUnit, prin intermediul proprietății RuleExpression: 
DBSETPROP('vFacturi.Cantitate!, 'Field', 'RuleExpression!, 

"calcul val Infact()') 


DBSETPROP ('vFacturi.PretUnit', 'Field', 'RuleExpression!, 
"calcul val Infact()') 


În scopul asigurării în permanenţă a corespondenţei între valorile câmpurilor DenPr, 
UM și ProcTVA cu produsul specificat prin valoarea câmpului CodPr, este necesară o 
nouă procedură stocată având rolul de a actualiza respectivele câmpuri: 

Listing 9.5. Procedură-regulă de validare pentru reîmprospătarea atributelor 
DenPr, UM şi ProcTVA din tabela derivată 
ANDRE ae N E na 


” 


procedure seek_codpr 


*** Procedura de validare pentru cimpul CODPR din view-ul vfacturi 
Parameter codpr_ 
*** Caut datele produsului indicat 
IF indexseek(codpr_, .T., 'produse', 'codpr') 
replace vfacturi.denpr with produse.denpr 
replace vfacturi.um with produse.um 
replace vfacturi.procTVA with produse.proctva 
** Resetarea celorlalte câmpuri 
replace vfacturi.cantitate with O 
replace vfacturi.pretunit with O 
replace vfacturi.ValFaraTVA with O 
replace vfacturi. TVA with O 
replace vfacturi.valtotala with O 
ELSE 
messagebox('Atentie! Nu exista nici un produs avand codul '+ allt(str(codpr_))+"!,; 
16, 'Eroare cod produs ...) 
RETURN. .F. 
ENDIF 
endproc 


Această procedură este declarată regulă de validare care, după cùm se observă din 
listingul anterior, mai îndeplineşte două sarcini: avertizarea utilizatorului în cazul unui cod 
de produs invalid şi resetarea valorii pentru câmpurile cantitate, pretunit şi pentru 
câmpurile calculate. Declararea acestei proceduri ca regulă de validare pentru câmpul 
Codpr. se face prin instrucțiunea-funcție: 

DBSETPROP ('vFacturi.Codpr!, 'Field', 'RuleExpression!, 
'seek_codpr (vfacturi.codpr) !) 


În ceea ce priveşte valorile câmpurilor codpr, cantitate şi pretunit, validarea 
unei linii din tabela derivată se poate face printr-o expresie evaluată la „părăsirea” 
înregistrării curente, declarată prin intermediul proprietății RuleExpression. Eventualul 
mesaj care ar trebui să apară la încălcarea restricției se precizează prin intermediul 


proprietății RuleText. 
DBSETPROP ('vfacturi!, 'View!, 'RuleExpression!, "IIF (empty 
(Codpr) OR empty(cantitate) OR empty(PretUnit), .f., .t.)!) 


Tabele virtuale 

sanii 
DBSETPROP ('vFacturi', 'View', 'RuleText', pida 
completata cu toate datele necesare PE nu este 


In practică ar mai fi util de rezolvat şi o problemă de genul: la deschide 
derivate, utilizatorul să precizeze interactiv facturile cărei luni să fie afişate. A E S 
se referă, de fapt, la parametrizarea tabelelor derivate, operaţiune posibilă o 

Şi prin program. 

| In mod asistat, se va apela opțiunea Query = View Parameter 

principal VFP, după ce în prealabil tabela derivată a fost deschisă în View a i 
urmare a selectării acestei opțiuni, se va afişa o fereastră de editare a parametrilor i că Ca 
corespunzător se adugă un nou parametru care va fi numit luna , de tip num or. În pridul 
părăsirea ferestrei View Parameters se selectează cadrul E iile po Apa 
iza, se va 


adăuga un criteriu în care pentru Field Name se va specifica & 
cXpresia 


”, iar pentru Ev amp 


ă situaţie 
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din meniul 
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2) Specificarea parametrului care 
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Net Criteria 
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3) Specificarea criteriului care va 
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Figura 9.15. Parametrizarea unei tabele derivate create în mod asistat 


Pentru view-ul VFACTURI pe care l-am creat folosi 
acestuia determină o mică modificare a frazei SELECT-SQL, astfel; 


ad un script, parametrizarea 


CREATE SOL VIEW vFacturi AS ; 
SELECT LF.NrFact, F.DataFact, 
UM, Cantitate, PretUnit, ; 
Cantitate + PretUnit AS Valfaraty 
ProcTVA, Cantitate * Pretunit > à TVA, > 
Cantitate * PretUnit * (1, + prez ZS ValTotalá 
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FROM LINIIFACT LF INNER JOIN FACTURI F ; 


ON LF.NrFact=F.NrFact ; * Se declara cateva reguli 


DBSETPROP('vFacturi.Codpr', 'Field', 'RuleExpression', 'seek_codpr(vfacturi.codpr}') 


INNER JOIN PRODUSE P ON LF.CodPr=P.CodPr ; 
WHERE MONTH (F.datafact) = ?'luna '; DBSETPROP(vFacturi.Cantitate', 'Field', 'RuleExpression', 'calcul_val Infact) 
— DBSETPROP| vFacturi.PretUnit, 'Field', 'RuleExpression', 'calcul_val_Infact()') 


ORDER BY LF.NrFact, Linie 
* Se declara regula de validare la nivel de inregistrare 


Prin urmare, noul script de definire a tabelei derivate va arăta ca în listingul 9.6. DBSETPROP('vFacturi, 'View''RuleExpression”, ' 
$ empty(PretUnit), f., t)') pression, IIF(empty(Codpr) OR empty(cantitate) OR 


Listing 9.6. O nouă versiune a programului de creare a vFacturi : DBSETPROP('vFacturi, 'View'RuleText, 'Linia nu este completata cu toate datele necesare !') 


*** CREAREA TABELEI DERIVATE vFacturi 


* Tipul modificarilor (UPDATE, nu INSERT-DELETE) 


#INCLUDE foxpro.h DBSETPROP('vFacturi, 'View', 'UpdateType', DB_UPDATE) 
IF IDBUSED('vinzari) * La propagarea actualizarii in tab i 
a ni Aa i a elele de baza, se verifica daca au 
OPEN DATABASE vinzari intervenit modificari in continutul atributelor cheie si a celor actualizabile 


ENDIF DBSETPROP('vFacturi, View, 'WhereType', DB_KEYANDUPDATABLE) 


SET DATABASE TO vinzari 


* Semnalul final pentru propagarea modificarilor din tabela deri i 
erivata in ce 
DBSETPROP 'vFacturi', 'View', 'Sendu dates’, t. aa 


IF USED('vFacturi') 


SELECT vFacturi 
USE La deschi nei i | 
UE S a ii unei tabele derivate parametrizate, se va deschide mai întâi o fereastră de 
iaiog (sau mai multe) care va solicita din partea utilizatorului i 
B | o valoare v 
Fraza SQL de creare a tabelei virtuale n5 parametrul (parametrii) definit (definiți): an gi 


CREATE SQL VIEW vFacturi AS ; 
SELECT LF.NrFact, F.DataFact, Linie, LF.CodPr, DenPr, ; 
UM, Cantitate, PretUnit, Cantitate * PretUnit AS ValFaraTVA, ; 
ProcTVA, Cantitate * PretUnit * ProcTVA AS TVA, ; 
Cantitate * Pretunit * (1 + ProcTVA) AS VaiTotala ; 
FROM LINIIFACT LF INNER JOIN FACTURI F ON LF.NrFact=F.NrFact ; 
INNER JOIN PRODUSE P ON LF.CodPr=P.CoaPr; 
WHERE MONTH(F .datafact) = ?'luna_; e 
ORDER BY LF.NrFact, Linie | ÎNfact Datalact Linie ICodpr 
Ba : 3j 


19, 


2 


* Pe baza tabelei derivate, se va actualiza numai LINIIFACT 
DBSETPROP(vFacturi', 'View,, 'Tables', 'LINIIFACT”) 


* Se declara atributele cheie (primara) 
DBSETPROP(vFacturi.NrFact, 'Field', 'KeyFieid', t.) 
DBSETPROP(vFacturi. Linie", 'Field', 'KeyField, t.) 


* Eventual se declarara modul de mapare a atributelor 
DBSETPROP('vFacturi.NrFact', 'Field', 'UpdateName,, 'LINIIFACT.nrfact!) E 317 987037% E 
DBSETPROP('vFacturi.Linie', 'Field', 'UpdateName', 'LINIIFACT linie”) : ii ggde? Ă 
“reete îi CĂ PE Il a dl a e 
i 


* Se declara ca actualizabile atributele cheie primara Figura 9.16. Fereastra de preluare a valorii pentru parametrul şi setul 
DBSETPROP('vFacturi.NrFact', 'Field', 'Updatablei, 1.) i de înregistrări rezultat după deschiderea view-ului 


DBSETPROP('vFacturi.Linie', 'Field', 'Updatable,, 1.) 
DBSETPROP('vFacturi.Codpr, 'Field', 'Updatable,, t.) | 
DBSETPROP('vFacturi.Cantitate', 'Fieid', 'Updatable', t.) 
DBSETPROP('vFacturi.Pretunit', 'Field', 'Updatable', t.) 


* Se declara valori implicite pentru cateva campuri actualizabile 
DBSETPROP('vFacturi.NrFact', 'Field', 'DefaultValue', 'def_nrfact_liniifact()') 
DBSETPROP('vFacturi.Linie', 'Field', 'DefaultValue, 'def_linie_liniifact()”) 
DBSETPROP(vFacturi.Datafact!, 'Field', 'DefaultValue', 'def_datafact vfacturi()') 


Capitolul 10 
Formulare complexe 


Vom încerca în acest capitol să prezentăm câteva căi de realizare a unei interfețe- 
-utilizator ceva mai sofisticate. V-aţi întrebat probabil, după parcurgerea capitolului 8, cum 
ar trebui să procedaţi pentru a realiza un formular care să actualizeze mai multe tabele (de 
exemplu, să permită adăugarea unei facturi, ştiind că aceasta constă într-o înregistrare în 
tabela FACTURI şi n înregistrări în tabela LINIIFACT)"” sau cum se creează un indicator 
de progres al unei operaţii care durează o perioadă mai mare de timp (import/export de 
date, proceduri de calcul generalizate). ` 

Scopul acestui capitol este familiarizarea dezvoltatorului de aplicaţii cu utilizarea unor 
controale mai complexe, dar și mai puternice, în realizarea unor formulare care să ofere 
utilizatorului pe de o parte o funcţionalitate- sporită, iar pe de altă parte, uşurinţă și plăcere 
în exploatare. Pentru realizarea acestui deziderat, vom îmbina tabele derivate (view-uri) cu 
obiecte tip Grid, OleBounâControl (pentru câmpuri de tip general), OleCcontrol etc. 
Ne vom referi şi la modalitatea de tratare a erorilor ce pot apărea la execuţia unui formular 
__(interceptând evenimentul Error), în scopul de a evita blocarea aplicației şi de a furniza 
utilizatorului un mesaj inteligibil în locul celui implicit. 

Tot aici vom prezenta şi modul de rezolvare a unei probleme destul de stânjenitoare, 
frecvent întâlnită în practică: sincronizarea obiectelor de tip Combo-Box cu surse de date 
de tip numeric, 


10.1. Controlul Grid şi controale pentru câmpuri 
de tip General 


Fără îndoială, unul dintre cele mai complexe obiecte pentru manipularea datelor este 
Grid-ul. Prin intermediul său putem construi o interfață intuitivă, care, de obicei, satisface 
cu succes exigenţele oricărui utilizator, furnizând următoarele avantaje: 

e ușurință în deplasarea de la o înregistrare la alta a tabelei-sursă de date; 

ə viziune de ansamblu asupra unui număr mare de înregistrări simultan; 

ə uşurinţă în deplasarea de la un câmp la altul şi în editarea acestora; 

ə posibilitatea încorporării în căsuțele grid-ului a altor tipuri de controale (gen 

Combo-Box, CheckBox etc.), în scopul restricționării introducerii datelor. 

Controlul Grid este de fapt un obiect de tip container ce afişează datele, preluate de la 
sursa de date, sub formă de linii şi coloane, într-un mod similar ferestrei Browse. Fiind un 
obiect de tip container, el conţine obiecte de tip coloană (Column). La rândul ei, o coloană 
conţine un obiect de tip Header şi alte tipuri de controale (implicit Text Box, dar se pot 
plasa şi altele). La execuţie, aceste controale se pot multiplica în funcţie de numărul de linii 


34. În lucrările de specialitate, astfel de formulare se numesc Mfaster-Detail sau One-To-Many. 
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al sursei de date sau, dimpotrivă, se pot afişa doar pe linia curentă. Pentru că atât grid-uųl 
cât şi coloanele, header-ele şi celelalte controale încorporate în coloane prezintă 
un set propriu de metode, evenimente şi proprietăţi, posibilități! 
sunt extrem de vaste. 


fiecare 
e de control asupra Gri d-ului 


„Pentru câmpuri de tip General (care de obicei conţin imagini), în Visual FoxPro 
există un obiect specific: 0leBoundControl, 

e sunt cele două controale noi pe care le vom utiliza în realizarea formularului de 
actua izare a tabelei PRODUSE (structura tabelei o regăsiţi în capitolul 2). Figura 10.1 
prezintă formularul despre care discutăm, aflat în faza finală a proiectării. l 
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Figura 10.1. Macheta formularului de actualizare a datelor despre produse 


Notă. Textele din paranteze arată numele obiectelor mai importante. 


Inainte de a prezenta obi i ietăți i â ii ivi 
modul în care ae ai ae A Ss oa ea AI PRA 
e deşi arată altfel, butoanele de comandă sunt acelaşi tip de obiect, Command 
Butt on, doar că afişează deasupra textului (proprietatea Caption) şi o imagine a 
cărei sursă (un fişier . bmp) o regăsim în proprietatea Picture; 
coloanele UM şi GRUPA din controlul de tip Grid conţin în plus un control de ti 
listă (Combo-Box), pentru a facilita introducerea unor valori dintr-o să 
predefinită pe câmpurile respective; 
deplasarea de la o linie la alta în Gria asigură automat poziționarea pe înre- 
gistrarea corespondentă în tabelă; aceasta (PRODUSE) este precizată ca valoare a 


proprietăţii RecordSource, iar proprietatea RecorăSourceType are valoarea 
1 - Alias; 
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e tot în momentul deplasării de la o înregistrare la alta, obiectele 
OleBoundlmagine şi LblDenprodus se actualizează, afişând ima- 
ginea/numele produsului curent (corespunzător liniei din controlul Grid pe care 
este poziționat cursorul); 

e la un click pe titlul fiecărei coloane (header-ul acesteia), înregistrările se vor 
„ordona după valorile coloanei respective, o dată ascendent, iar a doua oară 
descendent, în funcție de starea proprietăţii Tipordonare adăugate la formular 
(după procedeul explicat în capitolul 8); 

e toate butoanele au asociată o combinaţie de taste pentru apelare rapidă (vezi în 
listingul 10.3 procedura evenimentului KeyPress la nivelul formularului), astfel: 

— cmdAdauga: Alt+Z; 

— cmasSterge: Alt+X; 

— cmdAnulezSterg: Alt+N; 
— cmdSave: Alt+S; 

-" cmdAbandon: Alt+A. 

e în momentul lansării formularului în execuție, se deschide o tranzacție (în sensul 
prezentat la capitolul 8) care se va comite sau anula în funcție de opțiunea 
utilizatorului. La fel, după confirmarea (cmdSave) sau abandonul (cmdAbandon) 
unei tranzacţii, se declanşează una nouă. Aşadar, o tranzacție nu mai corespunde 
actualizării unei înregistrări anume, ci corespunde unei perioade de timp (din 
momentul deschiderii formularului sau al apăsării unuia dintre butoanele cmaSave 
sau cmdAbandon şi până în momentul închiderii formularului sau, din nou, al 
apăsării unuia dintre cele două butoane); 

e o procedură specifică de validare va verifica datele introduse pe coloana Procent 
Tva, astfel încât acestea să fie 0 sau 0.19. 


Nu putem continua fără să lămurim un apect foarte important legat de controlul Grid: 
adăugarea altui control decât cel implicit (TextBox) unei coloane. Mai concret, 
adăugarea Combo-Box-ului în coloana Grupa presupune parcurgerea, în ordine, a 
următorilor paşi (vezi şi figura 10.2): 

e  selectăm obiectul de tip Grid, efectuăm click-dreapta şi alegem din meniul 
contextual opțiunea Edit, pentru a avea acces la obiectele componente (modalitate 
specifică de altfel oricărui container). Controlul graProduse va căpăta un chenar 
gros, haşurat; i 

e ne poziționăm pe coloana în care dorim să adăugăm controlul, fie pur şi simplu cu 
un click pe ea, fie căutând-o în fereastra Properties; 

e  selectăm butonul corespunzător din bara de controale (în cazul nostru Combo- 
-Box) şi îl trasăm exact pe coloana selectată anterior (nu se acordă importanță 
dimensiunii). Nu vom observa nici o modificare a Gri a-ului, dar în fereastra de 
proprietăți este vizibil (şi selectat) obiectul Combo-Box; 

„e  selectăm din nou coloana în întregime şi, la proprietatea CurrentControl 
observăm (dacă totul a decurs conform planului) că putem opta pentru Text 1 sau 
Combol, Vom selecta obiectul Combol. Abia acum observăm o schimbare în 
controlul graProduse, semnificând faptul că, de acum înainte, obiectul activ ce 
se va lega la sursa de date a coloanei va fi noul obiect de tip listă; 


configurate în funcţie de necesități. Numele obiectelor s 
semnificative pentru a le identifica şi în figura 10.1, 
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e  atribuim proprietății Style a Combo-Box-ului valoarea 2-DropDownLi st, în 


caz contrar elementele din listă fiind trunchiate ca lăţime (în momentul execuţiei 
în funcţie de mărimea Câmpului de care e legată coloana; it, 
Proprietatea Sparse a coloanei va primi valoarea 
controlul de tip listă va fi vizibil, la execuţie, pe toate liniile coloanei. Dacă această 
Proprietate are valoarea . P. (True), obiectul de tip listă va fi vizibil la ex a 
formularului, numai dacă utilizatorul se poziţionează pe coloana respectivă iti ai 


„FE. (False), astfel încât 


Atenţie! O dată inserat un control pe o col 


e dis Oană, nu mai poate fi şters; poate fi doar 


Fă Cornus =: 
a: baa) Matters | Lapora | Dee 


a! x daa o 


ea me t I 
B 


e| ma | 


“Waa 


[D sa al rame aj eco BENS eja 
Prochae (Vinzari Produse) > Record 8/6 nast Encina E ae 


Figura 10.2. Adăugarea unui alt control la o coloană a Grid-ului | 


În tabelul 10.] regăsim toate obiectele formularului (mai puţin cele de tip Label) 


unt, sperăm, suficient de 


Tabelul 10.1. Obiectele formularului frmProduse 
Proprietate 


„Comentarii 
Control: graProduse 


prealabil). 


o e a Segal 


Control: grdProduse,ColumnCodpr i 
Produse, Codpr 


Control: graProduse. ColumnDen 
Control Source Produse.Denpr = 
J 


RecordSource Grid-ul — 
Reco id-ul este legat la tabela PRODUSE. 

u 
a Sursa de date este o tabelă (deschisă în 


ColumnCount 


ControlSource 
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Proprietate Valoare Comentarii Proprietate V. 
ARIPA PE E IN RR | aloare FT ; 
"Control: grdProduse,ColumnUm Comentarii 
ControlSource Produse, Um caute în directoarele specificate prin SET 
Ja s n pë x ni $ 
CurentControl Combol Controlul activ al coloanei este Combo: DEFAULT şi SET PATH. Dacă fişierul nu 


este găsit, va fi generat un mesaj de eroare 


(figura 10.2). Ma An 
Sparse .F. Controlul activ va fi vizibil în momentul Putem folosi şi adresa absolută ori relativă 
execuției pe toate liniile coloanei. Panan pe ais (ex: f 
Control: graProduse.ColumnGrupa - ; f \aplicatie\imagini \butoane\ 
ControlSource Produse .Grupa New bmp), in acest caz fără să mai folosim 
| CurentClontrol Combol Vezi grdProduse.ColumnUm. Are bin ȘI ghilimelele. Imaginea trebuie să aiba, 
ineînțeles, dimensiuni adecvate, 


acelaşi nume ca şi ce! din coloana unităţii Mouselcon d 


de măsură, dar poate fi schimbat după 


= ză 1 i : 
hand~-1.cur Specifică pictograma cursorului 


mouse-ului, la momentul execuției, când 


dorință. 
mes n = a 7 ; 35 
Sparse sF: Vezi grdProduse . ColumnUm. MousePointer 99 -Custom eesin se va afla deasupra obiectului. 


răproduse. ColumnProctva Valoare necesară pentru a personaliza 


| RR E N RR N NN ÎI E II N a a 

Control: g $ 

amg | ictogram -ului i 
ControlSource Produse. PE pă ob a ului (vezi 
Proctva TooiTiprext pieri Dn). 

oam ga un produs î 

InputMask 9.99 i Formatul de afişare a datelor-sursă — ua P ai a T i 

, Când poziţionăm mouse-ul 


numeric cu un întreg şi două zecimale ups 
deasupra unui obiect, cu scopul de a lămuri 


separatorul zecimal este punctul). 3 i A 
Zolumnüm. Combol pe'scurt funcționalitatea acestuia. Pentru a 


Control: grdProduse. functi . $ 
ControlSource Produse.Um i uncţiona, este obligatorie setarea 
e proprietății Form. ShowTips pe valoarea 


RowSource 1- Value Sursa de populare a elementelor din listă o ae ez e eee a dl] „7. (True) 
Type | vor constitui valorile introduse efectiv în Control: emasterge i 
proprietatea RowSource în faza de Caption Sterge 
| roiectare a formularului. _ Picture ="Dpelete bmp” 
RowSource Buc, Kg, L, M Valorile ce vor constitui elementele din Mouselcon ="hand-1. cur” 
listă. Se introduc cu virgulă. | MouseFointer | 39 -custom 
Style DropdownList ; ToolTipText Sterge Produsul | 
Borderstyle O0-None | Elimină aspectul 3D. 5 curent 
Control: grădProduse. ColumnGrupa . Combol | Control: cmâModi fica, cmăsave, cmdAbandon Cami 
ControlSource__| Produse.Grupa SIE | | Au proprietăţi similare butoanelor prezentate anterior r agine 
RowSource 1- Value Vezi x l Formularul: FrmProduse 
| Type ; l ' graProduse , ColumnUm. Combol . Icon ="apps stop.ico “ Specifică picto din ti tre: 
RowSource Tigari,Bere,Dulci | ptilcă pictograma din titlul ferestrei 
uri ,Rechizite,Car | Asters = _____Î__(vezi şi emdAdauga). 
E | E. Proprietate adăugată la nivel de formular, 
Altele i l Ia valoarea .T. (True) dacă utilizatorul 
| Style 2-DropdownList ema pentru ştergere cel puțin un 
BorderStyle 0-None i : 
E : Control:oleBoundImagine ge: TipOrdonare A Proprietate adăugată la nivel de formular 
| Controisource Produse. E A Sedii Au ordonare. Poate lua 
Imagine | keon - va oarea sau D (ascendent/descendent). 
| Stretch 2-Stretch Îmaginea-sursă se va redimensiona în | azil i Frane Obligatorie pentru ca evenimentul m 
IE funcţie de dimensiunile controlului. | IE ess dl formularului să se declanșeze 
Control: cmdAdaugă 7 | sula de Ea eveniment al obiectelor 
eee ion Adauga RE i WindowType 1-Moaal d pene a ] i 
Picture =“New. bmp” "| Specifică fişierul de tip grafic ce conține R seg a mepu sau alte 
imaginea ce va fi afişată de obiect. Este ormulare în timpul execuţiei. 
precedat de semnul „==” şi inclus între 
l PoS să _| ghilimele, pentru ca Visual FoxPro să-l 35. Puteți găsi fişiere utile pentru imagini, pictograme sau cursoare dacă veți efectua o căut di i 
utilitarul sistemului de operare) după toate fişierele cu extensii specifice (* . bmp, * . i creta Ni Seas 
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tăm codul metodelor şi evenimentelor obiectelor. ada a A WOI 
Urmează să prezentă i al comenzii: închide tabela, şterge fizic datele ȘI apoi o redeschide. Pentru a restabili “ 


Listing 10.1. Metodele Load şi Destroy ale formularului frmProduse — varianta 1 legătura, putem recurge la următorul artificiu: 
Obi Source=0bi ; i 
[ Obiect: frmProduse(formularul) pi et „Control Source=Obiect ControlSource şi/sau 
Obiect . RowSource=0biect . Rowsource 
"Eveniment: Load Listing 1 i i ; 
IF NOT DBUSED('vinzari') Ea g 10.2. Metodele Load ŞI Destroy ale formularului frmProduse — varianta 2 
" OPEN DATABASE “aplicatieidatabasevvinzari” SHARED Obiect: frmProduse (formularul) 7 
ENDIF 
IF IUSED('produse') "Eveniment: Load 
USE produse IN O IF NOT DBUSED('vinzari) 
ENDIF OPEN DATABASE “aplicatie databasetvinzari” 
SELECT produse P ENDIF i vinza SARE 
SET SAFETY OFF &&suprima avertismentul la crearea/stergerea fisierelor IF IUSED('produse') 
INDEX ON denpr TAG denpr USE produse IN 0 SHARED 
INDEX ON um TAG um i ENDIF 
INDEX ON grupa TAG grupa SELECT produse 
INDEX ON proctva TAG proctva 
i , BEGIN TRANSACTION i i 
BEGIN TRANSACTION && se deschide o tranzacţie && se deschide o tranzacţie 
| "Eveniment: Destroy 
"Eveniment: Destroy Pe | | IF TĂNLEVEL(>0 && verifică nivelul tranzactiei fî j 
IF TXNLEVEL(>0 && verifică nivelul tranzacţiei (în cazul nostru va fi intotdeauna 1) m ! IF MESSAGEBOX('Salvati ultimele modificari? pi pai țel And ral 1) RS 
IF MESSAGEBOX('Salvati ultimele modificari?', 32+4,'Ultimele modificari nu au fost validate)=6 i END TRANSACTION t ' au fost validate')=6 
END TRANSACTION ELSE 
ELSE ROLLBACK 
ROLLBACK ENDIF 
ENDIF ENDIF . 
ENDIF ** stergerea definitiva nu poate fi realizatat pentru tabele deschise i j 
"IF THISFORM.Asters=.T. && vezi cmdSterge.click ** si va fi efectuata la inchidersa aoe pentru tabele deschise in mod partajat 
t 
j SELECT produse aplicatiei (vezi capitolul 17, listing 17.4) 
PACK Listing 10.3. Celelalte metode ale formularului frmProduse 
Sa pita: A f l Obiect: frmProduse(formularul) 
"vom sterge indecsii suplimentari utilizati: Eveniment: KeyPress 
DELETE TAG denpr LPARAMETERS nKeyCode, nShitAltCtri 
DELETE TAG um | do case 
DELETE TAG prociva case nkeyCode=44 && ALT+Z 
DELETE TAG grupa thisform.emdAdauga.click 
; : case nKeyCode=45 && ALTIX 
SET SAFETY ON &&restabileste avertismentul la crearea/stergerea fisierelor , thisform.emaSterge. click 
case nKeyCode=49 && ALTIN 
Notă. Indexarea tabelei PRODUSE după fiecare coloană este necesară pentru a putea | a S. EE 
A ai ra f i 2 . = 4 
ordona tabela după diverse criterii (cod, denumire, unitate de măsură), în funcție de ! thisform.cmdSave.click 
dorința utilizatorului. Trebuie să spunem însă că nu putem recurge la această metodă în | case nKeyCode=30 EE ALTA 
cazul tabelelor deschise în mod partajat (lucru în rețea), deoarece comanda INDEX ON : endcasei5/orm-emdAbandon. click 
necesită acces exclusiv la tabelă. De asemenea, pentru tabelele cu multe înregistrări, * pentru codurile combinatii f , 
mbinaţiilor de taste, vezi functia INKEY! „În ja Vi 
procedura va fi destul de lentă. | o i 0, în documentația Visual FoxPro 
Mai nimerit ar fi să construim de la bun început cei patru indecşi conform unor criterii A 
de ordonare plauzibile, iar în procedura de ordonare să activăm indexul corespunzător prin | deget, ai && adăugată de noi (vezi cap. 8 pentru lămuriri) 
1 $ . A _numeindex && parametrii se specifică aici cu LP. 

3 - l aw u aramet 
comanda SET „ORDER. Într-un asemenea caz, procedurile evenimentelor Load ş l Pentru modul de apelare vezi grdProduse. ColumnCodpr.Header1,Click R 
Destroy ar fi simplificate. | SELECT produse 

Atenție! Utilizarea comenzii PACK (ştergere definitivă) în timpul execuției l IF Po O RMTIAOrdanarae Ai 
formularului duce la pierderea legăturii între obiecte şi sursa de date THISFORM se e ASCENDING && &-macrosubstituție (cap. 4) 
(Cont rolSource sau RowSource). Explicaţia decurge din comportamentul intern __ELSE 
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aa Er i e ut E ia a ae a E ea e a E 
SET ORDER TO &p numeindex DESCENDING ÎI RN aa aaa III IRI 
Eveniment: Click 


THISFORM TipOrdonare='A' 
ENDIF SELECT produse 
RECALL 
GO TOP neta 
THISFORM.REFRESH biect:cmdSave 
Obiect:grdProduse Eveniment: Click 
END TRANSACTION ; ; 
Eveniment: AfterRowColChange && se declanşează la deplasarea de la o celulă la alta, BEGIN TRANSACTION se poa Sensei Sua 
actie 


&& după ce noua celulă a primit controlul 

LPARAMETERS nColindex Obiect:cmdAbandon 

THISFORM.IbiDenprodus.CAPTION=Produse.Denpr Eveniment: Click 
ROLLBACK 


THISFORM.REFRESH | 
&& ANULEAZA tranzactia curenta (toate actualizarile 


&& de la ulitma salavare sau de la ultimul abandon 


Obiect:grdProduse.CoiumnCodpr.Header1 SELECT produse 
Eveniment: Click GO TOP 28 im 
n " portant pentru a nu lasa controlul pe o inregist, 
THISFORM.Ordonare("Codpr”) Basa mimar Eyi gistrare care s-ar putea 
THISFORM.REFRESH mai existe dupa ROLLBACK 
s BEGIN TRANSACTION i 
Obiect:grdProduse.ColumnDenpr.Headeri THISFORM.grdProduse. ColurmnCodpr.SETFOCUS a mA 


Eveniment: Click 
THISFORM.Ordonare(“Denpr”) 


Obiect:graProduse.ColumnUm.Headeri Ş "Eveniment: Click && modifică imaginea produsului memorată în baza de date 
Vfis_nume=GETFILE(“Bmp:bmp; Gif:gif, Imgitif “, “Nume fisier:”, “OK”, O 
“SELECTATI FISIERUL DORIT”) 


Obiect: cmdimagine 


re 


Eveniment: Click 


THISFORM.Ordonare{"Um”) | 
. IF! EMPTY(vfis_nume) 
Obiect:grdProduse.ColumnGrupă.Header1 SELECT Produse 
Eveniment: Click APPEND GENERAL Imagine F. agn MR 
THISFORM.Ordonare(“Grupa”) ENDIF gine FROM &vfis_nume && “e - macrosubstitutie 
THISFORM.REFRESH 


Obiect:grdProduse.ColumnProctva.Textt f 
1. Pentru parametrii funcţiei GE TFILE( ) vezi documentatia VFP 


Eveniment: Valid AC A 
**Text1 este controlul curent (implicit) al coloanei ColumnProctva "functia GETFILE() se poate inlocui cu GETP. Q 
IF NOT INLIST(THIS.VALUE,0,0.19) f l | p u ICT | 
MESSAGEBOX(' Nu puteti introduce decat valoarea 0 sau 0.19 ',16,' Valoare invalida ' } În figura 10 i 
RETURN F. gura 10.3, care prezintă formularul în faza de execuție, observăm următoarele: 
ENDIF o al control de tip listă, în coloanele UM şi Grupa ale grid-ului afişează 
valoar ini ă i 2 
Obiect:cmdAdauga iai ea de pe linia corespunzătoare; 
E produsului curent se regăseşte sub imaginea sa; 
- Eveniment: Click e datele sunt ordonate după denumire în urma ării unui cli ; : 
SELECT MAX(codpr)+1 FROM produse INTO ARRAY default_cod Dënunire: p a executării unui click pe titlul coloanei 
j e controlul OleB d i ao : 
INSERT INTO Produse (codpr,denpr,um,grupa,proctva) i oundimagine afişează imaginea produsului cure i 
VALUES(default_cod,Produs_defauit' L'Bere',0.19) grid, P nt din controlul 
i e butonul j ecet aa IA S 
** nu am inclus în fraza INSERT câmpul general: Imagine iza cmdImagine (inscripționat Modifică Imagine) prezintă un alt tip de 
E iconiță a mouse-ului şi un scurt mesaj (TooltipText); 
THISFORM.graProduse.ColumnCodpr.SETFOCUS && necesar pentru  “cursivitatea” e la apăsarea butonului cmdlmagine, se deschide foreza derdiei 
actualizarilor x pa: i SAE că | “ og pentru 
căutarea unui fişier pe disc (folosim funcţia GETFILE () — vezi listingul 10.3) 


Obiect:cmdSterge Fereastra de dialog filtrează numai fişierele ce corespund tipului ales 


Eveniment: Click 
SELECT Produse 
DELETE 
ȚHISFORM.Asters=.T. 


Obiect:cmdAnulezsterg 
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2jProgus 4 
Prost 3 
Prodes Li 
Produs 5 
Prodos E 


[Produse Vezet Piodina) 
L - l 
Figura 10.3. Formularul de actualizare a datelor despre produse, aflat în faza de execuție 


10.2. Tratarea erorilor în faza de execuție a formularelor 


Erorile ce pot apărea la execuția unui formular se împart în două mari categorii: i 
e erori previzibile, ce provin în general de la motorul bazei de date (încălcarea 
restricţiilor referenţiale, a unicităţii cheii primare, a regulilor de validare, declanșa- 
toarelor etc.); | | 
e erori imprevizibile, ce pot avea diverse cauze legate, de cele mai multe ori, de 
inexistența pe disc a unui fişier necesar sau funcţionarea defectuoasă a unor 
componente externe utilizate de aplicaţie etc. pi | 
Toate aceste tipuri de erori sunt tratate de obicei prin intermediul a două evenimente, 
VALID şi ERROR, astfel: i E l 
e prin evenimentul Error al formularului putem trata în mod distinct toate erorile 
pe care ni le imaginăm posibile“ şi care pot proveni de la un obiect sau altul; i 
e prin evenimentul Error al fiecărui obiect în parte (anticipând erorile ce pot să 
apară în funcționarea obiectului respectiv); l l 
e prin utilizarea evenimentului Valid, ce se declanşează înaintea evenimentului 
Error, | | 
Ca metodă standard de lucru, cea mai indicată, zicem noi, este tratarea erorilor prin 
evenimentul Error al formularului. Rațiunea ar fi o modulare sporită a codului. Există 


ile nèi inabile” v vedea î É ita inime mnalare a lor. 
36. Pentru erorile „ntimaginabile” vom prevedea întotdeauna o modalitate minimală de semn 
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totuşi o problemă: deşi în cazul altor obiecte, după declanşarea evenimentului Error la 
nivelul formularului, controlul este returnat obiectului ce a declanşat eroarea, în cazul 
Grid-urilor este nevoie de invocarea explicită a metodei Set Focus pentru coloana care 
a declanșat eroarea. Dacă nu procedăm în acest fel, riscăm blocarea formularului la 
apariția unei erori anume. 

În cazul formularului exemplificat în paragrafele anterioare, metoda asociată 
evenimentului Error ar putea fi cea din listingul 10.3 bis. 


Listing 10.3 bis. Tratarea erorilor în mod glabal la nivel de formular * 


Obiect: FrmProduse ] 
*Eveniment: Error 


LPARAMETERS nError, cMethod, nLine 
IF nError=1884 && Uniqueness of index “name” is violated 
MESSAGEBOX('Ati utilizat deja acest cod de produs!!',16,'Se incalca restrictia de unicitate’) 
LSE i 


MESSAGEBOX(“Numar"+STR(NErron)+", 


Metoda:"+cMethod+”, Linia:"+STR(nLine) „16, “Eroare neprevazuta”) 
ENDIF 


THISFORM.REFRESH 


THISFORM grdproduse.SETFOCUS sai 


Parametrii evenimentului Error sunt: numărul erorii, metoda care a declanşat-o şi linia 
de cod cu pricina (vezi şi tratarea erorilor prezentată în capitolul 4). Aceşti parametri sunt 
transmişi implicit, la apariția unei erori, de obiectul care a declanșat-o. Cu alte cuvinte, în 
formulare nu este nevoie de instrucțiunea ON ERROR. 

Pentru o listă exhaustivă a numerelor (şi mesajelor) de eroare, se va consulta documen- 
taţia produsului Visual FoxPro (help-ul în format electronic, la rubrica Reference- 
ErrorMessages). De asemenea, putem apela la funcțiile ERROR (numar eroare), 
care va genera eroarea specificată prin număr, precum şi la funcţia MESSAGE (), care va 
returna ultimul mesaj de eroare apărut în sesiunea curentă de lucru. 


Produse 


ral Dl ăi 


Denumire 


6iProgus 6 y i a 
1 [Produs 4 ; È $ 
2j Produs 2 ÎL ; Ta i 


3|Pradus 3 
E] Produs 4 


= AN hilzat deja acest cod de produsi! 


| IEMA ER DRE EATA 0 0 i au mn 


i - ta fa ij Produs4 ` 
Pia SE A = _Modifica imagine 
ED pX în 
"Actauga Sterye Anulez Stery Samez Abandon $ 


DAAA 


Figura 10.4. Apariția unei erori (tratate) la executia formularului 
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Important! Prin tratarea erorii, dacă aceasta provine de la motorul bazei de date, se 

asigură şi restaurarea automată (auto-rever!) a situaţiei iniţiale. 

Figura 10.4 prezintă tratarea încălcării restricției de unicitate în momentul în care 
încercăm să introducem un cod deja existent (3) pentru „Produs 4”. 


10.3. Formulare şi tabele derivate. 
Specificul formularelor Master-Detail 


Formularele descrise până acum aveau drept scop actualizarea unei singure tabele. Chiar 
dacă erau deschise mai multe tabele, unele dintre ele se foloseau exclusiv în scopul consul- 
tării, prin popularea unor controale tip listă. 

Vom încerca, în paragraful ce urmează, să desluşim specificul formularelor „părinte- 
-copil” (Master- Detail sau One-To-Many). Prin aceste sintagme înțelegem acele formulare 
care au drept scop actualizarea a două sau mai multe tabele simultan, tabele care sunt „rela- 
ționate” (legate prin valorile cheilor primare şi străine) şi numai una este tabela-părinte, 
celelalte fiind tabele-copil. De regulă, unei înregistrări din tabela-părinte îi corespund mai 
multe înregistrări din tabela-copil, astfel încât numărul intervențiilor pe cele două tabele 
este, aproape întotdeauna, diferit. 

Ideea centrală ce trebuie urmărită în conceperea unui asemenea formular constă în 
faptul că acesta trebuie să asigure, pe lângă actualizarea datelor, şi o sincronizare a afişării 
acestora. Astfel, fiind poziţionat pe o linie anume din tabela-părinte, utilizatorul trebuie să 
poată accesa numai înregistrările corespunzătoare din tabelele-copil. 


BE 


Facturi- 


Zona 
x 


sao opor 
Factura noua | Serg factura | Anulez Sterg 


— Dhservatii 


zj [hoss 


Cantilate Prei unitar _- ivaloare Cu TVA 
m ET E 
| 


— 
7] ! - 
‘Zona : === i 


i Docs $ . 
1. Uinie noua |- Stergiinie | Anulez Steg 


-Valoare tatala factura 1- | IsVator 


Figura 10.5. Formular de tip One-to-Many pentru actualizarea facturilor 


Exemplul nostru va demonstra modul de realizare a unui formular de preluare a 
facturilor (figura 10.5), cu precizarea că nu urmărim şi crearea unui mecanism de protecţie 
la ștergere sau modificare a facturilor introduse în alte luni decât cea curentă (deci nu ne 
vom conforma întocmai regulilor financiar-contabile referitoare la închiderea lunii). De 
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pi A 


asemenea, pentru simplificare şi pentru a ne concentra atenţia asupra aspectelor nui ce le 
aduce acest tip de formular, am eliminat tranzacțiile (nu există butoane de validare/anul 
E Într-o etapă ulterioară (o dată cu sporirea experienței polară 
apela apa aceste mecanisme, deocamdată omise din raţiuni didactice, vor putea fi 
i Aşa cum am văzut în capitolul 2, o factură (ca document) este reprezentată în baza de 
ate prin intermediul înregistrărilor a două tabele (rezultat al normalizării): FACTURI şi 
LINIIFACT, Ca urmare, formularul va trebui să afişeze şi să permită actualizarea înre- 
gistrărilor celor două tabele luând în considerare legătura dintre ele: unei linii din tab la 
-părinte FACTURI îi corespunde mai multe linii în tabela-copil LINIIFACT. În acest sia 
aşa cum reiese și din figură, formularul va fi împărțit (convenţional) în două zone distincte: 
° zona l — corespunde tabelei FACTURI” şi oferă posibilitatea navigării st 
inregistrările acesteia și, eventual, editarea uneia sau alteia. Tot aici iii i 
butoanele de adăugare/ştergere a unei facturi, ştergerea implicând pe de o AA 
Ştergerea liniei curente din FACTURI, iar pe de altă parte, ştergerea tuturor liniilor 
corespondente din tabela LINIIFACT; - 
e zona 2 — corespunde tabelei LINIIFACŢIS şi va afişa la un moment dat doar liniile 
corespunzătoare facturii curent selectate în zona 1. Aici regăsim butoane de adău- 
fa seal Aia linii dintr-o factură, corespunzătoare unei singure linii din 


Realizarea acestui formular presupune rezolvarea a două probleme specifice, nediscu- 

tate în nici unul din exemplele de până acum: 

e controlul de tip Grid din zona 2 trebuie să filtreze înregistrările tabelei 

LINHFACT și să le afişeze numai pe cele corespunzătoare facturii selectate în 
zona l; 
° câmpurile Facturi .codcl şi Linii fact .codpr, fiind de tip numeric, nu 
pot fi legate direct prin proprietatea ControlSource la obiecteie de tip Combo- 
Box corespunzătoare din formular. 
O Tooma clasică de rezolvare a primei probleme constă în construirea unei tabele 
ierivate (view) parametrizate (vezi şi capitolul 9). Respectiva tabelă derivată va extrage la 
n moment dat doar acele înregistrări din tabela LINIIFACT ce au numărul de factură egal 
u valoarea unei variabile globale. În timpul execuției formularului, această variabilă va fi 
ctualizată permanent cu valoarea câmpului Nrfact de pe înregistrarea curentă din 
ACTURI. Ca urmare, prin reinterogare (funcția REQUERY () ), tabela derivată va conţine 
"totdeauna numai liniile aferente unei singure facturi. 

Pentru cea de-a doua problemă există, de asemenea, un mod de rezolvare standard: vom 
nunta la legarea directă prin ControlSource a celor două obiecte de tip listä; în 
himb, vom utiliza metoda Refresh şi evenimentul InteractiveChanue ale 
viectelor respective pentru a asigura sincronizarea cu datele din tabele. SE 


Secventa de cod entru c p B 
t p ntru construirea tabelei derivate des Te care vorbea O regasim 
. | ; 
- > 


PER eta Pt NI ee) e Be ae PRR 
Vezi capitolul 6, paragraful 6.5.2, pentru coloana Valtotala. 
Vezi capitolul 6, paragraful 6.4, pentru coloana calculată Valcutva adăugată în tabela LINIIFACT. 
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Listing 10.4. Cod-sursă pentru crearea tabelei derivate vlinii fact 


“View pentru liniile unei facturi 
nrfact_=1111 && variabila initializata cu o valoare aleatoare in scopul functionarii codului ce 


urmeaza 
CREATE SQL VIEW viiniifact AS ; 
SELECT  nriact, linie, ALLTRIM(STR(codpr)) AS  codpri,cantitate,pretunit vaicutva FROM 


iiniifact WHERE nffact=nrfact_ 


DBSETPROP('vliniifact „view tables' liniifact') 


DBSETPROP(vliniifact. nrfact', 'field','keyfield',.T.) 
DBSETPROP(vliniifact linie',fieid','keyfield',.T.) 


DBSETPROP('vliniifact.nrfact 'field','updatename liniifact.nrfact”) 
DBSETPROP('vliniifact linie ,'field' 'updatename ,liniifact linie") 
DBSETPROP('vliniifact.cantitate' 'field' 'updatename liniifact cantitate") 
DBSETPROP('viiniifact.pretunit' 'field''updatename liniifact. pretunit') 


** adugarea regulilor de validare ce actualizeaza campul "Valcutva"” 
DBSETPROP('vliniifact Cantitate, 'Field', 'RuleExpression','fvr_cant_pret_Viiniifact()') 
DBSETPROP('wvliniifact PretUnit, 'Field', 'RuleExpressioni,fvr_cant_pret_Vliniifact()”) 


DBSETPROP('vliniifact .nrfact', field' 'updatable',.T.) 
DBSETPROP('vliniifact linie field' '"updatable',.T.) 
DBSETPROP('vliniitact.cantitate',field' 'updatable', T.) 
DBSETPROP('vliniifact pretunit, field 'updatable',.T.) 
DBSETPROP('vliniifact valcutva ,field','updatabie', T.) 


DBSETPROP(vliniifact!, 'view, 'SendUpdates', .T.) 


După cum observăm, faptul că atributul Codpr este de tip numeric complică puţin 
realizarea interfeţei, prin simplul fapt că nu poate fi legat direct la un obiect de tip listă, 
Pentru că nu dorim să „chinuim” utilizatorul obligându-l să utilizeze direct codurile 
produselor (deşi există magazineri care cunosc mai bine codurile decât denumirile 
produselor), vom recurge Ja un artificiu constând în următoarele: 

e  transformăm, în definiţia tabelei derivate, câmpul Coapr din tip numeric în tip 

caracter (funcţia STR () în combinaţie cu ALLTRIM (), pentru a elimina spațiile); 

e câmpul nou-obținut, Codprl, nu va fi legat direct la câmpul corespunzător 
(Codpr) din tabela-sursă LINIIFACT, aşa încât orice actualizare a valorilor 
acestuia în tabela derivată nu va fi trimisă în tabela de bază; 

e  realizăm o legătură directă (proprietatea ControlSource) între obiectul de tip 
listă din coloana ColCodpr a grid-ului şi câmpul corespunzător al tabelei 
derivate, Codpri; 

e orice modificare efectuată de utilizator pe această coloană. o gestionăm prin 
intermediul evenimentului InteractiveChange, în care introducem câteva 
linii de cod ce vor realiza actualizările necesare direct în tabela de bază 
LINIIFACT, pe înregistrarea corespunzătoare. 

Un alt aspect ce trebuie sesizat se referă la câmpul calculat Valcutva. Acesta este 

actualizat automat de procedura stocată fvr_ cant pret Vliniifacti)” în 


39. Vezi capitolul 6, paragraful 6.4. 
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tabela-sursă, LINHFACT, la orice actualizare trimisă din tabela derivată. Totuşi pentru ca 
tabela derivată să afişeze valoarea reală a acestui câmp, ar trebui să reinterogăm după 
fiecare actualizare tabela-sursă (funcţia REQUERY ()). O modalitate de a evita această 
situaţie este crearea unei alte proceduri stocate care să calculeze automat câmpul în tabela 
derivată (listingul 10.4 bis). 


Listing 10.4 bis. Procedură stocată pentru actualizarea câmpului Vlinii fact .Valcutva 


PROCEDURE fvr_cant_pret_Vliniifact 

REPLACE VLINIIFACT.ValCuTVA WITH VLINIIFACT. Cantitate * VLINIIFACT PretUnit * ; 
(1 + afia_tva(Val(VLINIIFACT.CodPr1))) 

RETURN .T. 

ENDPROC 


În formular, coloana corespunzătoare din obiectul de tip grid va trebui să fie Read- 
Only. 

In continuare vom prezenta, în acelaşi mod cu care v-aţi obişnuit deja din paragrafele 
anterioare, proprietățile şi metodele obiectelor de pe formular. 


Tabelul 10.2. Obiectele formularului frmLiniiFact 


Proprietate ' Valoare | Comentarii ] 


Control: cboNrfact zil 
ControlSource (none) | Nu este legat la o sursă de date. Serveşte doar 
entru căutarea unei facturi. 
| RowSource 3-SOLStatement | z F 
Type 
RowSource SELECT nrfact, Lista facturilor, cu data fiecăreia şi o coloană j 
datafact, ce va afişa OK dacă factura nu este marcată 
IIF (DELETED (), pentru ştergere şi VA FI STEARSA în caz 
” VA FI contrar. 
STEARSA”, 
“OK”+SPACE (11) 
) FROM facturi 
ORDER BY 
nrfact INTO 
CURSOR crsfact 
BoundColumn 1 Proprietatea Value va stoca valoarea curentă 
de pe prima coloană a listei (nrfact), 
| ColumnCount 3 


Columnwiths 100, 100,250 
Style 


2-DropDownlist 
Control: t 


xtNrfact 


ControlSource Facturi .Nrfact 
SelectonEntry sty 
Control: txtData 
ControlSource Facturi. ] 
Datafact 
INI INI IN Ip o 
SelectonEntry tea 


boClient 


Control: c 
ControlSource (none) Nu este legat direct la Facturi .Codcl, 
entru că acest câmp este de tip numeric. 
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olumnWiths 


Columniiths 

Style 
Control: 

ControlSource 


RecordSource 


RecordSourceTy 
pe 


ControlSource 


ReadOnly 


RowSource 

Type 

RowSource 
codcl FROM 
cursor 
crsclienti 

BoundColumn 2 


txtValtot 


3-SQLStatement 


SELECT dencl, 


clienti INTO 


ORDER BY dencl 


Comentarii 
Sincronizarea se face prin intermediul 
metodelor Refresh şi InteractiveChange, 


Proprietatea Va lue va stoca valoarea curentă 
de pe a doua coloană (codec); va fi de tip 
caracter. 


| ColumnCount | 2 
Ç 250,100 
ÎN E DE ONAE ONO E N 


Style 2-DropDownlist Ă | 
Control: cboGestiune 
ControlSource Facturi. 
Gestiune 
RowSource 3-SCLStatement . - 
Type 
RowSource SELECT 
den_gest, 


gestiune FROM 
gestiuni INTO 
CURSOR 


BounaColumn 2 
| ColumnCount | 2 


250,100 
2-DropDownList 


Facturi .Valtotala 


Enabled „F.,-False 
InputMask 999, 999,999,99 Formatul de afişare a rezultatului. 
Control: grâvVliniifact (arid-ul de pe formular) 


Vliniifact 


listingul 10.4), 


1-Alias 


Vliniifact, 
Nrfact 
De = LEE 


(valoarea totala a facturii curente) 


Control: gravliniifact.ColNrfact 


Câmpul Valtotala este actualizat prin 
trigger-ul de update al tabelei LINIIFACT 


Tabela derivată construită anterior (vezi 


Utilizatorul nu va putea modifica valorile pe 
această coloană (numărul de factură este 
același pentru toate liniile facturii). Această 
coloană poate să lipsească, dar a fost totuşi 
introdusă pentru a urmări sincronizarea 


înregistrărilor din cele două tabele. 
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Proprietate 
DynamicEack 
Color 


DynamicFfore 
Color 


| = 


Readoniy 

DynamicBack 
Color 
DynamicFfore 
Color 


SREE 
Sparse 


ControlSource 


DynamicBack 
Color 

DynamicFore 
Color 


| Doo 


Controlsource 


Color 
DynamicFore 
Color 


ControlSource 


ReadOnly 


ControlSource 


ControlSource Vliniifact.Lin 


ControlSource Vliniifact, În tabela derivată, numele câmpului este 
Cocpri Codpri 

DynamicBack Idem ColNrfact e ao caca 

Color 

DynamicFore, Idem ColNrfact 

Color 


CurentControl Combol 


tunit __ 
DynamicBack Idem ColNrfact 
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Valoare 
IIF (RECNO () =cu 
renta _ „RGB (255 
+255,8) ,RGB(0, 
64,128)) 


Comentarii 
Linia curentă (activă) capătă o altă culoare 
decât celelalte. Variabila globala curenta 
este iniţializată în gravlinii fact, Init 
şi actualizată la evenimentul 
AfterRowColChange al Gri a-ului. Pentru 
funcţiile RGB () şi RECNO () vezi 
documentaţia Visual FoxPro. 

Similară proprietăţii Dynami cBac Color. 
doar că se referă la culoarea caracterelor. 


IIF (RECNO ()=cu 
renta_,0,RGB (2 
55,255,255)) 

Control: grâvliniifact.ColLinie 


ie 


Vezi Col Produs 


Idem CoiNrfact 


Idem ColNrfact 


Control: grdVliniifact.ColCodpr 


Pentru schimbarea controlului activ al 
coloanei, yezi explicațiile din paragraful 10.1, 
F. m 
Control: gravliniifact,ColCantitate 
Vliniifact,. 
Cantitate 


Idem ColNrfact 


Idem CoiNrfact 


Control: grăvliniifact,ColPretunit 
Vlinăitfact, Pre 


Idem ColNrfact 


Control: gravliniifact,ColValcutyvă 


Control: grdVliniifact.ColCodpr .CboCodpr 
(controlul activ al coloanei pentru produs din Grid) 


Vliniifact. 
Vicutva 
Nu permite modificare. 


vyliniifact.Coa 
prl 


RowSource 


3-SQiStaterent 
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Proprietate Valoare Comentarii 


Type E 
RowSource SELECT denpr, Codul produsului suferă aceeaşi transformare 
ALLTRIM (STR (co (tip caracter) ca şi în definiţia tabelei derivate 
Gpr)) AS codpr pentru a lega obiectul la respectivul câmp. 
FROM produse 
ORDER BY denpr 
INTO CURSOR 
ȘI crsdenpr 
Boundcoi umn 
ColumnCount 1 La deschiderea listei se va afişa o singură 
i coloană: cea cu numele produselor, Acest fapt 
nu ne împiedică să o legăm pe cea de-a doua la 
sursa de date Vliniifact,Codprl. 


BorderStyle 0-None 


În ceea ce priveşte metodele şi evenimentele, vom începe prin a le prezenta pe cele 
„sensibile”, specifice sincronizării datelor cu obiectele corespondente de pe formular (este 
vorba de tabela derivată Vliniifact şi câmpurile Liniifact.Codpr şi 
Facturi .Codel). 


Listing 10.5. Principalele metode ale formularului frmFacturi 


ca a A AIRES TE IO O A E RED 2 A IRI 
Obiect: frmFacturi (formular) 
"Eveniment: Load i 
PUBLIC nrfact_ && parametrul tabelei derivate trebuie declarat Public pentru a 


&& putea fi apelat de metodele altor obiecte 
IF !IUSED(facturi”) 
USE facturi IN 0 EXCLUSIVE 
ENDIF 
SELECT facturi 


GO TOP 
nrfact_=Facturi.nrfact && inițializarea parametrului tabelei derivate este obligatorie 


&& înainte de a o deschide 


IF 'USED(vliniifact”) 
USE viiniifact IN O 
ENDIF 


REQUERY( 'Viiniifact' )  && pentru funcția REQUERY(), vezi capitolul 9 


IF !USED('gestiuni”) 
USE GESTIUNI IN 0 
ENDIF 


Obiect: cboNrfact 
*Eveniment: InteractiveChange 
nrfact_=VAL(THIS.VALUE) && actualizăm parametrul tabelei derivate cu valoarea curentă 
&& selectată din listă transformată în tip numeric 
x=SEEK(nrfact_,facturi','nrfact”) && cautare si pozitionare in tabela facturi 
REQUERY('viiniifact: ) 
THISFORM.REFRESH 
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, | Obiect: cboClient 
Metoda:Refresh && asiguram sincronizarea obiectului cu valoarea curentă Facturi. Codel 


codci_=facturi.codel 
FOR i=1 TO THIS.LISTCOUNT 
IF VAL(THIS.LIST(i,2))=codel_ 
THIS. LISTINDEX=i 
ENDIF 
ENDFOR 


” THIS. — specifica obiectul curent (echivalent cu THISFORM.eboClient. ...) 


"Eveniment:interactiveChange && asiguram sincronizarea valorii curente Facturi. Codel cu 
&& noul element ales din listă 
REPLACE facturi.codei WITH VAL(THIS.VALUE) i 
nu uităm că BoundColumn este 2 


y i , Obiect: grdViiniifact.ColCodpr.Combo1 
Eveniment:interactiveChange && asigura sincronizarea valorii curente Liniifact. Coapr cu 


&& noul cod al produsului selectat din li: 
curentnrfact_=vliniifact.nrfact P. din listă 


curentlinie_=vliniifact.linie 
UPDATE liniifact SET codpr=VAL(THIS.VALUE) ; 
f AI E eee uaa AND linie=curentiinie 
nu uităm că noul câmp Codpr1, al tabelei derivate la care este legat controlul imi 
actualizările în tabela de bază Liniifact iti i i 


Estate Ee Obiect: grdViiniifact 
ent:Valii absolut necesara în cazul Grid-urilor | iva 
Seal id-urilor legate la tabele derivate 
TABLEUPDATE() && asigura comiterea modificărilor liniei curente din 
&& Vliniifact în tabela de bază Liniifact , atunci când grid-ul pierde 
&& controlul si 


sei f Obiect: txtNrfact 
veniment:LostFocus && asigurăm sincronizarea obiectelor la modificarea unui număr de 
&& factură 


nrfact_=THIS.VALUE 


THISFO R M.cbonrfact REQUERY && reincarca lista de elemente 


FOR 21 TO THISFORM.cbonrfact.LISTCOUNT 

IM(THISFORM.cbonrfact.LISTITEM(i))==ALLTRIM(STR(facturi.nrt 

THISFORM.cbonrfact LISTINDEX=i till iti 
ENDIF 

ENDFOR 


REQUERY (vliniifact') && reactualizează tabel, ivată 
THISFORM.REFRESH = ltd 


atat E a) 


In continuare vom prezenta şi celelalte metode şi evenimente ce completează „compor- 


tamentu!” formularului. 
Listing 10.6. Alte metode ale formularului frmFacturi 


Obiect: grdViiniifact 


"Eveniment: Init && vezi proprietățile DynamicBackColor şi D i 
PUBLIC curenta, ți y şi DynamicForeColor ale coloanelor 


curenta =RECNO( 
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+rRowColChange ate, 
)0) &&variabila preia numarul inregistrarii curente din Vliniifact 


itot REFRESH 


Obiect: txtNrfact 
d 


beii facturii trebuie sa fie > 0',16,'Eroare la introducere date') 


Obiect: cmdAdaugaFactura (CommandButton) 
k 
icl 
'stiune | 
Xuri VALUES(0,DATE(,gest_,codel_,",0,4 7 / ),0.0) 


u valori implicite pe cheile straine 


act) 
RESH 
act. SETFOCUS 
Obiect: cmdStergFactura 
k ~ 
ai intai liniile copil din tabela Liniifact si abia apoi linia curenta din tabela Facturi 
zer-ul de stergere din tabela facturi (trebuie să nu ia în 
niile-copil marcate pentru stergere) 
iniifact WHERE nrfact=nrfact_ 


irfact REQUERY() && reactualizam lista 


Obiect: cmdAnulezStergFactura 


fact=nrfact_ 
fact REQUERY() 


Obiect: cmdAdaugaLinie 


k Î 
M(STR(produse.codpr)) && va fi codul de produs implicit pentru o linie noua 


ie) FROM viiniitact INTO ARRAY alinie 
niifact VALUES (nrfact_,alinie(1)+1,produs_,0,0) 
i 


) 
3.codpr WITH VAL(produs_) 
răvliniifact. SETFOCUS 


Obiect: cmaStergLinie 


Obiect: frmFacturi (formularul) 
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*Eveniment: Error 
* tratarea erorilor la nivel de formular (globa!) 
LPARAMETERS nError, cMethod, nLine 
text_="" 
do case 
case nerror=1585 && update conflict 
messagebox("'Datele inregistrarii curente au fost modificate intre timp ",16,"Eroare 
actualizare”) 
tabierevert() 
requery() && numai daca nu suntem intr-o tranzactie 
text_="thisform.grdviiniifact.setfocus" 
case nerror=1884 && uniqueness of index. .... 
messagebox('Mai aveti odata acest numar de factura',16,'eroare unicitate’) 
text_="thisform.txtnrfact.setfocus" 
otherwise 
messagebox("Nr: "+ str(nerror)+"metoda: "+cMethod, 16,"Eroare neprevazuta") 
endcase 


if lempty("text_”) 
&text_  && macrosubstitutie 
endif 


10.4. Formulare parametrizate 


Este important de ştiut faptul că un formular poate fi apelat cu parametri şi poate returna 
valori. | | 

Parametrii formularului vor fi preluaţi prin intermediul evenimentului Init, prima 
instrucţiune a acestuia fiind: 

LPARAMETERS parametrul, .., parametru n 

Ştim că, atunci când o procedură parametrizată este lansată în execuție fără parametri 
actuali, aceştia au întotdeauna valoarea logică .F. (False). Ca urmare, în cazul în care 
formularul trebuie să funcţioneze şi independent de modulul apelant, va trebui să 
introducem un test suplimentar asupra tipului parametrilor cu ajutorul funcției 
VARTYPE (), 

Parametrii actuali vor fi transmişi formularului prin comanda: 

DO FORM <Numeformular> WITH <pl>, ., <pn> [TO <variabilă>! 

Clauza TO <variabilă> a comenzii de mai sus specifică variabila ce va prelua 
(dacă este cazul) rezultatul returnat de formular. Pentru ca variabila să capete o valoare, e 
nevoie de o instrucţiune RETURN <valoare> la sfărșitul evenimentului Unload al 
formularului respectiv. 


Atenție! Dacă formularul returnează o valoare, este obligatoriu ca acesta să fie modal 
(HindowType=1). În caz contrar, execuția modulului apelant nu este suspendată. 
Acest fapt poate genera diferite erori atât timp cât formularul nu a returnat o valoare. 


Din păcate, se pare că nu putem prelua rezulatul unui formular decât printr-o singură 
variabilă. În cazul în care trebuie totuşi să fie returnate mai multe valori, limitarea poate fi 
depăşită prin „împachetarea” acestora într-un singur şir de caractere ce va conţine un 
caracter cu rol de separator: 

pi="alfa” 
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p2="beta” 

RETURN pl+t”~”+p2 

„Recuperarea” ulterioară a valorilor în programul apelant poate fi realizată cu ajutorul 
funcţiilor specifice LEFT (), RIGHT (), SUBSTR (), în combinaţie cu funcţia AT (), 
menită să găsească poziţiile caracterelor de delimitare. Recunoaştem că procedeul este 
greoi, dar comanda DO FORM .. TO ... nu permite transmiterea parametrilor prin 
referință“ „dinspre” formular spre modulul apelant. O altă soluție ar putea fi utilizarea unei 
variabile publice de tip tablou sau a unei tabele temporare cu o singură coloană, populată cu 
valorile de returnat, urmând a se transmite „afară” numele ei. 

Mai trebuie să precizăm aici că putem apela proprietăţile şi metodele obiectelor unui 
formular aflat în execuţie, dintr-un alt program ce se execută în paralel, prin intermediul 
unei proprietăți a variabilei sistem de tip obiect SCREEN“), astfel: 

__SCREEN. ACTIVEFORM. Obiect .Metodă sau 

_SCREEN. ACTIVEFORM. Obiect .Proprietate 


10.5. Utilizarea controalelor ActiveX în formularele 
Visuai FoxPro 


Sistemul de operare Windows a oferit încă de la primele versiuni posibilitatea comuni- 
cației între diferite tipuri de aplicaţii, atât sub forma schimbului de date (de exemplu, 
operaţia de copiere a unui grafic din Excel în Word), cât şi ca încorporare într-o aplicație a 
unui obiect specific altei aplicaţii, păstrându-i acestuia din urmă funcţionalităţile native. 


10.5.1. Ce este şi ce-şi propune tehnologia ActiveX ? 


Tehnologia ActiveX se bazează pe folosirea într-o aplicaţie a unui obiect creat cu 
mijloacele unei explicații diferite. În acest caz, spunem că una dintre aplicaţii joacă rolul de 
server de obiecte, iar cealaltă rolul de client. Sistemul de obiecte distribuite şi protocolul 
corespunzător dezvoltate de Microsoft au format la început tehnologia OLE (Object Linking 
and Embedding). Ulterior a apărut tehnologia ActiveX, o perfecţionare (cu deschidere către 
Internet) a tehnologiei OLE, care a fost la rândul ei rebotezată Automation. 

După modul în care codul executabil al serverului interacționează cu cel al clientului, 
aplicațiile-server pot fi de două feluri: 

e in-process — nu pot funcționa independent, ci numai dacă sunt apelate de o 
aplicaţie-client care încorporează codul executabil al serverului în propriul spaţiu 
de adrese (pe acest principiu funcţionează bibliotecile .DLL şi .OCX ale 
Windows-ului). Este o soluție caracterizată prin viteză, dar vulnerabilă la defec- 
țiunea oricăreia dintre cele două aplicaţii. 

e  out-of-process — serverul se execută în propriul spaţiu de memorie, schimbul de 
date cu aplicația-client realizându-se prin diferite tehnici de comunicare 
interprocese. Aceste tehnici consumă mai multe tipuri de resurse şi, ca urmare, vor 


40. Vezi capitoiul 4, pentru modalități de transmitere a parametrilor între module. 

41. Vezi documentaţia Visual FoxPro, capitolul 17 și capitolul 1, pentru alte proprietăţi şi metode ale variabilei 
sistem de tip obiect SCREEN. 

42. Atragem atenţia că termenii client şi server nu definesc aici două calculatoare diferite, ci două programe 
diferite, care se pot executa pe același sistem de calcul sau pe sisteme diferite. 
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determina timpi de execuţie ceva mai mari. În contrapartidă, apare toleranța mai 
bună la erori: dacă serverul ori clientul „sucombă”, cealaltă aplicaţie își păstrează 
totuşi integritatea. Practic, orice aplicație Windows cu extensia . EXE ar putea servi 
ca server out-of-process, exemplele „clasice” fiind Excel, Visual Basic, clienţii de 
e-mail etc. 

Revenind la cazul nostru, putem spune că utilizarea obiectelor „străine” mediului Visual 
FoxPro prezintă în momentul de față două nuanțe. Pe de o parte, mecanismul 
Automat ion permite inserarea unui obiect al unei alte aplicaţii în următoarele locaţii: 

e un câmp de tip General dintr-o tabelă (aţi văzut deja cum se memorează 

fotografia unui produs, dar gândiţi-vă că s-ar putea memora CV-ul unui angajat, 
scris în Word); 


e un raport sau un formular (prin utilizarea controlului ActiveX (OLE) pah. 

Pe de altă parte, anumite controale ActiveX (fişiere cu extensia . OCX), care nu țin de 
o aplicaţie anume, pot fi utilizate în formularele Visual FoxPro pentru îmbunătățirea 
interfeței, în caz că dezvoltatorul nu se mulţumeşte cu puterea celor 20 de controale native 
Visual FoxPro (din bara de instrumente Form Control s). În acest capitol ne vom ocupa 
numai de posibilitatea folosirii acestor noi controale şi nu a programării (creării) lor. 

Aplicaţia-client (Visual FoxPro) poate apela, prin intermediul obiectelor incluse, 
funcționalități ale aplicaţiei-server (spre exemplu, pentru a actualiza un grafic Excel bazat 
pe o sursă de date FoxPro, se poate lansa din Excel o interogare SOL adresată mediului 
FoxPro). Obiectele ActiveX expun aplicaţiei-client doar acele evenimente, proprietăți şi 
metode strict necesare, fără să necesite din partea dezvoltatorului cunoştinţe suplimentare 
referitoare la arhitectura internă a componentelor respective. 

Aplicațiile Windows pot folosi o multitudine de componente ActiveX gata dezvoltate: 
controale ActiveX stocate în bibliotecile sistemului de operare Windows ori instalate pe 
sistemul de calcul o dată cu alte pachete software (spre exemplu, Visual Studio) sau 
procurate de la terți (livrate pe suporturi clasice sau descărcate de pe Internet). În plus, 
programatorii pot dezvolta propriile lor controale ActiveX, pentru a face față unor situaţii 
variate, Din acest punct de vedere, utilizatorii pachetului Microsoft Visual Studio se pot 
folosi de mediile Visual C++, Visual Basic (numai versiunile Professional şi Enterprise) — 
ambele permit crearea de componente . OCX, . EXE şi . DLL şi chiar Visual FoxPro (numai 
pentru „EXE și . DLL). 


10.5.2. Utilizarea controlului Chart într-un formular 


Conform sintagmei „o imagine face cât o mie de cuvinte”, există multe situații în care 
utilizatorii doresc să obțină dintr-o bază de date situații de ieşire ceva mai sugestive decât 
liste întregi de cifre. Pentru satisfacerea unor asemenea cerințe, dispunem de controlul 
Microsoft Chart, care a fost conceput ca o cale simplă de a afişa sub formă grafică 
serii de date“, 

Inainte de a prezenta un formular Visual FoxPro care foloseşte controlul Chart, vom 
exemplifica modul general de inserare a controalelor ActiveX într-un proiect Visual 
FoxPro, Se poate proceda în două moduri: 


43. Există şi o facilitate nativă Visual FoxPro de realizare a graficelor, dar flexibilitatea controlului Chart este 
net superioară. 
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1) Pe formular se trasează un control ActiveX (OLE), ca în figura 10.6, apoi, la 
apariţia dialogului din figura 10.7, se procedează la selectarea componentei dorite. Întrucât 
va fi afişată o listă cu toate controalele ActiveX disponibile pe sistemul respectiv de 
calcul, trebuie să cunoaştem, în această etapă, doar numele celui care ne interesează. 


za ei S e aia 


e Dl i 
| 


Conti Type: +>; asy 
i ~f Micrasolt Agent Control 2.0 
t- FMicrasoft Animation Control 6.0 (SP4) 


; | f -Cieate hom Fi Microsoft Animation Control, versiori 5.0 SP2) 
gr RE jordsati Chat Conto 6 [i {SPAHMEDB] 22 

; 1 Inser Control Microsof! Common Dialog Control, version 8.0 

fiu epice Micrasoft Communications Control, version 6.0 


Microsolt Coolba: Control, version 6.0 “i 
Microsoft DataCombo Control, version 8.0 {OLEDE) 
Microsoft Datarid Control 6.0 (SP5) (OLEDB) i 
Mictasaii DataList Control, version 6.0 (OLED8) rai 

— | Microsolt Da'aPepealei Contol, version 6.9 =] : 


Opţiunea de inserare a 
unui control 


> 3 Add Coniol.. 
E printre 


-i o {3A28370C-BA0A-11D1-5137.0000F8753F50 
: Talia) CAWINNT AS yetam224MSCHRT 20.00% 


Figura 10.7. Dialogul de inserare a unui control (versiunea 1) 


Atenţie! Pentru ca fereastra de dialog să arate ca în figura 10.7, trebuie instalat Visual 
Studio ServicePack 3 sau o versiune ulterioară. 


În exemplul nostru, alegem Microsoft Chart Control 6.0 (numărul versiunii 
poate diferi, după configurația software a fiecărui sistem în pane). În partea de jos a 
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ne 


B a Ma identificatorul unic CLSID”, cât şi calea şi numele fişierului- 

2) Selectăm opţiunea Tools>Options...—=>Controls a meniului principal 
Fereastra afişată va fi cea din figura 10.8, unde se bifează controalele dorite. Printr-un clek 
pe butonul View Classes din bara de instrumente Forms Designer se a 
opțiunea ActiveX (figura 10.9). Bara de instrumente Forms Designer îşi va schi ba 
aspectul, afişând doar controalele adăugate la proiect prin opțiunea de e 
Tools-Options. ,.Controls (vezi figura 10.10). il 


: Regional | s Debug: i F i E maka =] îi Fa Mapping 
y ven] General | Data | Remote Data File Locations | Forms | “Projects Contols 


T Ysual class ibraries:.: 
@ ActiveX contiols . 
Selected... $ 
O MessageView Class 

C Microsoft ADO Data Conto! 6.0 (SF 
E] Microsoft ActiveX Upload Cantal, v 
[] Microsoft Agent Contra! 2.0 i 
EJ Microsoft Animation Control 6.9 (SP: z 
| ] Microsoft Animation Control, version 


Microsoft Common Dialog Control, v = : 
[] Microsoft Communications Control, + >] i ata 


Microsoft Chan Cotro! 6.0 (SP4) (DLEDB) = 


Figura 10.8. Dialogul de adăugare la proiect a controalelor Activex (versiunea 2) 


Figura 10.9. Opţiunea pentru bara de controale ActiveX 


În acest ultim caz plasarea controlului Chart i 
est i ` pe formular are loc prin i 
butonului indicat în figura 10.10. dia cul 


44. Sistemul de operare Windows a fost proiectat după o arhitectură orientată-obiect. Pentru o funcționare 
armonioasă, se atribuie fiecărui tip de obiect un identificator unic numit CLSID (CLaSs IDentifier). Acesta 
este memorat în baza de date Registry. a 

15. Există şi biblioteci care includ mai m i ij 
Exist ulte controale, dar Visual FoxPro erijă să isocieze şi i 
e are grijă să le disocieze şi să le prezinte 
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CELADO E Ea 


Microsoft Chart Control 6.0 (SP4) (OLEDB) 


Figura 10.10. Linia de instrumente ActiveX, după alegerea controlului Chart 


În ambele cazuri, rezultatul obținut arată ca în figura 10.11. 


Notă. Pentru plasarea altor controale pe formular (din cele native VFP), e necesar să 
ne întoarcem la bara de instrumente Standard, prin meniul arătat în figura 10.9. 


Figura 10.11. Formular care conţine un obiect de tip Chart 


Aspectul iniţial al obiectului de tip Chart poate fi modificat, în limite largi, folosind 
proprietăţile sale. Pentru început, vom da proprietății Name valoarea OleChart, Alte 
proprietăți notabile sunt redate în tabelul următor. 


Tabelul 10.3. Principalele proprietăţi ale controlului Chart 


| Proprietate Semnificație i 
ChartType Tipul de grafic (1-24 Bar înseamnă histogramă simplă, 13-34 Pie este 
diagramă de structură tridimensională etc.). Sunt disponibile într-o listă. 
Column __ | Coloana curentă (proprietate utilă la popularea cu date). B 
[eclumnCount Numărul de serii de date (în cazul de faţă, numărul de coloane per categorie 
este 4). ' 
ColumnLabel Numele seriei de date (exemplu: cifra de afaceri, profit, salariu etc.). 
| Row Linia curentă (proprietate utilă la popularea cu date). 
RowCount Numărul de categorii (în cazul de faţă, R1...R5). 
Numele categoriei (exemplu: firma, an, nume salariat etc.). 
DATA A Valoarea curentă (linia n, coloana m) din sursa de date, 
ShowLegend Afişează (. T. ) sau nu (. E.) legenda. 
TitleText Titlul graficului. 


De asemenea, multe proprietăți sunt accesibile prin pagina de proprietăți proprie 
controalelor ActiveX. Pagina se obține prin click-dreapta pe controlul respectiv, urmat de 
selecția opțiunii <nume-control> Properties din meniul contextual (figura 10.12). 
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- Fonts 
Series Color 


i isa r: Show makers 


- i T Stack series 


e T Series in tows 


Figura 10.12. Fereastra de proprietăți specifică unui control ActiveX 


După cum se observă, această fereastră are nu mai puţin de 8 cadre de pagină, fiecare 
cuprinzând proprietăţi prezentate într-o formă mai accesibilă decât în tradiționala fereastră 
Properties a mediului Visual FoxPro. Pe pagina redată în figură se observă tipul de 
grafic selectat, precum şi opţiuriea pentru afişarea legendei. Și, fiindcă veni vorba de 
legendă, precizăm că poziţia ei poate fi modificată. Din nefericire, atât poziţia legendei, cât 
şi mulți alți parametri sunt accesibili doar de manieră „programatică” (prin cod). Unele 
dintre proprietăți generează chiar erori dacă se încearcă modificarea valorilor lor direct în 
fereastra Properties. 

Pentru o listă exhaustivă a proprietăților şi metodelor controlului Chart vă recoman- 
dăm documentația MSDN în format electronic (vezi figura 10.13). Atenţie, va trebui să 
consultați rubrica Visual Basic Documentation, care s-ar putea să nu fie activată dacă nu ati 
selectat opțiunea corespunzătoare la instalarea documentației MSDN. l 

Pentru exemplificarea modului de utilizare a acestui control, pornim de la ipoteza că am 
dori un grafic de tip histogramă care să reprezinte volumul vânzărilor cu şi fără TVA, 
pentru anumite zile. La o primă vedere, ne sunt necesare două serii de date (se vor 
reprezenta ca bare a căror dimensiune se reprezintă pe ordonată şi care au culori diferite): 
vânzările fără TVA, respectiv vânzările cu TVA. Cât despre categorii (care în graficele 
histogramă sunt puncte convenţionale pe abscisă, fără legătură cu vreo unitate de măsură), 
acestea vor fi determinate de fiecare zi (dată calendaristică) pentru care avem vânzări. Prin 
urmare, pentru început vom atribui proprietății ColumnCount valoarea 2. Nu ne putem 
pronunța asupra valorii proprietății RowCount, întrucât nu ştim, deocamdată, despre câte 
date calendaristice distincte este vorba... 
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Figura 10.13. instrucțiuni de folosire a controalelor ActiveX incluse 
în pachetul Visual Studio 


Figura 10.14. Corespondenta valorilor din sursa de date cu coloanele graficului histogramă 


Dacă sursa de date îmbracă o formă matriceală, corespondența relativ la coloanele 
histogramei este ilustrată în figura 10.14. Listingul 10.7 prezintă secvenţa de cod necesară 
stabilirii acestei corespondențe, plasată în evenimentul Init al formularului care 
găzduieşte controlul Chart. Sursa de date este obținută printr-o interogare SQL care, 
zicem noi, se explică prin ea însăşi, 
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Listing 10.7. O primă versiune a procedurii-eveniment Init 


IF 'DBUSED('vinzari”) ] 


£ OPEN DATABASE "aplicatie databasewinzari' SHARED 
NDIF 


SELECT datafact, SUM(cantitate*pretunit) AS Val_zi_fTVA, ; 
SUM(cantitate*pretunit"1.19) AS Val_zi_cuTVA ; 
FROM facturi F INNER JOIN liniifact If ON F.nrfact=it.nrfact : 
INTO CURSOR sursa_grafic ; 
GROUP BY datafact ; 
ORDER BY datafact 


SELECT sursa_grafic 


THISFORM.oleChart.ColumnCount=2 && graficul va avea doua serii de date: 


, | && valoarea fara TVA si valoarea cu TVA 
graficul are atatea categorii cate linii are tabela-sursa: 


THISFORM.oieChart.RowCount=RECCOUNT(sursa_grafic') 


cneaz cu date folosind o bucla SCAN pe cursorul SURSA_GRAFIC 


WITH THISFORM.oleChart 
„Row=RECNO() && pozitionare pe categoria care corespunde liniei curente din tabela-sursa 
„Column=1 && pozitionare pe coloana (seria de date) 1, linia curenta 
„Data=sursa_grafic.Val_zi_fTVA && atribuire sursa de date pentru coloana 1 
„Column=2 && pozitionare pe coloana (seria de date) 2, linia curenta 
„Data=sursa_grafic.Val_ zi_cuTVA && atribuire sursa de date pentru coloana 2 


„RowLabel=ALLTRIM(DTOC(datafact)) 
ENDWITH 
ENDSCAN 


Îi ai ii a ata 


La execuție, formularul va afişa graficul din figura 10.15. Deşi aspectul acestuia este, 
deocamdată, mai mult decât discutabil, putem zice totuşi că pasul cel mai greu a fost 
realizat: graficul reflectă valorile din sursa de date. Pentru a îmbunătăți forma graficului, 
urmează să-l completăm cu un titlu, o afişare mai inteligibilă a cifrelor de pe axa Oy, să 
suprimăm cea de-a doua axă Oy (din dreapta), să ajustăm aspectul axei Ox (datele 
calendaristice sunt scrise pe verticală, deoarece nu există suficient spaţiu pe formular), De 
asemenea, este necesară o legendă, dar care să fie amplasată sub graficul propriu-zis, spre a 
câștiga spaţiu pe orizontală (elementele graficului se redesenează proporţional, în funcţie de 
dimensiunile ~ Height şi Width — obiectului Chart). Cu alte cuvinte, parcurgem etapa 
numită „rafinarea graficului”. 

Pentru început, afişarea legendei în poziţia implicită (dreapta-sus) are loc prin activarea 
opțiunii Show Legend (notată cu 1 în figura 10.12). Cea de-a doua axă Oy se suprimă 
urmând indicaţiile din figura 10.16 (dezactivăm opţiunea ShowScale pentru axa Second 
Y Axis). Secvența de cod prezentată în listingul 10.8 rezolvă celelalte aspecte ale etapei 
de rafinare dacă va fi adăugată la procedura evenimentului Init (listingul 10.7). 
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Tz seroot 4 


Automatic scaling 


Figura 10.16. Opţiunea pentru axa secundară Oy 


Listing 10.8. Completarea procedurii-eveniment Init 


"* continuare listing 10.7 
* atribute vizuale ale graficului 
WITH THISFORM.oieChart 
* se stabileste formatul etichetelor de pe axa Oy, 
* ca sa incapa milioanele 
FOR i=1 to „Piot.Axis(1).Labels.Count 
* atentie, formatul numeric se scrie in maniera Basic!!! 
„Piot.Axis(1).Labels.ltem(i). Format = "HA HHR HHO” 
ENDFOR ; 
* pozitia legendei (vezi directiva #INCLUDE si fisierul Pozitii_legenda.txt) 
.Legend.Location.LocationType=LegendaPozJosCentru 
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* stabilirea numelor seriilor de date 
„Column=1 && pozitionare pe coloana 1 
„ColumnLabel='Valoare fara TVA' && eticheta pentru coloana 1 
„Column=2 && pozitionare pe coloana 2 
„ColumnlLabel='"Valoare cu TVA' && eticheta pentru coloana 2 
* titlui graficului 
„TitleText='Situatia vinzarii produselor pe zile! 

ENDWITH 


După cum se observă, formatul cifrelor pe axa Oy implică un anume grad de dificultate: 

e axele de coordonate aparțin unui alt obiect inclus în grafic, numit Plot (este de 
fapt o proprietate-obiect a graficului); i 

e fiecare axă este identificată printr-un indice: Axis (1) este axa Oy; 

e fiecare diviziune de pe axă are asociat un obiect de tip Label, identificat printr-un 
indice: Labels, Item (i), unde i variază de la 1 Ja Labels. Count; aşadar, 
pentru a modifica toate etichetele, le parcurgem într-o buclă FOR...ENDFOR; 

e modificarea aspectului etichetei se face prin atribuirea unui şablon proprietăţii 
Format a acesteia: Labels. Item(i). Format=># 4#, ###, #07“, 

O atenție deosebită merită şi instrucțiunea 

. Legend. Location. LocationType=LegendaPozJosCent ru 
întrucât pentru obiectul Legena (la rândul său inclus în obiectul Chart), proprietatea 
Location poate lua valori de la 0 (poziţia Stânga-sus) până la 8 (poziţie definită de 
utilizator). Pentru a uşura folosirea acestor valori în Visual FoxPro, le putem declara 
constante în fişierul pozitii legenda. txt (vezi figura 10.17). g : 


p o 
LegendaPozsusS5Stanga 
LegendaPozSuscentru 
LegendaPozSsusDreapta 
LegendaPozstanga 


LegendaPozDreapta 
LegendaPozJosStanga 
LegendapozJoscenrru 

i egendaPozJasDreaapta 
LegendaPozPersonalizat 


Figura 10.17. Constante pentru poziția legendei unui obiect chart 


Acest fişier se adaugă formularului prin directiva“ 
* INCLUDE "Naplicatielpozitii legenda „txt 
plasată la începutul evenimentului Init. Astfel, este posibil ca în loc de cifra 6 să folosim 
numele constantei corespunzătoare: LegendaPozJosCentru. 


46. Șablonul trebuie scris în manieră Basic (sau Excel): un diez tine locul unei cifre, virgula separă grupele de trei 
cifre, punctul semnifică marca zecimală, 0 înseamnă că, dacă numărul este O sau subunitar, prima cifră afişată 
este zero. 

47. Vezi şi capitolul 4, paragraful 4.3. 


Visual FoxPro 


După completările aduse formularului, graficul afişat ar trebui să arate ca în figura 10.18. 


35,000,000 
30,000,000 
28,000,000 
20,000,009 
18,000;009. + 
:10;000,000-- 
5,000,000: 


104408/200002/08/2000.| 03/08/2000 ‘04108/2000 107/0872000. 


E valoare fara TVA IZ Valoare cu TVA”... 


Figura 10.18. Varianta rannată a graficului vânzărilor pe zile 


10.5.3. Controlul Calendar sau o altă modalitate de lucru cu datele calendaristice 


Controlul! Calendar este un alt control ActiveX pe care-l putem utiliza într-un 
formular ce implică lucrul cu date calendaristice. Pentru adăugarea acestui control pe 
formular, vom urma recomandările din paragraful anterior, doar că, de această dată, vom 
selecta Calendar Control 8.0. Se va obține imaginea din figura 10.19. 


Figura 10.19. Controlul Calendar 
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Controlul prezintă următoarele particularități: 

° după poziționarea pe anul și luna dorite, calendarul lunii în curs se afişează în 
porțiunea tabelară a controlului; 

° putem selecta o zi cu ajutorul mouse-ului sau al tastelor săgeți; 

e în cazul utilizării tastaturii, după ultima zi din lună va fi afișată automat luna urmă- 
toare, iar înainte de prima zi din luna curentă se trece automat la luna precedentă. 


Tabelul 10.4. Principalele proprietăți şi evenimente ale controlului Calendar 


Proprietate Semnificație 
Day Ziua (disponibilă pentru citire/scriere) 


Month Luna (disponibilă pentru citire/scriere 
Anul (disponibilă pentru citire/scriere 
AfterUpdate Survine după schimbarea datei curente 


Beforeipdate Survine înainte de schimbarea datei curente 
PreviousDay Determină deplasarea cu o zi înapoi 
NextDay Determină deplasarea cu o zi înainte 
PreviousMonth Determină deplasarea cu o lună înapoi 


NextMonth Determină deplasarea cu o lună înainte 
PreviousYear Determină deplasarea cu un an înapoi 


NextYear Determină deplasarea cu un an înainte 


Data selectată la un moment dat se poate afla cu ajutorul funcţiei DATE (<nume- 
control>. Year, <nume-control>.Month, <nume-control>.Day). De 
remarcat că manipularea controlului Calendar se poate efectua atât prin acțiuni asupra 
mouse-ului şi tastaturii, cât şi prin cod, ţinând seama de proprietățile şi metodele prezentate 
în tabelul 10.4. De exemplu, pentru a „selecta” data de 20 mai 1990 sunt necesare 
următoarele instrucţiuni de atribuire: 

<nume-control>. Day=20 

<nume-control>.Month=5 

<nume-control>. Year=1990 


et 


Controlul Calendar se utilizează, în general, pentru filtrarea datelor în rapoarte 
Pornind de la exemplul din subcapitolul anterior, dorim să oferim utilizatorului posibilitatea 
de a-şi stabili singur perioada de timp pentru care vor fi reprezentate grafic vânzările. În 
acest scop, formularul frmCalendar (figura 10.20) va cuprinde următoarele elemente: 

e controlul de tip Calendar, numit oleCalendar; 

e un control de tip Label pentru data iniţială (1blDataStart) şi încă unul 

pentru data finală (bl Datastop); 

° un buton de comandă numit cmăReset, cu rolul de a „Şterge” cele două date din 

etichetele lblDatasStart şi lblDatastop; 

e  unbuton numit cmdProceed, care va lansa în execuţie formularul frmChart. 
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“T <ete pentru dată finala> |: 


1 Reinitializare-:. =f d: 


Figura 10.20. Aspectul formularului frmCalendar 


Metodele controalelor formularului frmCalendar sunt redate în listingul 10.9. Se 
observă că cele două controale lblDataStart şi lblDataStop vor constitui 
parametrii formularului frmChart. 


Listing 10.9. Codul-sursă al metodelor formularului frmCalendar 


"Obiect: IbiDataStart 


"Eveniment: Click 
WITH THISFORM.olecalendar 
* se atribuie ca zi implicita de pornire ziua de 1 ale lunii 
.DAY=1 
THIS.CAPTION="<alegeti din calendar>* 
ENDWITH 


"Obiect: IblDataStop 
"Eveniment: Click 
WITH THISFORM.olecalendar 
* se atribuie ca zi implicita de oprire ziua curenta 
.DAY=DAY(DATE()) 
THIS.CAPTION="<alegeti din calendar>" 
ENDWITH 


"Obiect: oleCalendar 
"Eveniment: BeforeUpdate 
*** ActiveX Control Event *”* 
LPARAMETERS CANCEL 
IF THISFORM ibidatastop.VISIBLE=.T. && inseamna ca se alege data de stop 
: && vezi evenimentul IbiDataStart. Click 
ȚHISFORM.Ibidatastop.CAPTION= ; 
DTOC(DATE(THIS.YEAR,THIS.MONTH,THIS.DAY)) 
* se dezactiveaza calendarul, pentru a nu mai putea schimba vreo data 
THIS.ENABLED=.F. 
ELSE && inseamna ca se alege data de start 
THISFORM bidatastart.CAPTION= ; 
DTOC(DATE(THIS.YEAR,THIS.MONTH,THIS.DAY)) 
* se afiseaza eticheta pentru data de stop, pentru a o putea alege din calendar 


THISFORM.Ibldatestop.VISIBLE=.T. 
ENDIF 
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“Obiect: cmdReset 
"Eveniment: Click 
THISFORM.bblDataStart.CAPTION="<clic pentru data initiala>" 
THISFORM IbiDataStop.CAPTION="<clic pentru data finala>" 
THISFORM ibiDataStop VISIBLE= F. 
THISFORM olecalendar.ENABLED=.T. 


"Obiect: cmdProceed 
“Eveniment: Click 
THISFORM.RELEASE 
WAIT WIND “Va rog asteptati..." NOWAIT 
DO FORM “\aplicatie\formsYrmehart.scx” ; 


WITH CTOD(THISFORM.lbidatastart.CAPTION), ; | 
CTOD(THISFORM.Ibldatastop.CAPTION 


La rândul său, formularul frmChart se parametrizează“’, pentru a putea selecta doar 
vânzările aferente perioadei dintre două date calendaristice transmise de frmCalendar 
(Vezi listingul 10.10). În acelaşi eveniment Init va trebui să testăm dacă cei doi parametri 
sunt într-adevăr de tip dată calendaristică (este posibil ca formularul frmChart să fie 
lansat şi independent, fără parametri, caz în care va prelucra roate facturile). l 


Listing 10.10. Versiunea parametrizată a procedurii-eveniment frmChart .Init 


LPARAMETERS datastart_, datastop_ 

INCLUDE “aplicatieipozitii_legenda..txt” 

IF !DBUSED('vinzari”) 

END EEN DATABASE '\aplicatie\database\inzari' SHARED 
IF 


* daca cei doi parametri contin date calendaristice valide, mai efectuam o filtrare 
IF VARTYPE (datastart_)="D” AND VARTYPE (datastop_)="D” 
SELECT datafact, SUM(cantitate“pretunit) AS Val_zi_fTVA, ; 
SUM(cantitate*pretunit*1.18) AS Val_zi_cuTVA ; 
FROM facturi F inner JOIN liniifact If ON F.nrfact=if.nrfact ; 
and datafact BETWEEN datastart_ AND datastop_ ; 
INTO CURSOR sursa_grafic ; 
GROUP BY datafact ; 
ORDER BY datatact 
* titlul graficului este si el personalizat: 
THISFORM.olechart.TitleText='Situatia vinzarii produselor intre ' ; 
+ DTOC (datastart_)+” si " +DTOC(datastop_) 
ELSE 
SELECT datafact, SUM(cantitate*pretunit) AS Va!_zi_fTVA, ; 
SUM(cantitate“pretunit*1.19) AS Val_zi_cuTVĂ ; 
FROM facturi F inner JOIN liniifact If ON F.nrfact=if.nrfact ; 
INTO CURSOR sursa_grafic ; 
GROUP BY datafact ; 
ORDER BY datafact 
* titlu! graficului este simplu 
enpi ST ORM.olechart.TitleText= Situatia vinzarii produselor pe zile' 


SELECT sursa_grafic i 
a N RR II 


Snc aie E cea i ae eee ii dace a T 
48. Vezi paragraful 10.4 al acestui capitol. 
t 
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THISFORM.olechart. COLUMNCOUNT=2 && graficul sa aiba doua serii de date: 


&& valoarea fara TVA si valoarea cu TVA 
* graficul are atatea categorii cate linii are tabela-sursa: 
THISFORM olechart.Rowcount=RECCOUNT('sursa_grafic”) 
* popularea cu date folosind o bucla SCAN pe tabela SURSA_GRAFIC 
SCAN 
WITH THISFORM.olechari 
„ROW=RECNO() && pozitionare pe categoria care corespunde liniei curente din tabela 
„COLUMN=1 && pozitionare pe coloana (seria de date) 1, linia curenta 
DATA=sursa_grafic.Val_zi_fTVA && atribuire sursa de date pentru coloana 1 
„COLUMN=2 && pozitionare pe coloana (seria de date) 2, linia curenta 
„DATA=sursa_grafic.Vai_zi_cuTVA && atribuire sursa de date pentru coloana 2 
„RowLabel=ALLTRIM(DTOC(datafact)) 
ENDWITH 
ENDSCAN 
* atribute vizuale ale graficului 
WITH THISFORM.olechart 
* se stabileste formatul etichetelor de pe axa Oy, pentru afisarea milioanelor 
FOR i=1 TO .Piot.Axis(1).Labels.COUNT 
* se scrie in maniera Basic!!! 
„Piot.Axis(1).Labels.ITEM(). FORMAT = “HAE THEE HHO” 
ENDFOR 
* pozitia legendei 
„Legend L.ocation.LocationType=LegendaPozJosCentru 
„COLUMN=1 && pozitionare pe coloana 1 
ColumnLabel='Valoare fara TVA' && eticheta pentru coloana 1 
„COLUMN=2 && pozitionare pe coloana 2 | 
„ColumnLabel="Valoare cu TVA' && eticheta pentru coloana 2 
ENDWITH a 


Execuția celor două formulare „înlănțuite” este ilustrată în figura 10.21. 


Ta BER Ea Bi i ne 
E Or 2 Tau e e 7 [o 
£ Tua | wod | Trhu | fi | Sat | Sun 


7 UDA! 


mioo pas BES e e. le 


<cuc pentru data tinala> 


A 


> Belniuaizara 


“August 2000 [ua ZI [2000 


at zi 
Ti Fi Sm pee anaon 


y Bituays vinzari progusalat mre 02/08/2009 si 05/03/2000 


$ 4000030 
3,000,000 i 5 


i 
| 
| 
i 
1 2.000,00 

„_ “Benitalzare j j 
$ 
i 
| 


3: osoago iii 


Í 400,000 


TE 020812000 -| 


BE valoare fara Tva W3 


i n Zj 


Figura 10.21. Paşii selecției datelor calendaristice şi realizării graficului parametrizat 
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10.5.4. Controlul ProgressBar 


ProgressBar este un control ActiveX ce poate fi utilizat pentru a indica starea 
execuției unei operații de durată. Astfel de indicatoare întâlnim în majoritatea aplicațiilor 
Windows atunci când au loc acțiuni precum copierea sau descărcarea de pe Internet a unor 
fişiere, instalarea unei noi aplicații etc. Proiectantul unei aplicații cu baze de date poate 
utiliza respectivul indicator pentru a afişa gradul de îndeplinire a unor operații de populare 
ori chiar parcurgere a unor tabele cu un volum mare de date, efectuarea unor calcule 
Jaborioase etc. In formulare, putem combina acest control cu forma de clepsidră a 
cursorului mouse-ului (thisform.mousepointer=13 sau screen.mouse 
pointer=13). Pe lângă aspectul pur estetic, utilizatorul final sesizează mai uşor dacă 
aplicaţia rulează o operaţiune mai complexă sau pur şi simplu s-a blocat... 

Practic, aspectul vizual al acestui control este acela al unui dreptunghi care se umple, de 


la stânga la dreapta, cu o culoare itori ie de sfârşi 
A , pe măsură ce procesul monitorizat se apropie d 
(figura 10.22). ; bic 


7 Demonstrati Sial ea 


LOCLLLLLILLIITLE 


Figura 10.22. Controlul ProgressBar 


a a 


a TE Proprietate . > Semnificație 
| Permite alinierea automată la una din laturile 
| formularului-gazdă. 
Max : koni maximă admisibilă (capătul din 
a teapta). 
Min | F minimă admisibilă (capătul din 
| stânga). 

Orientation 0 — orizontală, | — verticală (cu efectul de 
umplere de jos în sus), 

Scrolling Aspectul porțiunii colorate: în „felii” (0) sau 
continuu (1). 

Value Valoarea curentă. Se poate stabili numai prin 
cod. 


Pe formularul numit frmProgress adăugăm un control de tip Label numit 
lblProcent, în care vom afişa (în cifre) procentul de realizare a operației. Plasăm şi un 
buton cu numele cmdStart, al cărui eveniment Click este destinat să lanseze o 
procedură de test. Procedura (listingul 10.11) constă în crearea unei tabele temporare şi 
popularea ei cu un număr de 2.500.000 de înregistrări (şiruri de caractere aleatorii). La 
anumite intervale de timp se consultă raportul procentual dintre numărul de înregistrări 
adăugate şi cel ce se intenționează a se adăuga. Rezultatul acestui raport este afişat de 
controlul lblProcent şi totodată serveşte la actualizarea proprietății Value a 
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33; 


* indicatorul 


* 


vafi i ila 1%, 29 
altfel timpul de Pepe iul a E 
IF procent=curenta*100/nrmax 
-SCREEN.ACTIVEFORM.oleProgress.VALUE=procent 
—SCREEN.ACTIVEFORM.IblProcent. CAPTION=ALLTRIM(STR(procent))+"9%" 


controlului oleProgress. De menţionat că, în loc să se modifice proprietăţile Min şi 
Max, s-a preferat transformarea numărului de reprezentat într-un procent. Ca element i 


estetic, formularul are proprietatea AutoCenter=.T, 


„(se exclud procentele cu zecimale) 


Listing 10.11. Secvenţă de cod demonstrativă pentru folosirea controlului ProgressBar ENDIE 
= ENDFOR 
se creeaza o tabela temporara care va fi populata cu 
E FSE MESSAGEBOX("Gata”) 


* un numar de 2500000 de inregistrari, completate arbitrar 
CREATE CURSOR test(f1 c(10), f2 c(12)) 


nrmax=2500000 
FOR curenta=1 TO nrmax De remarcat modalitatea de acces la obiectele unui formular aflat în execuție prin 


* functia sys(2015) creeaza un sir de caractere unic A Ă aa 
INSERT INTO test VALUES (SYS(2015), “A"+STR(curenta)) notația Screen. ActiveForm (vezi şi subcapitolul 10.4). 

* numarul de inregistrari adaugate se converteste in procent extragandu-se doar partea intreaga 
procent=INT(curenta*100/nrmax) 

* indicatorul va fi actualizat numai la 1%, 2%... (se exclud procentele cu zecimale) 

* altfel timpul de executie este mult mai mare 


SCREEN.ACTIVEFORM.RELEASE 


IF procent=curenta*100/nrmax i i 
THISFORM.oleProgress.VALUE=procent | Figura 10.24. Versiune simplificată a formularului ss3 
THISFORM.lbiProcent.CAPTION=ALLTRIM(STR(procent)+"%" | Ea aa j iii bati pAr 

ENDE | A ten ți e! În manipularea programatică a controlului ProgressBar trebuie avut grijă 

ca FR a A ; i 

MESSAGEBOX("Gata!”) | aa să nu se atribuie proprietății Value o valoare în afara intervalului 
1n...Max. În caz contrar, survine o eroare „fatală”. 


THISFORM.RELEASE 


10.5.5. Controalele InageList, TreeView şi ListView 


Cele trei controale pe care le vom aborda în cele ce urmează fac parte din așa-zisa 
ai ca Atu Common Controls. Termenul „comun” este cât se poate de adecvat 
acă ne gândim că aceste controale se numără ri izile” ă i i 
ee le la a ; printre „cărămizile de bază ale interfeței 
„ Dacă ar fi să explicăm aceste controale prin exemple edificatoare, am 


Figura 10.23. Rezultatul execuţiei formularului frmProgress recurge cu siguranță la bine cunoscuta fereastră a gestionarului de fişiere Windows 

În practică vom găsi suficiente ocazii pentru a folosi acest control, dar de multe ori a ate Acesta prezintă în partea stângă partiţiile discurilor și directoarele într-o 
modulul care execută actualizări mari consumatoare de timp nu face parte dintr-un Structură arborescentă (ierarhică), cu „rădăcini”, „ramuri” şi „frunze”, şi are drept 
corespondent, în cazul de față, controlul TreeView. Fereastra din dreapta a aceluiași 


formular, ci dintr-un program extern. Cum se accesează atunci un eventual control 


ProgressBar ? Ei bine, primul pas este crearea unui mic formular care să cuprindă doar A 
acest control, eventual fără bară de titlu şi butoane de control (Tit leBar=0) şi cu bordură selectat în fereastra din stânga şi corespunde controlului ListView. Tot controlul 
fixă (BorderStyle=2), Presupunem că acest formular se numește tot frmProgress și bistvi ew este prezent şi în ferestrele de dialog pentru deschiderea fişierelor, utilizate de 
are (la execuție) aspectul din figura 10.24. Secvența de cod „consumatoare de timp” este o multitudine de aplicații Windows, printre care şi Visual FoxPro. Cât despre controlul 
prezentată în listingul 10.12, fiind de data aceasta memorată într-un program oarecare. | DE PEE acesta serveşte drept vector în care se păstrează referințe la diverse fişiere 
e, C H ~ i : ` 
Listing 10.12. Exemplu de utilizare a controlului ProgressBar — varianta 2 | e lerăae ao a Par EO Male o sia a 


elementele controlului ListView. Funcționalitatea controalelor TreeView şi 
E acte leimaan ii og ess ListView este cât se poate de utilă şi totodată spectaculoasă 
“aplicatieiformsifrmProgress” i AA i E S 5 
saibe ada o tabela emporara.care Va i popuiale cù i a presupunem că, imitând maniera de afişare Windows Explorer, dorim să proiectăm 
* un numar de 2500000 de inregistrari, completate arbitrar an formular care să arate ca în figura 10.25. 
CREATE CURSOR test(f1 c(10), f2 c(12)) ' 
nrmax=2500000 
FOR curenta=1 TO nrmax 
* functia sys(2015) creeaza un sir de caractere unic 
INSERT INTO test VALUES (SYS(2015), “A'+STR(curenta)) 
* numarul de inregistrari adaugate se converteste in procent 
procent=INT(curenta"100/nrmax) | 
i 


Windows Explorer afişează (în diverse moduri) subdirectoarele și fişierele elementului 


35$ Visual FoxPro 
ES Chemi SRE fui Denumke produs | E Cottee | Pret Per Vaiosre Yat. TVA | 

Client 2 SA Fă Produs 2 20 10300 824000 156560 
Client 3 SRL 32 Produs 3 L «0 7500 300000 57000 
Send Toiat 4124000 213560 
Ciiont 5 SRL 

sa 

= SĂ Fact. nr. 1122 din 07708/2000 

EA Ciiert 8 SA 
Chert 7 SRL 


Total cu TVA: 1337560 


Figura 10.25. Afişarea la cerere a detaliilor unei facturi 


Deşi realizarea unui astfel de formular nu presupune o abordare tehnică foarte 
complicată, ar fi totuşi indicat a se consulta documentația controalelor respective, 
precizările pe care le vom oferi aici rezumându-se la strictul necesar realizării formularului 
din figura 10.26. 


lmageList |. 


Figura 10.26, Formularul frmDetaliiFacturi în faza de proiectare 


În figura 10.26 prezentăm formularul (numit frmDetaliiFfacturi) în etapa de 
proiectare“, Se observă pe suprafața lui cele trei controale, de tip ImageList, 
TreeView şi ListView, inserate în prealabil pe bara de instrumente ActiveX cu 
ajutorul opțiunii de meniu Tools—Options—Controls. După dimensionarea lor 
corespunzătoare, pe formular se mai adaugă un control de tip Labe] (dreapta-jos), pentru 
afişarea valorii totale a facturii selectate (vezi şi fiaura 10.25). 

Pentru controlul îmageList, la fel ca şi pentru Timer, poziţia şi dimensiunile 
definite la creare nu au importanță, întrucât controlul de tip ImageList nu apare la 
execuție. Imaginile pe care le gestionează acesta pot fi afișate în alte controale, 


49. Vezi şi paragrafele anterioare, pentru modalitatea de inserare a unui control Activex pe un formular. 


ta 
isi 
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: “General | images} Color. | 


= K EO 16x16 i Height: pe 5 tă 
PC Doua kars 
G Width; 
EIGE ABRAB A T 
=C Custom z 


17 UseMaskColor --- „a 


i E Ea a m a : DE 


Figura 10.27. Controlul ImageList şi câteva dintre proprietățile sale 


Dimensiunile şi conținutul listei de imagini se pot defini prin intermediul proprietăților 
obiectului (din meniul contextual, opțiunea ImageListCtrl Properties), aşa cum 
putem observa în figura 10.27. În pagina Images specificăm lista imaginilor de afişat. Se 
utilizează butonul Insert Picture, care deschide o casetă de dialog pentru selectarea 
imaginii dorite“. Controlul ImageList, numit Imll, recunoaşte fişiere .ico, „bmp; 
-Jpg şi . gif. Se preferă fişierele . i co, deoarece: 

ə afişarea lor consumă puţină memorie; 

°  auun număr redus de culori, deci se vor afişa inteligibil pe ecranul oricărui sistem 
de calcul; 

e au dimensiunile standard de 16x16 pixeli (Small Icons), 32x32 (Large Icons) ori 
48x48, ceea ce duce la încadrarea optimă pe butoanele de comandă; 

e pot avea porţiuni transparente, spre deosebire de alte formate grafice, pentru care 
fundalul este un dreptunghi alb. 


Observaţie. După popularea controlului ImageList nu se mai pot modifica 
dimensiunile pictogramelor din fereastra General. 


50. O bună sursă pentru astfel de fişiere 'este directorul C:\Program Files\Microsoft visual 
Studio\Graphics. Numărul de fişiere existente depinde de opțiunile selectate Ja instalarea pachetului 
Visual Studio. 
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Figura 10.28. imaginile folosite la popularea controlului im11 


Controlul TreeView (cel de pe formularul în lucru este numit tvwl) este un tip 
special de listă ale cărei elemente, numite „noduri” (nodes), pot fi ierarhizate, utilizând 
opțiuni specifice, în etapa de populare. Nodurile-copil sunt implicit comprimate (invizibile) 
şi pot fi expandate prin dublu-click pe un nod (dar nu şi eventualii „nepoţi”). Nodurile de 
nivel mai mic vor fi afişate prin deplasare spre dreapta cu câțiva pixeli (vezi proprietatea 
Indent). În faza de proiectare a formularului, controlul de tip TreeView nu afişează 
date, ci doar o schiţă a „arborelui”. Folosind proprietatea Style, se poate decide cum vor 
fi afişate nodurile. Sunt şapte valori posibile pentru această proprietate. În plus, proprie- 
tatea Checkboxes permite (dacă are valoarea .7.) ca fiecare nod să fie însoțit de o 
casetă de opțiune, utilă în operaţii de selecţie. 

Popularea arborelui este posibilă numai în momentul execuției, prin invocarea metodei 
Ada. Aceasta aparține colecției Nodes (o proprietate a acestui tip de control) şi poate fi 
folosită utilizând următoarea sintaxă: 

<nume-obiect>.Nodes.Add ([<cheie-nod-părinte>], [<relaţie- 
ierarhică>], <cheie-nod-curent>, <text-nog-curent>, <indice- 
imagine>, <indice-imagine-selectată>) 

Semnificațiile argumentelor sunt următoarele: 

e  cheie-nod-curent: un şir de caractere folosit ca identificator unic pentru 

nodul curent; : 

e  text-nod-curent: un şir de caractere afişat pe nodul curent; 

e  cheie-nod-părinte: cheia nodului față de care se doreşte ierarhizarea nodului 

curent; 

e  relație-ierarhică: un număr cu următoarele semnificaţii: 0 — primul nod, 

1 — ultimul nod, 2 (implicit) — după nodul anterior, 3 — deasupra nodului anterior, 
4 — copil al nodului anterior; 


e  indice-imagine — indicele imaginii dintr-un control de tip ImageList, 
populat în prealabil ca în figura 10.28, ce se doreşte a fi afişată de nodul respectiv; 

e  indice-imagine-selectată — indicele imaginii dintr-un control de tip 
ImageList, ce se doreşte a fi afişată de nod atunci când acesta a fost selectat prin 
click. 


| 
| 
| 
| 
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Pentru a putea folosi ultimele două argumente ale metodei Ada, este necesar ca, înainte 
de popularea controlului TreeView, să se stabilească valorile proprietăţii ImageList 
astfel încât aceasta să se refere la un control corespunzător care există şi conține imagini. 
De asemenea, proprietatea Style trebuie să aibă una din valorile 1, 3, 5 sau 7. 

Fiecare nod are un indice corespunzător ordinii sale de adăugare. Referirea 
programatică la un nod anume se poate face prin indice (Nodes (inaice)), prin cheie 
(Nodes (cheie) ) ori prin relaţiile sale „de rudenie” (vezi tabelul 10.5). 


Tabelul 10.5. Proprietăţi ale obiectelor de tip Node 
Proprietate | 


Semnificație 


Parent Referinţă la nodul-părinte (dacă nu are, atunci 
VARTYPE (<nog>. Parent) <>"0%), 
Children Read-only. Returnează numărul de noduri-copil ale unui nod dat. z 


Child (<indice>) | Permite adresarea unui nod-copil de la nivelul unui nod-părinte. 
Indicele depinde de ordinea adăugării. Indicele ultimului copil este egal 
E cit valoarea proprietății Children. - 

Expanded Permite expandarea (. T . ) sau comprimarea (. F. ) programatică a 
ierarhiei de noduri de sub un nod dat sau aflarea situației de 


expandare/comprimare. 


Checked Permite „bifarea” (. T . ) sau „debifarea” (. F. ) programatică a unui 
nod dat, sau aflarea situaţiei sale de „bifare”. Funcţionează numai dacă 
proprietăţile Style şi Checkboxes ale controlului permit şi afişarea 


de căsuțe de opţiune în stânga textului nodului. 


Ștergerea unui nod căruia i se cunoaşte indicele are loc prin apelul metodei <nume- 
obiect >.Nodes. Remove (indice). Ştergerea tuturor nodurilor presupune invocarea 
metodei <nume-obiect>.Nodes.Clear. 

Controlul de tip TreeView este deosebit de bogat în evenimente, dar în exemplul de 
faţă nu am folosit decât evenimentul NodeCiick. Cât despre popularea controlului, 
aceasta se face astfel: 

e într-o tabelă temporară (cursor) se obțin clienţii cărora li s-au emis facturi, 

împreună cu numerele şi datele facturilor; 

e tabela se parcurge la inițializarea formularului, fiecare client distinct fiind adăugat 
ca nod de nivel 1, pe când facturile sunt adăugate ca noduri-copil pentru clientul 
către care au fost emise. 

Controlul List View este o altă variantă de listă, ale cărei elemente pot fi prezentate în 
mai multe moduri (pe care le cunoaştem din utilitarul Windows Explorer), după cum se 
arată în figura 10.29. Diferitele modalităţi de afişare depind de valoarea proprietăţii View, 
ce poate fi 0 - Icon,l - SmallIcon,?2 - List,3 - Report. 

Implicit, o asemenea listă are o singură coloană, dar colecţia Columnieaders poate 
fi manevrată în scopul adăugării de noi coloane, atât din fereastra specifică (se activează din 
meniul contextual, prin opțiunea ListViewCtrl Properties — vezi figura 10.30), 
cât şi prin program. 

Dacă în cazul controlului TreeView elementele afişate erau referite prin colecţia 
Nodes, la ListView dispunem de colecţia ListItems, cu metodele corespunzătoare 
Add, Remove şi Clear. În cazul stilului de afişare Report, fiecare element dispune de 
colecția Subitems. 
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Proprietăţile și metodele controlului de tip ListView sunt foarte numeroase şi pot fi 
aprofundate la nevoie consultând documentaţia aferentă (selectaţi un astfel de control din 
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Figura 10.29. Patru moduri de afişare corespunzătoare 
proprietăţii view a controlului ListView 
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Figura 10.30. Câteva proprietăți ale controlului de tip ListView 


formular şi tastați F1*!). 


SI. 


Controlul 


Visual! FoxPro 


de tip ListView din formularul nostru a fost denumit Lvwl. și este destinat 
afişării detaliilor unei facturi selectate în prealabil în controlul de tip TreeView, tvwl, în 


Pentru controalele de tip Activex este necesară instalarea completă a documentaţiei Visual Studio. 
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manieră asemănătoare cu a controlului intrinsec Grid, dar fără posibilitatea modificării 
datelor. În faza de execuţie, lucrurile vor decurge în modul următor: 

e la inițializarea formularului, controlului 1vw1 (cu stilul de afişare 3 - Report)i 
se adaugă un număr de coloane suficient pentru a afişa: numărul liniei din factură, 
denumirea produsului, unitatea de măsură, cantitatea, prețul unitar, valoarea 
(cantitatea x preţul unitar) şi valoarea TVA colectată, 

e la selecţia unui număr de factură din controlul twwl (se foloseşte evenimentul 
NodeClick) se obțin într-un cursor detaliile facturii alese, apoi lista lvwl se 
populează prin parcurgerea cursorului. 

Adăugarea de coloane la un control de tip ListView are loc cu ajutorul metodei Add 

a colecției ColumnHeaders, metodă ce are următorul format; 
<listă>.ColumnHeaders. Aaa ((i<indice>], [<cheie-coloana>],, 
<text-antet>, <lăţime>, [<aliniere>)]) 

Semnificațiile argumentelor sunt următoarele: 

e indice: număr ce arată poziția coloanei; 

e  cheie-coloană: un şir de caractere folosit ca identificator unic pentru coloană 
(indicele se schimbă dacă se mută coloanele în timpul execuţiei, cu ajutorul 
mouse-ului); 

e  text-antet: textul afişat în antetul coloanei; 

e lățime — dimensiunea pe orizontală a coloanei, în pixeli (o soluţie bună de 
dimensionare proporțională este instituirea unei unități convenționale, prin 
raportarea la proprietatea Width a controlului de tip ListView); 

e aliniere: stilul alinierii elementelor care vor popula coloana: O ~ Left 
(implicit), 1 - Right, 2 - Center. Pentru prima coloană nu se poate stabili 
decât aliniere la stânga. 

Adăugarea de elemente (linii) într-un control de tip ListView are loc prin invocarea 

următoarelor metode: 

<nume-obiect>.Listltens. Acad ([<indice>], <cheie-eslement- 

curent>,  <text-element-curent>, <indice-imagine>, <indice- 
imagine-mică>) 

Semnificațiile argumentelor sunt următoarele: 

e indice :numărce arată poziţia elementului în listă; 

ə  cheie-element-curent: un şir de caractere folosit ca identificator unic 
pentru elementul curent; 

e  text-element-curent: un şir de caractere afişat ca element curent; 

ə  indice-imagine — indicele imaginii dintr-un control de tip ImageList, 
populat în prealabil ca în figura 10.28, ce se doreşte a fi afişată în stânga textului 
elementului, atunci când stilul de afişare este Largelcons (Vien=0), necesită 
ca proprietatea Icons a controlului de tip ListView să indice un control 
ImageList existent şi populat; 

e  indice-imagine-mică — indicele imaginii dintr-un control de tip 
ImageList, ce se doreşte a fi afişată în stânga textului elementului atunci când 
stilul este SmallIcons (View=1), List (View=2) sau Details (View=3); 
necesită ca proprietatea SmallIcons a controlului de tip ListView să indice un 
control ImageList existent și populat cu pictograme de 16x16 pixeli. 
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Această metodă produce adăugarea de text numai în prima coloană (cea implicită) a 
controlului de tip ListView (în cazul nostru, ea ar fi suficientă pentru adăugarea la listă 
a numerelor de linie din factură). Tot în această coloană se va afișa şi pictograma precizată 
prin argumentul <indice-imagine> ori, după caz, <indice-imagine-mică>. 
Pentru a adăuga alte şiruri de caractere sau numere (în cazul de față, denumirea produsului, 
cantitatea etc.) pe coloanele următoare, este nevoie de parcurgerea ciclică a colecţiei 
SubItems. Sunt atâtea „sub-elemente” câte coloane are lista, mai puţin una. Accesarea 
unui asemenea element de nivel inferior se face în maniera: 

<element-din-listă>. Subltems (indice) =<valoare> 

Cel din a doua coloană are indicele 1. 

O imagine mai clară asupra celor prezentate se va contura, sperăm, după parcurgerea 
codului formularului frmDetaliiFacturi, reprodus în listingul următor. 


Listing 10.13. Evenimentele şi metodele formularului FfrmDetaliiFacturi 


"Obiect: frmDetaiiiFacturi 
* Eveniment: Init 
IF IDBUSED('vinzari") 
OPEN DATABASE "apliicatieldatabasewinzari" SHARED 
ENDIF 
SET EXCLUSIVE OFF 
* mai intai, se populeaza controlul de tip TreeView 
* cu toti clientii (nivel 1) care au facturi si cu facturile in ordinea cronologica 
SELECT cl.codcl, denci, nrfact, datafact ; 
FROM clienti cl, facturi F ; 
INTO CURSOR cFactEmise ; 
WHERE F.codcl=cl.codel; > 
ORDER BY 2,4 
IF _TALLY<>0 
SELECT cFactEmise 
* se atribuie dinamic proprietatea imageList 
THISFORM .tvw1 .imagelist=THISFORM im!1 
SCAN 
WITH THISFORM. ww 
* se adauga o ramura de nivel 1 
IF .NODES. COUNT=0 && initial nu sunt noduri 
* nod-parinte, cu 2 pictograme pentru starile “norma!” si “selectat” 
* care sunt imaginile 2 si 3 din controlul de la proprietatea 
tw1.imagelist 
* virgulele si spatiile arata argumente optionale omise 
* s-a concatenat o tilda (~) pentru ca valoarea cheii 
* sa nu inceapa cu cifra, intrucat e incorect 
„NODES.ADD (, "*"+ALLT(STR(codcl)), ALLT(denc!),2,3) 
* nod-copil, cu pictograma nr 4 de la proprietatea tww1.imageiist 
„NODES.ADD ('-"+ALLT(STR(codci)),4,'-"+ALLT(STR(nrfact)) | ; 
"Fact. nr. * + ALLT(STR(nrfact)) + * din * +DTOC(datafact), 4) 
* se memoreaza clientul pentru a nu-i mai adauga noduri cu acelasi 
cod 
* intrucat este incorect (cheia e unica!) 
codelanterior=codel 
ELSE && s-au adaugat noduri 
IF codclanterior<>code! && s-a schimbat clientul? 
* un nou nod-parinte (cu tot cu pictograme) 
„NODES.ADD (, ="+ALLT(STR(codel)), ALLT(denci),2.3) 
codelanterior=codcl 


ENDIF 
* nod-copil, cu pictograma nr 4 de la proprietatea tvw1 .imagelist 
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„NODES.ADD ("—"+ALLT(STR(codcl)).4."—"+ALLT(STR(nrfact)) . : 


“Fact. nr. * + ALLT(STRi(nrfact)) + * din * +DTOC(datafact),4) 
ENDIF 
ENDWITH 

ENDSCAN 
ELSE 

MESSAGEBOX('Nu s-au emis facturii”) 
ENDIF 
SELECT cFactEmise 
USE 
* se adauga header-ele de coloana la controlul de tip ListView 


WITH THISFORM.ivw1 
„Smallicons = ȚHISFORM.imi1 
WITH .COLUMNHEADERS 
* latimea este stabilita pe o baza conventionala 
ADD {, , "Nr, INT(THISFORM.Ivwî WIDTH * 6 / 128)) 
* ar fi fost preferabil aliniata la dreapta, dar nu-i permis pentru prima coloana 
„ADD (, , “Denumire produs", INT(THISFORM.Ivw1 WIDTH * 40 / 128)) 
„ADD (, , UM”, INT(THISFORM .ivw1.WIDTH * 10 / 128)) 
„ADD (, , “Cantitate”, INT(THISFORM.Iva1.WIDTH * 18 / 128), 1) && alin. dreapta 
„ADD (, , “Pret unitar”, INT(THISFORM.Iww1 WIDTH * 16 / 128), 1) && alin. dreapta 
„ADD (, , “Valoare”, INT(THISFORM.iwwî WIDTH * 20 / 128), 1) && alin. dreapta 
„ADD (,, "Val. TVA”, INT(THISFORM.ivw1.WIDTH * 18 / 128), 1) && alin. dreapta 
ENDWITH 
ENDWITH 


* Metoda: populeaza_lista (adaugata formularului) 
LPARAMETERS nrfact_ 
* se sterge elementele controlului de tip ListView 
THISFORM..iww1 listitems.CLEAR 
* se obtin detaliile facturii curente 
SELECT linie, denpr, um, cantitate, pretunit, ; 
cantitate“*pretunit AS valoare, ; 
cantitate”pretunit'proctva AS valtva ; 
FROM liniifact if, produse p ; 
WHERE p.codpr=if.codpr AND If.nrfact=nrfact_ ; 
INTO CURSOR cLiniiFact ; 
ORDER BY linie 


IF _TALLY<>0 && daca s-au prelucrat inregistrari 
SELECT cLiniiFact 
SCAN 
* se adauga elementele listei 
WITH THISFORM.Ivw1 
elementcurent = listitems.ADD(, , ALLT(STR(linie))) 
WITH elementcurent 
.Smallicon = 1 
„Subltems(1) = denpr 
„Subitems(2) = um 
„Subltems(3) = cantitate 
„Subltems(4) = pretunit 
„Subltems(5) = valoare 
„Subltems(6) = valtva 
ENDWITH 
ENDWITH 
ENDSCAN 
* se adauga o linie de totaluri in lista 
set talk off && altfel se afiseaza totalurile direct pe formular 
* se insumeaza valoarea fara TVA si respectiv valoarea TVA 
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* in doua variabile 
SUM valoare, valtva TO totval, tottva 
set talk on 
* se parcurge colectia Subltems: Ă 
elementeurent = THISFORM.Iww1.listitems.ADD(, , ““) 
eiementeurent.Subitems(1)="Tota! 
elementcurent.Subltems(5)=totval 
elementcurent.Subitems(6)=tottva 
thisform.Ib!Total.caption=“Total cu TVA: “ + allt(str(totval+tottva)) 
SELECT cLiniiFact 
USE 

ENDIF 


"Obiect: tvw1 
* Eveniment: NodeClick 
=** ActiveX Control Event *** ; 
LPARAMETERS NODE && acest parametru este transmis de sistem 
&& si identifica nodul pe care s-a efectuat click 

IF VARTYPE(NODE.PARENT)="0O” && daca este un nod copil (adica factura, nu client) 

* lanseaza procedura de populare a listei 

* transmitand ca parametru numarul facturii; 

* (e necesar sa se elimine semnul "~” din fata si sa se convertieasca 

* in valoare numerica) 

THISFORM.populeaza_lista(VAL(SUBSTR(NODE.KEY,2))) 
ELSE && este nod parinte 

* inversam aspectul expandat/comprimat 

NODE .expanded=!NODE .expanded 

WITH THISFORM. Ivw1 listitems 

IF .COUNT<>0 
„CLEAR 
ENDIF 

ENDWITH z 

ENDIF __] 


10.5.6. Controlul Timer 


Controlul Timer nu este un control ActiveX, ci un control intrinsec Visual FoxPro. 
Proprietatea cea mai importantă a acestuia, Interval, permite specificarea duratei de 
timp (în milisecunde) la care se declanşează principalul eveniment, Timer. Cu toată 
utilitatea sa în măsurarea timpului, controlul Timer nu trebuje folosit drept cronometru, 
mai ales că nici nu este chiar foarte precis. Astfel, în condițiile în care sistemul de calcul 
este solicitat de operații mari consumatoare de resurse (calcule complexe, manipularea 
datelor din tabele de mari dimensiuni, afişarea ecranelor „încărcate” etc.), unitatea centrală 
va genera evenimente Timer la intervale destul de aproximative (în termenii miimilor de 
secundă, dar nu uitaţi că diferenţele se acumulează în timp). Fireşte, se poate crea în Visual 
FoxPro un ceas care să afişeze ora sistemului, dar este indicat ca Timer-ul folosit să 
consulte la intervale regulate ceasul calculatorului, nu să numere secundele de o manieră 
internă (vezi figura, tabelul şi listingul de mai jos). 


Figura 10.31. Macheta unui ceas simplu 
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Tabelul 10.6. Proprietăţile controalelor de pe formularul din figura 10.31 


Proprietate 
Caption 


Interval 
Timer Enabled 


Listing 10.14. Codul-sursă pentru formularul de mai sus 


"Obiect: Timeri 


"Eveniment: Timer . 

IF THISFORM.IblTime.Caption != Time() && daca este afisat altceva decât ora curenta 
si THISFORM.IbiTime.Caption = Time() 

ENDIF 


În orice caz, un asemenea ceas nu-şi prea dovedește utilitatea, de vreme ce dispunem de 
comanda SET CLOCK... Totuşi, controlul Timer s-ar putea folosi în operaţii de 
cronometrare a unor operaţii de durată (cu afişarea timpului scurs) — unde funcționalitatea 
sa ar putea fi combinată cu aceea a controlului ProgressBar — ori în declanşarea 
periodică a unor operații de actualizare, în condiţiile accesului multiutilizator. O altă 
aplicaţie tipică ar consta în execuţia unei operaţii la un moment prestabilit, în condiţiile 
absenței operatorului, De remarcat că „pornirea”, respectiv „oprirea” Timer-ului au loc 
prin atribuirea valorilor .T. sau . F. proprietății Enabled. 

Limita maximă a proprietății Interval este 2147483647 (printr-un calcul simplu, 
obținem circa 596,52 ore, adică aproape 25 de zile). Peste această durată e nevoie de un 
artificiu de programare, în care timpul scurs să se acumuleze într-o variabilă şi aceasta să 
fie folosită ca element de referinţă. 

La modul cel mai simplu, un control Timer ar putea determina afişarea intermitentă a 
unui mesaj de atenţionare, prin manipularea proprietăţii Visible (alternând valorile . T. 
şi „F.) a unui control Label ori TextBox. 

Intr-o posibilă aplicație destinată pieţei financiare, un control Timer ar putea lansa, la 
fiecare n minute, o procedură pentru afişarea cursurilor diferitelor devize sau acțiuni, a 
volumului tranzacţiilor încheiate până la momentul respectiv etc. o 

| Să considerăm un scenariu în care o aplicaţie este exploatată în rețea de mai mulți 
utilizatori. După cum se va vedea în capitolul 13, accesul multiutilizator presupune 
blocarea înregistrărilor. În cursul blocării, respectivele înregistrări nu sunt accesibile altor 
utilzatori pentru modificare. Ca urmare, am putea folosi controlul Timer pe de o parte 
pentru a atenționa operatorul că blocarea iniţiată de el durează mai mult de un timp 
prestabilit ca rezonabil, iar pe de altă parte, pentru a încerca automat, la intervale de timp 
predefinite, comiterea unor tranzacţii împiedicate iniţial ca urmare a blocării unor 
înregistrări de către alții. 
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10.6. Depanarea formularelor cu utilitarul Debugger 


În capitolul 4 am prezentat posibilităţile de monitorizare a execuţiei unui program 
(. prg) în vederea depistării şi corecției erorilor. În cazul formularelor însă, codul este 
împărţit între procedurile diverselor evenimente, a căror ordine de apariţie nu este 
întotdeauna evidentă, mai ales dacă în mod deliberat programatorul apelează o metodă a 
unui obiect din procedura altui eveniment al acelui obiect sau al altuia. Secvenţele de cod 
cuprinse în formulare complexe, mai ales dacă sunt documentate în grabă sau deloc, devin 
cu timpul o adevărată „junglă” în care până la urmă chiar autorul lor întâmpină dificultăți în 
a surprinde erorile subtile. Pentru astfel de cazuri, instrumentul Debugger vine în ajutorul 
dezvoltatorilor cu opțiunea Toggle Event Logging, ce permite jurnalizarea apariţiei 
evenimentelor în fereastra Debug Output sau scrierea lor într-un fişier .1og, pentru 
analize ulterioare. 


Activate 
BeforeO en! ables 


4 
- AComrasndT argetExe > 

d CommandT argeiQue -l 
:IContaineRelease : | 


Deleted 


“Send output eoi 
sa Debugger Output window. 


a) 


igura 10.32. Opţiunea pentru monitorizarea evenimentelor 


La activarea acestei opţiuni (cu butonul Ea de pe bara utilitarului Debugger) se 
deschide fereastra din figura 10.32, în care se selectează evenimentele a căror apariție se 
doreşte a fi semnalată. Evenimentele adăugate listei din dreapta rămân permanent acolo; 
monitorizarea se porneşte sau opreşte pentru toate evenimentele cu ajutorul căsuței de 
opțiune intitulate Turn Event Tracking on. După închiderea dialogului cu OK, poziția 
apăsată a butonului 4] arată că opţiunea este efectivă, Ulterior acestei operaţii, se încarcă 
formularul în Debugger prin acţionarea butonului Ri pe ecran afişându-se dialogul din 
figura 10.33. Se alege formularul dorit, acţiunea încheindu-se cu un click pe butonul Do. În 
continuare, pentru execuţia formularului se mai acționează o dată butonul <a după care se 
procedează în mod normal, cu posibilitatea comutării de la fereastra principală Visual 
FoxPro la fereastra Debugger. Cât despre evenimentele propuse” anterior spre 
monitorizare, acestea vor fi marcate în fereastra Debug Output, în ordinea în care apar. 
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. [E3 frmactivex.sex frmproduse.scx 

i fimcalendar,scx EJ frmprogress.scx 
=. 4100 frmehart.scx ferntree_list.scx 
AES frmelienti,sex produse.scx 


fi linifacl sex i i — i 


poze 


[Form zj z 


Files of type: 


Figura 10.33. Încărcarea unui formular în Debugger 


in figura 10.34 s-a prezentat o parte a ferestrei Debug Output (care a fost în 
prealabil maximizată pentru o vedere mai bună), în care se observă declanşarea 
evenimentului Destroy cu ocazia închiderii formularului (întâi pentru formular # oi 
pentru fiecare obiect de pe formular în parte). $i 


s$ Debug Butput alf 
“37 Elle. Edit: Debug:. Tools - Window” Help” 


Eren 


tirnfacturi Destroy() 
iinfacturi labelă Destroyţ] 
firntacturi.intvaltot Destroyţ) 
fimfacturi comreand! Destroy() 
firnfacturi.cmdanulezsterg Destroy(] 
infacturi labiel7. Destroy) 
fimiacturi.emdgroupriasigare. Destroy) 
rmfactuti.emdgroupnaviga:e.erdultimul.D estroy() 
rmtacturi erndgroupnavigare. cmdinainte. Destrop() 
irmfacturi.emdgroupriavigae.emdinapoi.D estroyţ) 
fimfacturi.ermdgroupnavigare. cmdprimul Destroyf} 
fimfacturi.shape2.Destroy() 

ientactuii. label6.Destroy[) 

fimiacturi label5. Destroy 

imfacturi.cbogest Destioyf) 
fimlscturi.command4.Destroyţ) 
frrfacturi,.command3.Destroy() 
imtacturi.commar:d2.D estropl) 


Figura 10.34. Evenimente monitorizate în fereastra Debug Output 
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Listing 11.2. ...şi în C/C++ 


/laceasta este declaratia de tip de data definit de utilizator in C/C++ 
. struct PC 

Capitolul l l {char Procesor[10]; 

long Memorie; 

int Video; 
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char DataCumpararii[10); 


(utilizarea tipului abstract de dată 


i ; o F m PEE e -obiect p 
Considerată una dintre tehnicile moderne de programare, programarea orientată-obie /lacum declaram doua date de tipul definit mai sus 


este bazată pe paradigma obiect-mesaj. Fundamentul acesteia este constituit din obiecte; struct PC CalculatorulMeu: Jideclaratie in stil € 
fiecâre obiect răspunde Ja o colecție determinată de mesaje. In programarea procedurală, PC CalculatorulTau; ~ //declaratie in stil C++ 
subrutinele sau funcțiile se apelează unele pe altele pentru a returna anumite date sau pentru Ca S See in dolari) 
a modifica anumiţi parametri de intrare-ieşire. În modelul obiect-mesaj, în loc de date de tip CalculatorulTau.Pret=1995. | 
scalar (număr, şir de caractere etc.) sau vectori ori matrice de date dispunem de un obiect 
capabil să proceseze cereri cunoscute ca mesaje. Aceste mesaje: | | : E STRN | f 
ză d obiectului să efectueze „ceva” şi să returneze un rezultat: Visual FoxPro nu dă posibilitatea definirii directe a unui asemenea tip de dată. Acesta se 
i modifica starea obiectului (adică pot modifica valorile unor proprietăţi ale poate simula, de pildă, printr-un tablou cu două dimensiuni sau prin înregistrarea curentă a 
s E zi lui) unei tabele, în care fiecare câmp are propriul său tip de dată, dar înregistrarea în ansamblu 
În cante obiectul este o combinaţie între date şi procedurile sau funcțiile folosite ar constitui un tip nou de dată cu o structură compusă. Crearea unei noi date de un 
aulres lor, Programul informatic devine în atare condiţii „un grup de obiecte asemenea tip s-ar face prin adăugarea de linii în respectiva tabelă, Ce-i drept, nu se poate 
a manipu a RA ce să faca”? da un nume înregistrării; este însă posibil să avem un câmp specia! care să reţină o valoare 
care-și spun unu ` 


ce identifică unic înregistrarea — cu alte cuvinte, o cheie primară. 


Listing 11.3. O variantă Visual FoxPro 


11.1. Delimitări conceptuale | “crearea unei tabele temporare 
7 : CREATE CURSOR Calculat N 20), P 10), ; 
Programarea orientată-obiect a pornit de la dezvoltarea conceptului de tip A Memorie n(6), leo ne, Pa E a S îi 
S : : x Ş lu Basic, C sau Pasca au . 
dată (TAD). Multe limbaje (procedurale, ca de exemp ; : Hi 
sibi E IRINEI te zi i ilizator (user-defined acum declaram doua date de tipul definit mai sus 
bilitatea utilizării unor tipuri de date compozite, definite de uti za ; ne k PEREAS P l 
P Datele din aceste tipuri se manipulează ca un tot unitar, în acelaşi timp fiind posibilă R E A ("Calculatorul meu", "Pentium III", 65536, 8192, ; 
şi accesarea „cărămizilor” acestui „tot”, ce sunt date de tipuri elementare. De exemplu, in INSERT INTO Calculatoare VALUES ("Calculatorul tau", “Athlon”, 65536, 16484, ; 
BASIC putem crea un tip de dată definit de utilizator cu instrucțiunea 7YPE..END TYPE, 1850, (02/12/2000)) 


SELECT Calculatoare 


iar în C şi C++ cu instrucțiunea struct. LOCATE FOR LOWER(nume)="calculatorul meu” 


Listing 11.1. Crearea şi utilizarea unui tip de dată definit de utilizator în Basic... IF ea RR i EDC Banati i 

' aceasta este o declaratie de tip de data definit de utilizator in BASIC END IF 
Private Type PC 

Procesor As Variant i : s a 

Memorie As Long La un moment dat, în teoria programării s-a ivit ideea perfecţionării tipurilor abstracte 

Video As Integer de date, care să înglobeze, pe lângă valori ale variabilelor (care redau o stare Ja un moment 

Pret As oi aaa dat), şi procedee de descriere a comportamentului şi să ofere o interfaţă pentru accesarea 
Si 145 Alla stării și pentru interpretarea/declanșarea comportamentului. Adăugând unor date şi 
“utilizarea respectivului tip de data operațiile posibil de realizat asupra lor, modelul informatic devine mai apropiat de modelul 
‘acum declaram o data de tipul definit mai sus lumii reale, în care la tot pasul avem de-a face cu diferite obiecte. Fireşte, complexitatea 
ca i i ga ai RI ii lumii reale e greu de simulat printr-un program informatic şi se pune chiar problema în ce 


măsură are loc transpunerea acestei complexități în produsul-program. Cum majoritatea 


na ea n te ai ema iti a, aplicațiilor „Sunt orientate către o problemă anume, abstractizarea devine o soluţie 
52. Frază folosită pentru caracterizarea limbajului Smalltalk, un pionier al limbajelor orientate pe obiecte, de către salvatoare. În loc de a memora toate detaliile nesemnificative (mai bine zis, inutile pentru 


unul dintre „părinții” săi, Alan Kay. modelarea/rezolvarea problemei), abstractizarea permite ignorarea lor şi concentrarea pe 


372 Visual FoxPro 
1 E RR aa E A N N e Re IESIRE ci da dit 


aspectele strict necesare atingerii scopului urmărit. De exemplu, atunci când vă așezați în 
fața calculatorului, vă este indiferent cum funcționează diferitele părţi electronice şi 
mecanice care-l compun, cum se memorează datele pe discul magnetic, ce semnal se 
generează când efectuaţi un click de mouse etc. Aceasta este preocuparea constructorilor 
calculatorului. De asemenea, dacă nu sunteți pasionat(ă) de programare, nu se pune 
problema de a şti cu ce instrucţiuni de nivel scăzut se face minimizarea unei ferestre ori 
afişarea unei casete de dialog. Dumneavoastră, ca utilizator final, folosiţi dispozitivele 
periferice standard şi lucraţi cu câteva aplicaţii care arată şi se comportă aproape identic cu 
omoloagele lor de pe calculatorul unui coleg, chiar dacă acel calculator este mai mult sau 
mai puţin diferit constructiv. 

Abstractizarea dă posibilitatea grupării obiectelor cu caracteristici şi comportamente 
similare în clase. În programarea orientată-obiect, „clasele” şi „obiectele? sunt două 
concepte foarte importante, dar nu trebuie confundate, Astfel, o clasă reprezintă o definiție 
a modului cum trebuie să fie construit un obiect şi cum trebuie să se comporte el. Obiectul 
reprezintă o entitate creată pe baza sus-numitei definiții. Figura 11.1 şi explicaţiile aferente 
vor ajuta la spulberarea, măcar parţială, a aurei de mister din jurul conceptului de „clasă” şi 
al noţiunilor asociate. 


Clasa ContBancar 


Proprietăți 


Număr 
Titular 
Tip 
Stare 
Data Deschiderii 
Sold 


DODDDUD 


Deschide (NumeTitular, Data, Soldinitial) 
Depune (Suma) 
Retrage (Suma) 
SchimbaStare (StareNoua) 


Metode 


Dopp 


Figura 11.1. O schiţă a clasei ContBancar 


Astfel, o definiție minimală a clasei ar cuprinde descrierea proprietăților şi metodelor 
acestei clase. Proprietăţile (sau atributele, ori variabilele-membru) sunt acele trăsături ale 
obiectului care au fost reţinute ca importante în procesul de abstractizare. Metodele (sau 
operațiile, ori funcţiile-membru) sunt secvenţe de cod care definesc comportamentul tuturor 
obiectelor dintr-o clasă. Ele sunt legate în mod inextricabil de clasa respectivă, neputând fi 
folosite independent, ca procedurile „normale”. Teoria ne învață că o metodă se 
declanşează ca urmare a primirii unui mesaj de către obiectul care o deţine. Mesajul poate 
veni de la alt obiect, fiind produs de o metodă a acestuia, ori poate veni de la sistemul de 
calcul, care codifică într-un mod anume o acţiune a utilizatorului sau o cerere a sistemului 
de operare. În acest din urmă caz intră în scenă evenimentele, specifice programării în 
mediile Windows şi similare. 

Numele proprietăţilor şi semnăturile metodelor (adică numele lor și ale eventualilor 
parametri de intrare-ieşire ai fiecăreia) formează interfața unei clase, care este publică. 
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Codul-sursă asociat metodelor formează implementarea, care este inaccesibilă 
utilizatorului”. Respectivul cod poate fi modificat doar prin intervenţie în definiţia clasei. 

Împachetarea într-o singură entitate a codului care defineşte proprietățile şi metodele se 
numeşte încapsulare şi este unul dintre atuurile modelului de programare obiectuală. Faptul 
că un program „utilizator” are acces numai la acele proprietăţi şi metode pentru care s-a 
dorit explicit aceasta la momentul programării clasei, combinat cu imposibilitatea 
modificării codului metodelor din afara clasei respective, defineşte un alt concept cunoscut 
ca ascunderea informaţiei. 

Mecanismul prin care se creează obiecte pornind de la definiția (şablonul) încorporat în 
clasă poartă numele de instanţiere. Ca urmare, un obiect se mai numeşte şi instanţă a unei 
clase. Dacă definiţia clasei este persistentă, fiind stocată într-un fişier, obiectele create sunt 
temporare, existenţa lor luând sfârşit la terminarea programului creator. 

Obiectele provenind din aceeaşi clasă diferă între ele prin valorile diferite ale 
proprietăților lor“, dar partajează codul care formează implementarea. De aceea, cu cât este 
nevoie de mai multe obiecte de un anumit fel, cu atât mai avantajoasă se dovedeşte folo- 
sirea clasei. Cu alte cuvinte, clasele permit reutilizarea codului. Abstractizarea se dovedeşte 
prezentă şi aici: ca să folosim o clasă, ne interesează mai puțin cum se formează şi 
populează în memorie diferite structuri de date reprezentând obiectele sale (aceasta e 
misiunea compilatorului limbajului, respectiv a bibliotecilor runtime ale sale), decât ce 
sunt capabile să facă acele obiecte. l 

Clasele sunt o extensie a tipurilor de date definite de utilizator; posibilitatea definirii 
claselor în Visual FoxPro rezolvă problema inexistenței unei instrucțiuni pentru definirea de 
astfel de tipuri: putem pur şi simplu defini o clasă care are numai proprietăți, fără metode. 

Obiectele din lumea reală tind să fie organizate. De fapt nu tind ele singure, ci oamenii 
au plăcerea sau pasiunea de a clasifica, ordona, ierarhiza totul. lerarhizarea intervine atunci 
când la perceperea unor obiecte intervin niveluri de abstractizare diferite din ce în ce mai 
înalte, Să luăm un exemplu aflat la îndemână: serviciul de evidența populaţiei are nevoie să 
cunoască următoarele proprietăți ale unei persoane: numele, prenumele, data naşterii, 
numele tatălui, numele mamei, starea civilă. O facultate la care este înscrisă o persoană are 
nevoie de toate detaliile de mai sus, plus: anul înscrierii, anul de studii, specializarea, 
grupa etc. O firmă la care lucrează respectiva persoană cere toate detaliile de la evidența 
populaţiei, plus: data angajării, funcţia, secţia, salariul de bază etc. Dar atât entitatea 
student, cât şi entitatea salariat au la bază entitatea persoană. Nu ar fi util ca, la crearea 
entității student să „împrumutăm” de la entitatea persoană toate elementele deja existente, 
adăugând la ele anul înscrierii, anul de studii, specializarea, grupa...? Un raţionament 
similar se aplică entității salariat. Un asemenea fenomen de propagare „în jos” 
funcționalității unei clase se numeşte în teoria programării obiectuale moştenire. Pentru 
înțelegerea facilă a conceptului, raționamentul de mai sus a fost simplificat doar la nivelul 
proprietăților, dar moştenirea se aplică în egală măsură şi metodelor. Crearea unei clase 
derivate sau subclase permite o scădere drastică a cantității de cod ce trebuie scrisă, prin 
faptul că se va adăuga cod doar pentru noile proprietăți şi metode. Clasele sruden şi 
salariat se vor numi clase derivare. Întreţinerea ulterioară a aplicaţiei care foloseşte una sau 


53. Prin utilizator nu se înţelege aici, stricto sensu, persoana care folosește programul. Poate fi vorba de 
programatorul unei aplicații care include clase definite în prealabil sau, prin extensie, de un program „creatar” 
ori „consumator” de obiecte. 

54. Dacă două obiecte au exact aceleaşi valori ale proprietăților, nu înseamnă că ele sunt identice. Sistemul 
diferențiază obiectele prin identificatori interni, unici (la modul general, se vorbeşte de OID ~ Object 
IDentifier). 
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PR ai 


i multe dintre aceste trei clase devine mai simplă. Orice modificare a zi ag N 
a ie bază este automat propagată în clasele derivate. ei ad delle F Aa 
dacie is i i i ituaţiei iciului militar, atunc g 

i i orarea situaţiei serviciu A 
ența populației doreşte şi mem Satu, aug 
io î militar în clasa persoană, iar clasele derivate student şi salarial vor avea 
un atri Și 
cces la acest atribut. 5 | 
i ou crearea unei clase se doreşte explicit ca o proprietate sau le să nu AR 
i folosi ficatorii de acces: re ; 
izibilă” în a i >, se pot folosi modificatorii de a i pec 
ă” în afara clasei respective, se olosi 
e poate fi declarată „privată” ori protejată”. Formatul acestor specificatori di 
pr ; f. i i F ¿Pr i . 
j j FoxPro ei sunt: : 
un limbaj la altul. In Visual Fox | i 
mi iapa — semnifică faptul că proprietatea sau metoda declarată astfel poate fi 
” accesată din orice porțiune de cod (din clasă sau din afara definiției ei), este 
i 
if : implicit şi se poate omite; | 
modificatorul de acces implici 
PROTECTED — proprietatea (sau metoda) declarată astfel poate fi ara 
` l c idi i clase derivate (subclase); 
iî i ăs din codul-sursă al unei clase 
codul clasei în care se găseşte ori e); 
e HIDDEN — proprietatea (sau metoda) declarată astfel poate fi accesată numai din 
codul clasei în care se găseşte. | i Y IS 
Polimorfismul este un concept înrudit cu moştenirea pa ll da Sud Me 
ibili -ansmite acelaşi mesaj diferitelor o ca 
: rată, la „posibilitatea de a tran 4 fe i > car l 
G acțiuni Diferite”. Pentru a fi ceva mai pe înțelesul cititorului i ea e 
apa tura de specialitate, vom spune că polimorfismul este capacitatea ca tă si 
ate să aibă câte o metodă cu nume identic, dar cu efect diferit (de exemp lu 
Refresh este întâlnită în clasele Form şi Grid, dar nu lucrează chiar la fel în ambele). 


11.2. Clase în Visual FoxPro 


Pe lângă un bogat sortiment de clase predefinite, Visual FoxPro dispune de facilități ce 


SE e se 
feră programatorului posibilități extrem de vaste de creare și utilizare a Cid la î. 
Meta ca şi subclasarea sunt suportate atât de clasele de bază Visual FoxPro, cât ş 


clasele definite de utilizator. 


11.2.1. De ce să folosim clase? 


a. cata | E e à 
Clasele pot fi utilizate în mai multe situații e tuns lui na 
icaţiei ă includem şi ce funcţionalitate să confe eja. 
licaţiei va prevedea ce clase să i lei ! j i îi 

Enea Riet na itale trebuie să asigure o e Su ie iei ai EE : 

i Anpi x : zvo t 
î tâmplător se apreciază că, în dezv rea u i 
blemele avute în vedere. Nu în T 
aa orientată-obiect, majoritatea timpului este alocat etapelor de analiză şi proiectare 


11.2.2. Clasele de bază Visual FoxPro 


Cu clasele de bază Visual FoxPro v-aţi întâlnit pe parcursul capitolelor Și aa 
; E i t: 3 e Š 
formulare: orice formular ori control este de fapt un obiect creat ad-hoc (la „desenarea A 
pe baza unei definiţii memorate în bibliotecile Visual FoxPro. 
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Tabelul 11.1. Ciasele de bază Visual FoxPro 


[ ActiveDoc Custom PageFrame 
CheckBox Edi tBox ProiectHook 
Column* ListBox Separator 
CommanăBut ton Formset OLEBoundControl Shape 
CommandGroup OLEContainerControl 
Combo-Box Header: OptionButton* 

Container Hyperlink Object Opt ionGroup 
Control Image 


Page* 
ale sunt membri ai unor clase-container şi nu pot fi subclasate. 


ToolBar 


* aceste contro 


Recunoaşteți în tabelul 11.1 obiectele de tip control şi de tip container despre care s-a 
discutat la începutul capitolului 8. Aceste clase sunt organizate într-o ierarhie” pe care o 
prezentăm în figura 11.2, Clasele de tip control sunt mai complete decât clasele de tip 
container, dar sunt mai puţin flexibile. : 

Orice clasă de bază Visual FoxPro recunoaşte un set minim de evenimente şi un set 
minim de proprietăți pe care le redăm în tabelele 11.2 şi 11.3. ii: 


Tabelul 11.2. Evenimentele comune tuturor claselor de bază Visual FoxPro 
Eveniment 
Init 
Destroy 
Error 


Descriere 


Apare la crearea obiectului 
Apare la distrugerea obiectului 


Apare când survine o eroare în procedurile interne clasei (metode ori == 
-_proceduri-eveniment) 


Tabelul 11.3. Proprietăţile comune tuturor claselor de bază Visual FoxPro 


i Proprietate 


Class 
BaseClass 


Descriere 
lasa de care aparține obiectul š q 
Ciasa de bază, dacă clasa curentă este derivată (clasa de bază este cea dela | 
„rădăcina” ierarhiei de clase) d 
Numele bibliotecii* în care este memorată definiţia clasei 
Clasa-părinte, dacă clasa curentă este derivată (dacă este deriv 
dintr-o clasă de bază Visual FoxPro, ParentCl 
cu BaseClass) 


ClassLibrary 
ParentClass 


ată direct 
ass are acecași valoare 


* un fişier-bibliotecă poate conţine definițiile mai multor clase şi are extensia . VCX. 


11.2.3. Clasele definite de utilizator 


Programatorul unei aplicaţii poate decide să creeze câte o cl 
au formular particular pe care doreşte să-l utilizeze în respectiva aplicaţie — dar este oare 
ceasta cea mai bună cale? Două sunt practic consecinţele unei asemenea decizii: 

* vom obține o redundanță nedorită, dată de multe clase al 

mai mult sau mai puțin, dar care trebuie întreţinute 
îndepărta prea mult de situația iniţială a folosirii contr 


asă pentru fiecare control 


e căror misiuni se suprapun 
separat (deci nu ne vom 
oalelor intrinsece, la care 


Porţiuni ale acestui material au la bază subcapitolul 


„Object-Oriented Programming” din Visual FoxPro 
Programmer's Guide, versiunea electronică (MSDN) 
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orice modificare — să zicem, modificarea culorii textului — trebuie reluată de n ori, 
unde n este numărul de controale similare); - 

e vom găsi pentru o clasă prea puţine utilizări în aplicaţia respectivă şi poate şi mai 
puţine într-o altă aplicaţie (deci gradul de reutilizare a software-ului, care este unul 
dintre mobilurile programării obiectuale, va fi redus). 


Visual FoxPro Objects 


Container 


m Set. 


“Acti 


OLE Bound Controi | 
OLE Container Control 


ș Non-visual 


Figura 11.2. ierarhia de clase Visual FoxPro 


Este drept, programatorul poate avea satisfacția de a fi reuşit o primă aplicaţie în care 
aproape totul a fost „orientat-obiect”. Reamintiţi-vă însă că nimeni nu face programare „de 
dragul programării”, dacă doreşte să obțină o aplicaţie cu adevărat fiabilă. 

În principal, utilitatea claselor în Visual FoxPro se referă la: 

e  încapsularea unei funcţionalităţi generice (de exemplu, butoane care permit 

navigarea printre înregistrările oricărei tabele .dbf ori etichete care-şi schimbă 
culoarea la trecerea mouse-ului pe deasupra lor); 
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e oferirea unui aspect (look-and-feel) consistent al interfeței (de exemplu, folosirea 
unei casete de text cu efecte de umbrire ori crearea unor butoane cu aspect 
neobişnuit, care să fie folosite peste tot în aplicaţie, în locul controalelor intrinsece 
Visual FoxPro). 

Cât despre felurile de clase ce pot fi create, programatorul are la dispoziţie mai multe 

opțiuni: i 

e  Subclasarea claselor vizuale (afişabile) de bază Visual FoxPro (un exemplu tipic îl 
constituie un buton care să permită părăsirea oricărui formular la apăsarea sa); 

e crearea de noi clase de tip container, care să conţină derivate ale mai iulia ciase 
de bază Visual FoxPro (de exemplu, o căsuţă de text însoţită automat de o etichetă 
la trasarea sa pe formular); 

e crearea de clase non-vizuale (destinate unor calcule sau prelucrări simbolice, cum 
ar fi numărarea cuvintelor dintr-un control de tip EaitBox, ori transcrierea în 
litere a unui număr, ori conversii din sistemul anglo-saxon în cel metric etc.) 

Crearea de noi clase poate avea loc în mod vizual, folosind institui Class 

Designer, sau în mod programatic (prin cod). Nu trebuie confundată maniera de 


P cu aspectul vizual sau non-vizual, la execuţie, al obiectelor aparținând de aceste 
clase. 3 


11.2.4. Crearea de clase cu instrumentul Class Designer 


Class Designer este asemănător întru câtva cu Form Designer, oferind suprafețe pe care 
se pot plasa controale (dacă se doreşte crearea unei clase vizuale) dar şi setul predefinit de 
evenimente Visual FoxPro, care se pot interpreta. În plus, clasei i se pot adăuga proprietăți 
şi metode specifice. Se lansează fie din fereastra de comenzi, prin comanda: 7 l 

CREATE CLASS [<nume-clasă> OF <nume-bibliotecă> [AS <nume- 
clasă-părinte> [FROM <nume-bibliotecă-părinte>] ] Ai 
fie, mai comod, din meniul File->New... ori cu butonul D , alegând opţiunea Class. De 
asemenea, dacă lucrăm cu un proiect deschis, se poate folosi butonul New după p se 
alege secțiunea Libs a proiectului. Va apărea un dialog similar celui din foua 11.3. 

Subclasarea unui control existent. Clasele CmdBtnQuit şi CmdBtnColorQuit 

Vom demonstra aici crearea unui buton care să producă părăsirea unui formular la 
apăsarea sa. Din moment ce acest buton va fi întotdeauna plasat pe un formular, rezultă că 
evenimentul Click al său va trebui să conțină doar instrucțiunea thisform. fai ese 


` Class Name: ICmaBinQui | 
a OK. | 

Based On: ] CommandBukton v | ; 
ru Cancel | 


From: 


Store În: 


k:aplicatieiiibsSfonuserconti zis. vea 


Figura 11.3. Dialogul de creare a unei noi clase Visual FoxPro 
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Vom lansa dialogul de creare a unei noi clase. În figura 11.3 s-au specificat, de sus în 
jos, numele noii clase: CmdBtnQuit (se scrie de la tastatură), numele clasei-părinte 
CommandButton (se alege din listă, iar butonul cu $= din dreapta listei permite 
încărcarea unei alte biblioteci decât cea implicită), calea şi numele fişierului-bibliotecă în 
care vom memora definiţia prezentei clase (se poate alege o bibliotecă existentă cu ajutorul 
butonului ...). 

După încheierea dialogului, cu butonul OK, se afişează fereastra Class Designer, 
car: în cazul de faţă (figura 11.4) conţine imaginea unui buton (datorită alegerii făcute 
penou clasa-părinte). 


* Comrnandţ 


Figura 11.4. Fereastra Class Designer 


În continuare, vom. schimba valoarea proprietății Caption a butonului în "E\<xit" 
(deci va putea fi acţionat şi cu combinaţia Alt +X), iar în procedura evenimentului Click 
vom scrie doar thisform. release. Închiderea ferestrei Class Designer are drept 
consecință afişarea dialogului de salvare a definiţiei clasei respective (dacă nu s-a salvat 
între timp). Clasa este gata, dar instanțierea sa nu poate avea loc decât prin desenarea unui 
control de tip CmdBtnQuit. În acest scop, vom deschide unul din formularele create 
anterior, să zicem frmChart. Pentru a avea acces la clasa CmaBtnQuit, trebuie să 
aducem pe bara de instrumente Form Controls elementele altei biblioteci decât 
biblioteca Visual FoxPro standard (ce conţine controalele intrinsece), iar acest lucru este 
posibil dacă se procedează ca în figura 11.5. Bara de instrumente se va modifica, având 
aspectul din figura 11.6 (în mod asemănător s-a procedat pentru controalele ActiveX, în 
capitolul 10). În continuare, alegând noul buton din bara de instrumente, se va trasa pe 
formularul frmChart un control din clasa CmaBtnQuit. 


ecran, deși în evenimentul Click al acestui buton mi există nici o linie de cod, Este vorba 
de apelul codului metodelor într-o ierarhie de clase. Visual FoxPro implementează 

PR a m e $ R £ 
moştenirea metodelor, astfel încât, la apariția unui eveniment al unuj obiect: 


Programare orientată-obiect în Visual FoxPro 379 


0 Fie pame: |oxiseicontole Ves 


„les of ipype: ` [Visua Class Library [!. vox) Si . Cancel d să 


Figura 11.5. Adăugarea de clase definite de utilizator 
Vom constata că: | 


° numele controlului este Cmabtnquitl (Visual FoxPro denumeşte automat 
instanțele unei clase cu numele acesteia plus numărul instanței), dar se poate 
modifica în fereastra de proprietăţi; 

° textul afişat pe acesta este Exit (stabilit la proiectarea clasei), d 
modifica în fereastra de proprietăţi; 

e după lansarea în execuţie a formularului şi efectuarea unui click pe butonul 
Cmăbtnqui t 1, are loc dispariţia acestuia de pe ecran, 


ar se poate 


Figura 11.6. Aspectul barei de instrumente 
după adăugarea clasei cmaBtnguit 


Notă. Dacă ulterior este nevoie pe formular de controalele intrinsece Visual FoxPro 


se poate reveni la bara de instrumente obişnuită printr-un nou click pe butonul || 
urmat de alegerea numelui bibliotecii, Standard. ză 


Aţi remarcat, la acţionarea butonului Cmabtnguiti, dispariția formularului de pe 


e se execută doar codul scris în metoda respectivă de la nivelul obiectului în cauză 
(se spune că metoda este Suprascrisă); 

e se execută automat codul metodei specifice din clasa de care ține obiectul, dacă nu 
există cod pentru metodă la nivelul obiectului însuşi. Dacă nu există cod în clasa 
respectivă, dar există într-o clasă-părinte a acesteia (bineînţeles, pentru acelasi 
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eveniment), se va executa cel din clasa-părinte, şi tot aşa. Evident, o clasă derivată 
poate suprascrie o metodă a clasei sale părinte. 

Dacă se doreşte invocarea explicită a codului metodei clasei-părinte atunci când 
subclasa are cod pentru respectiva metodă, trebuie inclus în codul din clasa derivată apelul 
funcției DODEFAULT (). Pentru a ilustra acest exemplu, în metoda Click a obiectului 
Cmdbtnquit] de pe formularul frmChart se scrie codul din listingu! 11.4, având ca 
menire consultarea utilizatorului asupra intenției de părăsire a formularului$. 


Listing 11.4. Codul evenimentului Click al butonului cmabtnquiti 


# INCLUDE "aplicatielconstantemsgbox. txt" 
IF IDNO=MESSAGEBOX('Abandonati acest grafic?”, ; 
MB_YESNO+MB_ICONQUESTION,'Mesaj”) 
RETURN 
ENDIF 


Notă. Fişierul constantemsgbox. txt conține declaraţii de constante (4DEFINE) 
pentru numerele care definesc stilul casetei de dialog, precum și pentru răspunsurile 
posibile. Nu este listat aici. 


La o nouă execuţie a formularului, vom constata că la apăsarea butonului nu se întâmplă 
nimic, chiar dacă răspundem Yes, întrucât codul din listingul 11.4 suprascrie codul 
metodei Click a acestei clase. Corect ar fi ca acest cod să se prezinte ca în listingul 11.5, 
ori, mai elegant încă, sub forma din listingul 11.6. 


Listing 11.5. Apelarea selectivă a unei metode în susul ierarhiei de clasă 


INCLUDE "aplicatieiconstantemsgbox. txt" 
IF IDNO=MESSAGEBOX("Abandonati acest grafic?", ; 
MB_YESNO+MB_ICONQUESTION, Mesaj”) 
RETURN 
ELSE 
DODEFAULT() 
ENDIF 24 


Listing 11.6. Variantă a codului din listingu! 11.5 


INCLUDE "aplicatielconstantemsgbox. bt” 
IF IDYES=MESSAGEBOX('Abandonati acest grafic?", ; 
MB_YESNO+MB_ICONQUESTION,"Mesaj”) 
DODEFAULT( | 
ENDIF 


De data aceasta butonul funcționează corect. Observaţi că nu se mai scrie nicăieri 
thisform. release, această operaţie fiind asigurată de codul metodei Click din clasa 
CmâBtnQuit, cod apelat prin funcţia DODEFAULT (). 

Dacă într-o metodă oarecare se doreşte apelul unei alte metode, din clasa de bază sau 
din altă clasă, atunci trebuie să folosim o sintaxă ce implică operatorul de rezoluție, anume 
„i 3”. Reluând exemplul din listingul 11.6, DODEFAULT () şi CmaBtnOuit: :Click 


56. Termenul corect pentru butonul Cmdabtnguit1 este de fapt acela de „instanță a clasei CmaBtnQuit”, nu de 
„Clasă derivată”, dar moștenirea este valabilă şi pentru instanțele unei clase, deci rolul funcţiei 


DODEFAULT () se păstrează. 
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produc rezultate similare. Dar operatorul : : îşi găseşte utilitatea în „sărirea” peste treptele 
ierarhiei de clasă, în stânga sa putându-se scrie numele unei clase-părinte, ori „bunic”, ori 
„străbunic”, după necesități şi după priceperea programatorului. ” ' 
Pentru a întări cele spuse, vom deriva în continuare, din clasa CmdBtnExit, clasa 
CmdBtnColorExit, a cărei trăsătură notabilă este aceea că, la poziţionarea mouse-ului 
deasupra sa, culoarea textului va vira către una stabilită de programator la proiectarea 
clasei. Vom numi această „culoare de schimb” cu numele AlternateFforecolor 
constituind-o ca proprietate distinctă a clasei. di 


Figura 11.7. Crearea unei noi clase 


Dialogul de creare a clasei va fi cel din figura 11.7 (vom memora definiţia clasei în 
acelaşi fişier-bibliotecă foxusercontrols.vex, ca şi pentru precedenta clasă). Nu 
vom termina dialogul doar după denumirea clasei și selectarea fișierului-bibliotecă. Mai 
este nevoie de alegerea clasei-părinte. Evident, nu vom lucra cu ActiveDoc din figura 
11.7, nici cu alta dintre clasele intrinsece Visual FoxPro, ci cu clasa CmaBtnQuit caii 
biblioteca foxusercontrols. Selecţia acestei clase-părinte are loc folosind butonul 
notat cu... de lângă lista Based On... consecința fiind apariţia dialogului din figura 11.8. 


tokini [ESI Tis Tm DE. 


EA foxusercontrois vox 


Less Name. 


Mass Library fioxuseoriok e [On] : 
Fies of lype: - |Visual Class Library [vea À pi tencel | ge 
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Figura 11.8. Alegerea clasei-părinte, alta decât o clasă de bază Visual FoxPro 


După apăsarea pe butonul Open, vom dispune de un „banc de lucru” similar celui de la 
clasa anterioară (figura 1 1.4). 

Vom adăuga (Class—New Property...) proprietatea AlternateForeColor 
(vezi figura 11.9), apoi vom completa metoda MouseMove, imediat după declarația 
implicită LPARAVETERS..., cu codul din listingul 11.7. 
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Name: [ătemaleforecolar Add | 
Yisibiity: [Paie i a Close | 
r Acces: Method T âssign Method == : s 


- Description: 


Culoarea cu care se alterneaza negrul initial 4 | 


la pozitionarea mouse-ului pe butor 


Figura 11.9. Adăugarea unei proprietăţi la o clasă existentă 


Deoarece proprietatea AlternateForecolor are inițial valoarea .F., care nu este 
compatibilă cu nici o culoare, fiind sursă permanentă de erori, îi vom atribui, încă din clasa- 
-părinte, valoarea numerică a unei culori, obţinută prin =RGB (0, 0, 255). Este culoarea 
albastră. Precizăm că semnul = din fața funcţiei este obligatoriu, altfel Visual FoxPro va 
interpreta funcţia RGB ca pe un text oarecare, ducând la o nouă eroare, 


Listing 11.7. Codul metodei MouseMove 


LPARAMETERS nButton, nShift, nXCoord, nYCoord 
WITH THIS - 
* se memoreaza pozitia relativa a cursorului 
* fata de marginile butonului, 
* intrucat nXCoord si nY Coord se refera la 
* marginile formularului 
horz=nXCoord-.LEFT 
vert=nYCoord-.TOP 
* daca pozitia cursorului se afla intr-o zona delimitata conventional 
IF BETWEEN(horz,.WIDTH*0.2,.WIDTH*0.8) AND ; 

BETWEEN (ver, .HEIGHT*0.2,.HEIGHT*0.8) 
.FORECOLOR=.AlternateForeColor && se inlocuieste culoarea textului 
FONTBOLD=.T. && se ingroasa fontul, pentru accentuarea efectului vizual 

ELSE 
„FORECOLOR=RGB(0,0,0) && se revine la text de culoare neagra 
„FONTBOLD=.F. 
ENDIF 
ENDWITH 


După terminarea clasei, vom înlocui vechiul buton Cmabtnquit1, de pe formularul 
FrmChart, cu un buton din această nouă clasă, al cărui nume implicit va fi 
Cmăbtncolorquit1. Efectul vizual obținut este, credem, destul de plăcut. În plus, la 
click pe butonul respectiv, formularul va dispărea de pe ecran (se moşteneşte deci metoda 
Click). Dar dacă, intervenind în clasa CmâBtnColorQuit, dorim să atribuim altă 
funcţionalitate evenimentului Click (de pildă pentru a utiliza un astfel de control 
„colorat” şi la altceva decât la părăsirea formularului) şi scriem acolo doar un comentariu: 

* evenimentul Click 
atunci „legătura de rudenie” cu clasa CmaBtnQuit se va întrerupe... 

În asemenea condiţii, pentru a menţine funcţionalitatea butonului Cmadbtncoloraui ti 
de pe formularul frmChart nu există altă şansă decât plasarea, în metoda Click, a 
codului din listingul 11.8, în care funcția MESSAGEBOX () are rolul explicat mai sus. 
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Listing 11.8. Apelul explicit al unei metode situate în clasa-părinte 


INCLUDE "aplicatieiconstantemsgbox.tat" 
IF IDYES=MESSAGEBOX('Abandonati acest grafic?” ; 
MB_YESNO+MB_ICONQUESTION,"Mesaj”) 
CmaBinQuit::CLICK && se observa apelul unei metode din clasa parinte CmadBinQuit 
ENDIE && nu din clasa derivata CmdBtnColorQuit 


Exemplele date aici sunt simple, poate chiar simpliste, dar s-a recurs la simplitate pentru 
a creşte în claritate. Sperăm că vor duce la o mai uşoară înțelegere a modelului de 
programare obiectuală din Visual FoxPro. 

Aţi observat probabil că, după crearea celor două clase, bara de instrumente Form 


Controls prezintă două pictograme standard pentru butoane de comandă: |k d of oj În 
astfel de condiții, este greu de ghicit care reprezintă clasa CmdBtnQuit şi ca 
CmdBtnColorQuit, dacă nu se ține un timp cursorul mouse-ului deasupra fiecărui 
buton. Pentru identificarea rapidă, se recomandă ca fiecărei clase să i se asocieze o 
pictogramă. Pictograma, cu un aspect sugestiv, trebuie să fie un fişier „bmp cu 
dimensiunile de 15x16 pixeli (dacă e mai mare, Visual FoxPro realizează redimensionarea 
ei, dar distorsiunile o pot face neinteligibilă). Poate fi desenat şi în regim propriu (cu Paint 
sau un program mai sofisticat). Acest fişier trebuie precizat ca valoare a proprietății 
Toolbar Icon, pe care n-o găsim în fereastra obişnuită de proprietăţi, ci într-un dialog 
mai vast (vezi figura 11.10) lansat prin opțiunea de meniu ClassClass info.. 
Aceasta este disponibilă doar dacă pe ecran este deschisă fereastra Class Desi gner. 


N oră. In afara alegerii din structura arborescentă sub care se prezintă bibliotecile în 
pagina Libs a Project Manager, deschiderea rapidă a unei clase în scopul 
modificării este posibilă şi prin scrierea comenzii MODIFY CLASS ? OF ? ce va 
avea ca efect afişarea unui dialog Open precum cel din figura 11.8. 


Toolbar icon: K: \aplicatie\ibs \emdbtinguit bmp pi 
Container icon: ai 2 


TT OLE Pubic.. 7 Scale units: [Pres Sja 
Descripiioni 3 g i, s ae 
Buton utilizat pentu parasirea unui formular 


Class name: ~ mdbinaiat- pan 
Parent class: commandbuton - i; 
pă Dass library. - k:Saplicatieilibsifoxusarcontrols ves 


î a z - z ia OR | „Cancel | Sa 
- $ 


Figura 11.10. Specificarea unei pictograme a unei clase, pentru bara de instrumente 
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Se poate repeta operaţia de atribuire a pictogramei şi pentru a doua clasă, 
CmdBtnColorQuit. După această manevră, bara de instrumente ar trebui să se prezinte 
ca în figura 11.11. 


Figura 11.11. Bara de instrumente în cazul 
utilizării pictogramelor (Toolbar Icon) 


Derivarea clasei Form Clasa EfectInchidere 

În mai toate proiectele Visual FoxPro este nevoie de cel puţin un membru al clasei 
Form, dar sunt proiecte în care este nevoie de mai multe formulare cu un aspect uniform 
sau cu un comportament anume. Vom continua linia exemplelor simple, oferind indicațiile 
de creare a unui formular care la închidere să prezinte efectul vizual de „condensare”, 
urmată de dispariţie. Ideea este simplă: vom intercepta evenimentul Unload şi vom 
diminua progresiv lăţimea şi înălțimea formularului, cu un procent prestabilit (ne-am oprit 
la 10%). Diminuarea va avea loc în cadrul unei iterații, până ce lățimea ori înălțimea sunt 
mai mici de 10% din dimensiunea avută iniţial. Pentru exagerarea efectului de animaţie, am 
introdus, între două micşorări succesive, un interval exprimat în milisecunde (implicit 100), 
declarat ca proprietate a clasei, clasă pe care o vom numi EfectInchidere. 


Listing 11.9. Codul metodei Unload 


SET CURSOR OFF && se ascunde cursorul in timpul executiei instructiunii WAIT 
LOCAL i, j, k 
WITH THISFORM 

IF WIDTH>.HEIGHT 


FOR i=j TO k STEP -k && se micsoreaza proportional latimea si inaltimea 
&& formularului in incremente de 1/10 
AWIDTH=i 
„HEIGHT=i 
ENDFOR 
WAIT WIND *" TIME INTERVAL/1000  && se asteapta un timp predefinit 
„UNLOAD i i 
ENDWITH 
SET CURSOR ON && se reface cursorul 


Clasa se obţine prin derivarea clasei Form (vezi lista Based On... din figura 11.3), iar 
memorarea ei are loc tot în biblioteca foxusercontrols”, Ulterior se adaugă 
proprietatea Interval, iar în procedura evenimentului Unload se trece codul din 
listingul 11.9. 


57. La gruparea în biblioteci de clase (.vex) e bine să se ţină cont, pe de o parte, de posibilităţile de folosire, 
într-un singur proiect, a mai multor tipuri de clase „înrudite”, iar pe de altă pane, de menţinerea unei 
dimensiuni rezonabile a bibliotecii. 
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Instanțierea formularului constituie o etapă ceva mai dificilă. Există o cale de a realiza 
acest lucru în mod asistat. Înainte de alte lămuriri, să spunem că Visual FoxPro utilizează 
pentru fiecare nou formular (fie el creat cu ajutorul opțiunilor din meniu, fie prin comanda 
CREATE FORM), un şablon (remplate) memorat în biblioteca standard Visual FoxPro. Deşi 
la prima vedere acest lucru nu pare evident, şablonul implicit poate fi modificat, indicând 
programului un altul, care trebuie să se prezinte ca o clasă Form sau derivate din Form. 
Această modificare trebuie realizată înainte de a lansa comanda propriu-zisă de creare a 
unui nou formular. În acest scop se utilizează opțiunea de meniu Tools—Options.., 
pagina Forms. În stânga opțiunii Form a cadrului Template Classes se găseşte o 
casetă de opțiune pe care o vom bifa (vezi figura 11.12). Se va deschide un dialog Open 
(figura 11.12) în care vom naviga până la găsirea clasei dorite, care trebuie să fie derivată 
din clasa Form. După confirmarea alegerii şi închiderea tuturor ferestrelor de dialog 
Visual FoxPro va crea orice formular nou pornind de la acest şablon (imaginaţi-vă utilitatea 
acestei facilități în caz că aţi creat un model de formular sofisticat, cu diferite elemente 
grafice, culori sau chiar butoane, imagini de fundal şi alte controale). Se înțelege de la sine 
că, formularele deja create rămân neschimbate. Dacă ulterior se dorește revenirea la 
şablonul implicit pentru formulare, nu trebuie decât debifată căsuţa Form din dialogul din 
figura 11.12 (fereastra din plan îndepărtat). 

| Pentru a ilustra cele spuse, vom crea un formular de probă. În prealabil însă, folosind 
dialogul arătat în figura 11.12, vom proceda la stabilirea ca şablon a clasei 
efectinchidere, din biblioteca foxusercontrols. Apoi, cu comanda CREATE 
FORM, vom purcede la crearea formularului, pe care-l vom şi salva cu numele 
Efect Inchidere. scx. Nu vom adăuga nici o linie de cod. La execuția formularului, 
prin click pe butonul de închidere, trebuie să se observe efectul de animație. În continuare 
se completează formularul, după necesităţi, cu alte controale. O idee bună este adăugarea 
unui buton din clasa CmdBtnQuit, care va declanşa închiderea (metoda Release) şi, 
implicit, animația (reamintim că aceasta este ataşată evenimentului Unload al 
formularului). 
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Figura 11.12. Precizarea unui şablon personalizat pentru crearea formularelor 
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Atenţie! Nu trebuie omisă revenirea la șablonul inițial pentru crearea de formulare, 
prin aceeaşi opțiune de meniu Tools->0ptions..., pagina Forms. 


Notă. Crearea unei clase derivate din clasa de bază Form poate avea loc şi astfel: întâi 
se creează formularul exact în forma dorită, iar apoi se foloseşte opțiunea de meniu 
File—Save As Class.. pentru a salva formularul ca şi definiție a unei clase. 
Dialogul Save As Class ne va cere numele clasei, precum și calea şi numele unui 
fişier-bibliotecă . VCX. 


Controale de tip Container. Clasele CategPicker şi OvalBtn 

Existența obiectelor de tip Container permite crearea de clase compuse, prin 
adăugarea și interconectarea mai multor controale „clasice”, fiecare având propriile metode 
şi proprietăţi. 


Exemplul i 

Vom începe cu o primă clasă, ce foloseşte controlul TreeView. 

Controlul ActiveX TreeView poate afişa o ierarhie, să zicem a unor localităţi, în care 
îşi au sediul clienți ai firmei. Dorim să selectăm doar anumiţi clienți, în vederea listării 
facturilor emise lor. Arborele respectiv fiind organizat pe două niveluri (primul — localități, 
al doilea — clienţi), este posibilă o selecție „granulară”: fie toate localităţile şi, implicit, toți 
clienţii, fie anumiţi clienți (nu toți) din anumite localități (nu toate), fie toți clienţii dintr-o 
localitate etc. Într-un exemplu anterior (formularul frmTree_List din capitolul 10) am 
avut posibilitatea de a selecta, dintr-o ierarhie clienţi-facturi, doar o anumită factură, căreia 
să i se afişeze detaliile într-o listă alăturată. În ambele cazuri, popularea arborelui se 
realizează la inițializarea acestuia. Nu s-ar putea crea o clasă care să excludă scrierea de 
două ori a complicatei proceduri de populare a arborelui cu datele dintr-o tabelă? 

O eventuală clasă care să folosească controlul TreeView în scopul precizat ar trebui să 
permită utilizatorului precizarea sursei de date (tabelă, view, interogare SELECT ad-hoc), 
dar şi a ierarhiei în care să se organizeze câmpurile acesteia. Apoi trebuie memorate 
undeva, la cererea utilizatorului, nişte elemente care să identifice unic fiecare ramură care a 
fost selectată (există un stil de afişare a arborelui ce cuprinde casete de opțiune). În 
continuare, aceste elemente trebuie să poată fi folosite ca şi criterii de filtrare, pentru 
lansarea unui formular ori raport parametrizat, execuția unei interogări SQL cu parametri în 
clauza WHERE, deschiderea unui view parametrizat etc. Este ideea care a stat la baza clasei 
prezentate în continuare, numită CategPicker (literal „selector de categorii” — am 
preferat denumirea englezească pentru conciziunea ei). Astfel, sursa de date, precum şi 
câmpurile necesare ierarhizate şi afișate în controlul TreeView vor fi declarate ca 
proprietăți. Câteva metode adecvate vor asigura popularea arborelui şi memorarea 
identificatorilor ramurilor (nodurilor) alese. 

Ce fel de clasă de bază să alegem? De bună seamă, clasa Form ar fi destul de nimerită. 
Totuşi, considerând ideea plasării unui obiect de tip CategPicker pe un formular care 
conţine deja mai multe controale și o cantitate mare de cod, ideea formularului păleşte: ne 
apucăm să refacem (mutăm de pe un formular pe altul, reașezăm, redenumim) mai multe 
controale deja stabile sau adăugăm un singur control nou? Ultima soluție este mai simplă, 
dar din păcate controlul TreeView nu are toate proprietățile şi metodele pe care le-am 
dori în acest caz, iar a-l subclasa direct pe el nu poate fi vorba în Visual FoxPro. Cu toate 
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acestea, este posibil un fel de subclasare, dacă folosim clasa de bază Container căreia îi 
putem adăuga orice proprietăți și metode și în care putem include un control de tip 


TreeView, Dialogul din figura 11,13 arată cu 
i m se procedează pentr i 
asemenea clase. i A aatac 


[EategPioker $ z SR 


f 


| Containei |. 


Figura 11.13. Derivarea clasei Container 


La încheierea acestui dialog, fereastra Class Designer afişează containerul, foarte 
asemănător cu un formular, dar fără titlu și fără butoane de control. De fapt, la Sedi ie 
controalele de tip container pot avea doar o bordură care să le „trădeze” poziţia pe AE 

Vom avea grijă să ataşăm la proiect (Tools—>Options... Controls) controlul da 
categoria Microsoft TreeView, iar o instanță a acestui control va fi imediat trasată pe 
containerul existent (schimbaţi aspectul barei Form Controls cum se arată în figurile 
11.5-] 1.6). Numele său va fi oLeTvw: Vom adăuga şi un buton numit cmdMemoreazá al 
cărui rol este de a memora într-o tabelă temporară (cursor) cheile ramurilor (nodurilor) čare 


au fost selectate. Respectivele chei, formate din conținutul unor câmpuri din sursa de date 
vor putea fi folosite ulterior drept elemente de filtrare. ' 


PR 


C] Sample Node 
- CI Sample Node 
-- [C] Sample Node 

C Sample Node 


= d 


` Memoreaza alegerile | : 


Figura 11.14. Clasa CategPicker în curs de realizare 
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Tabelul 11.4. Valorile proprietăţilor notabile ale controlului oleTvw S-au adăugat şi două metode, conversie şi conversiel, prevăzute cu sarcini 


specifice (vezi codul din listingul 11.10). 


Proprietate | Valoare | 


Name |_oleTvW 


Checkboxes ii 
HotTracking T 
Indentation 20 


LabelEdit 


1 — Manual 
7 — Treelines, Plus-Minus, Picture and Text 


Setarea proprietății LabelEdit în acest fel (Manual) împiedică modificarea textului 
de pe o ramură a arborelui, ce se declanşează implicit la execuţia a două click-uri succesive 
(nu dublu-click). Cât despre înălțime şi lăţime, vom face ca acestea să se ajusteze automat 
lăţimii, respectiv înălțimii  containerului (lăsând loc dedesubt pentru butonul 
cmaMemoreaza), folosind evenimentul Init (vezi listingu! 11.10). 

Proprietățile adăugate la nivelul clasei (containerului) sunt precizate în tabelul 11.5. 
Toate proprietățile sunt de tip Public. 


Tabelul 11.5. Proprietăţi definite de utilizator 


Nume Descriere 


Valoare | 
implicită 
<scrieți 
sursa> 


1 — tabelă sau view, 2 — interogare SQL 

Un text care să semnifice numele unei tabele sau o 
interogare SELECT. Pentru două niveluri ierarhice, 
trebuie să avem patru câmpuri în sursa de date. 
Câmpurile sunt perechi: un cod (o prescurtare, care 
este ascunsă) + o descriere (care apare pe ramura 
arborelui). Exemplu: SELECT 1.codpost, 
loc, codcl, denci FROM localitati 
1, clienti c WHERE 
c.codpost=].codpost ORDER BY 
localitate 

OrdineCampuri | Scrieţi cifre separate prin virgulă, de exemplu 1,2,3,4 
1,2,3,4, dacă ordinea din tabelă nu este cea potrivită. 
Întotdeauna codul se precizează înaintea descrierii. 
unu Primul câmp din sursa de date (ca ordine). Serveşte E 
pentru memorarea temporară a numelui câmpului- 
cheie de pe nivelul 1 al arborelui. 

trei Al treilea câmp din sursa de date (ca ordine). F; 
Serveşte pentru memorarea temporară a numelui 
câmpului-cheie de pe nivelul 2 al arborelui. 


TipSursaDate 
SursabDate 


Obiectul oleTvw, component al clasei CategPicker, a fost declarat de tip 
Protected (vezi dialogul Class—Edit Property/Method.... În acest mod nu 
poate fi accesat explicit în codul instanțelor clasei”. 


58. Reamintim că, în mod implicit, modificarea dispoziţiei obiectelor dintr-un container se face după activarea 
opțiunii Edit din meniul contextual al containerului. Ei bine, dacă toate obiectele componente sunt de tip 
Protected, opțiunea Edit nu mai are efect, 


Listing 11.10. Metodele clasei CategPicker 


* Obiect: CategPicker 
* Eveniment: Init 
INCLUDE "aplicatielconstantemsgbox txt" && vezi Listing 11.4 si explicațiile aferente 
* redimensionarea controlului oleTvw 
WITH THIS.oleTww 
„WIDTH=THIS. WIDTH-2 
„HEIGHT=THIS.HEIGHT-THIS.cmdMemoreaza.HEIGHT-10 
e ls && left si top se raporteaza la marginea containerului 
x =1 ; 
ENDWITH 
* realinierea butonului cmdMemoreaza 
WITH THIS.cmdMemoreaza 
.TOP=THIS.oleTvw.TOP+THIS.oleTvw.HEIGHT+5 
LEFT=THIS.oleTvw.WIDTH-.WIDTH-10 
ENDWITH 
* cateva verificari ale proprietatilor 
IF LEFT(THIS.sursadate,1)="<" && inseamna ca s-a pastrat sursa implicita "<scrieti...>" 
MESSAGEBOX("Sursa de date este incorecta." +CHR(13) +; 
"Corectati, apoi lansati din nou.", ; 
MB_ICONEXCLAMATION, "Eroare in clasa CategPicker”) 
RETURN. .F. i 
ELSE && sursa de date e buna 
IF THIS tipsursadate=1 AND "SELECT" $ UPPER(THIS.sursadate) 
„AND "FROM" $ UPPER(THIS.sursadate) 
MESSAGEBOX('Sursa de date este o interogare SELECT," +CHR(13) +; 
"iar tipul sursei de date este 1. Corectati!", ; 
MB_ICONEXCLAMATION, "Eroare in clasa CategPicker”) 
RETURN .F. £ 
ENDIF 
ENDIF 
IF IDBUSED('vinzari’) 
A DATABASE “aplicatie\database\Wwinzari" SHARED 
SET EXCLUSIVE OFF 
” mai intai, se populeaza controlul de tip TreeView 
* pe doua nivele 
IF THIS tipsursadate=1 
IF USED(THIS .sursadate) 
SELECT (THIS.sursadate) 
USE 
USE (THIS.sursadate) IN 0 SHARED ALIAS tabelasursa 
ENDIF 
ELSE 
* formare comanda SQL 
sglemd=THIS.sursadate+ " into cursor tabelasursa" 
&sglemd && executie comanda SQL 
ENDIF ; 
IF RECCOUNTÇ'tabelasursa")<>0 && exista date de afisat 
* se rebrdorțeaza campurile 
= A * criteriul eide forma: 1,2,3,4 
„sau 2,1,34 sau 1,3,4,2 
:.? * oricurh trebuie sa fie numai 4 campuri! 
: | SELECT tabelasursa 


— 


unu=FIELD(VAL(LEFT(I HIS.ordinecampuri, ATC, THIS.ordinecampuri)-1 ))) 


* se memoreaza denumirea si tipul campului-cheie de pe nivelul 1 
THIS.unu=unu+" "+VARTYPE(&unu)+"("+ALLTRIM(STR(FSIZE (unu),3,0))+")" 


doi=FIELD(VAL(SUBSTR(THIS.ordinecampuri, ; 
ATC," THIS.ordinecampuri)+1, ; 
ATC, THIS.ordinecampuri,2)-AT(",",THIS.ordinecampuri)-1))) 


trei=FIELD(VAL(SUBSTR(THIS ordinecampuri, ; 
AT(',,THIS.ordinecampuri,2)+1, ; 
AT(,", THIS .ordinecampuri,3)-AT(",", THIS .ordinecampuri,2)-1))) 

* se memoreaza denumirea si tipul campului-cheie de pe nivelul 2 

THIS treiztrei+" "+VARTYPE(&trei)"("+ALLTRIM(STR(F SIZE (trei),3,0))+")" 


patru=FIELD(VAL (SUBSTR(THIS.ordinecampuri, ; 
ATC", THIS.ordinecampuri,3)+1))) 
* incepe popularea arborelui 
* sa ne inchipuim ca: unu="codpost”, doi="loc", trei="codc!", patru="denc!" 
SCAN 
valunu="="+ THIS .conversie(unu, VARTYPE(&unu)) 
* s-a concatenat o tilda (~) pentru ca valoarea cheii nodului 
* sa nu inceapa cu cifra, intrucat e incorect 
vaidoi=THIS.conversie(doi, VARTYPE(&doi)) 
valtrei="-"+THIS.conversie(trei, VARTYPE(âtrei)) 
* s-a concatenat o tilda (~) pentru ca valoarea cheii nodului 
* sa nu inceapa cu cifra, intrucat e incorect 
valpatru=THIS.conversie(patru, VARTYPE(&patru)) 
WITH THIS.oleTvw 
* se adauga o ramura de nivel 1 
IF nodes.COUNT=0 && initia! nu sunt noduri 
* nod-parinte 
„nodes. ADD („valunu, valdoi) 
* nod-copil 
„nodes.ADD (valunu,4,vaitrei,vaipatru) 
anterior=valunu 
ELSE && s-au adaugat noduri 
IF anterior<>valunu && s-a schimbat "parintele"? 
* un nou nod-parinte 
„nodes. ADD (,valunu,valdoi) 
anterior=valunu 
ENDIF 
> nod-copil 
nodes. ADD (valunu,4,vaitrei,valpatru) 
ENDIF 
ENDWITH 
ENDSCAN 
ELSE 
MESSAGEBOX("Nu sunt date de afisat!”, MB_ICONINFORMATION) 


ENDIF 


* Eveniment: Destroy 

IF USED("tabelasursa”} 
SELECT tabelasursa 
USE 

ENDIF 


* Metoda Conversie 
LPARAMETERS camp, tipcamp 
* converteste un camp de un tip precizat intr-un sir de caractere 
DO CASE 
CASE tipcamp="C" 


Programare orientată-obiect în Visual FoxPro 


RETURN ALLTRIMI& 
CASE tipcamp=iN camp) 


RETURN ALLT(STR(&camp)) 
. CASE tipcamp="D" 
RETURN DTOC(&camp) 
CASE tipcamp="T" 
RETURN TTOC(&camp) 
OTHERWISE 
Ace OAC NU stiu sa tratez tipul de camp "+ tipcamp, ; 
_ICONEXCLAMATION, "Eroare in clasa CategPicker” 
RETURN "eroare" dai, 
ENDCASE 


* Metoda Conversie1 
LPARAMETERS variabila, tipvariabila 
* converteste o variabila de tip sir de caractere 
* intr-un tip precizat 
DO CASE 
CASE tipvariabila="C" 
RETURN variabila 
CASE tipvariabila="N" 
RETURN val(variabila) 
CASE tipvariabila="D” 
RETURN CTOD(variabila) 
CASE tipvariabita="T" 
RETURN CTOT(variabila) 
OTHERWISE 
MESSAGEBOX("Nu stiu sa tratez tipu! de variabila "+ tipvariabila, ; 
MB_ICONEXCLAMATION, "Eroare in clasa CategPicker”) 
RETURN "eroare" 
ENDCASE 


* Obiect: CategPicker.oleTvw 

* Eveniment: NodeClick 

"** ActiveX Contro! Event *** 

LPARAMETERS node 

IF NODE..children<>0 && daca nodul selectat are noduri-copil 

enpo DE-expanded=INODE expanded && inversam starea expandare/comprimare 


* Eveniment: NodeCheck 

"= ActiveX Control Event =** 

LPARAMETERS NODE 

LOCAL pe 

IF NODE.children<>0 
pc=NODE.CHILD && primul nod copil 
pe.checked=pc.PARENT. checked 

ENDIF 

FOR i=2 TO NODE. children && se continua cu selectarea automata 

&& a tuturor nodurilor copil 

pe=pe.NEXT && urmatorul nod copil 
pe.checked=pc.PARENT.checked- 

ENDFOR 

IF NODE.checked 
NODE .expanded=.T. && expandam/colapsam automat, 

&& ca sa se vada nodurile selectate 
ENDIF 


* Obiect: CategPicker.cmdMemoreaza 
* Eveniment: Click 
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IF USED("crsSeiectie”) 
SELECT crsSelectie 
USE 
ENDIF i 
” se formeaza o comada CREATE pentru a defini un cursor cu 2 coloane 
* pentru memorarea rezultatelor alegerilor facute in oleTvw 
sqicmd="create cursor crsSelectie("+ THIS.PARENT.unu+","+THIS.PARENT trei+")" 
&sqicmd - && executie comanda SQL: se creeaza cursorul pentru rezultate 
* acum se parcurg ramurile selectate, inserand in cursor 
* perechi de forma cheie-nivelt, cheie-nivei2 
* reconvertite in tipul de data original 
FOR EACH ramura IN THIS.PARENT.oleTvw.nodes 
IF ramura.checked AND VARTYPE(ramura.PARENT)="O" && are parinte 
INSERT INTO crsSelectie VALUES (; i 
THIS.PARENT .conversie1(SUBSTR(ramura.PARENT .KEY,2),TYPE(FIELD(1,"crsSelectie”))), ; 
THIS.PARENT.conversie1 (SUBSTR(ramura.KEY,2),TYPE(FIELD(2,"'crsSelactie”)))) 
ENDIF 
ENDFOR 


Exemplificarea modului de folosire a acestui control se bazează pe crearea unui 
formular experimental numit TestCategPicker (figura 11.15). 

Prima ipoteză de lucru presupune afişarea selectivă a facturilor emise unor clienți din 
una sau mai multe localităţi. După cum se observă, singurul obiect existent pe formular 
este CategPickerl (numele implicit atribuit de Visual FoxPro la instanțierea 
controlului). 

Proprietăţile acestui control, CategPicker1, se stabilesc astfel: 

e  tipsursadate=2 

e  sursadate = SELECT l.codpost, loc, coacl, dencl FROM 

localitati 1, clienti c WHERE l.codpost=c.codpost ORDER 
BY loc 

e  ordinecampuri = 1,2,3,4 

Misiunea acestui formular este de a afişa raportul rep facturi clienţi 1. Este 
o versiune a raportului rep facturi clienţi, dezbătut pe larg în capitolul 7 
(subcapitolul 7.3). Singura diferență o constituie adăugarea următorului cod la sfârşitul 
evenimentului Init al obiectului Data Environment: 


SELECT * FROM craport WHERE codpost IN (SELECT codpost FROM crsSelectie); 
AND codel IN (SELECT codel FROM crsSelectie) INTO CURSOR craport 
SELECT craport 


În scopul afişării, evenimentului Click al butonului cmăMemorează i se adaugă 
codul prezentat în listingul 11.11. Aceluiaşi buton i se modifică valoarea proprietăţii 
Caption în NA<Afisare raport. 


Notă. La procedura Click se ajunge folosind cele două liste din partea superioară a 
ferestrei de cod, 
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SEI | 


[] Sample Node 
+- [7] Sample Node 
E C] Sample Node 

Cj Sample Node 


3 fomi 
E Categpickerl 


SF Activeconiiel 


` Memoreaza alegerile: |- 


Figura 11.15. Formularul experimental TestCategPicker 


Listing 11.11. Lansarea raportului 


* Obiect: thisform.Categpicker1.cmdMemoreaza 
* Eveniment: Click 
DODEFAULT() && se realizeaza memorarea nodurilor selectate 
* se afiseaza raportul in mod previzualizare 


REPORT FORM "aplicatie\reports\rep facturi clienti 1" PREVIEW 


În figura 11.16 se observă raportul în mod previzualizare, ulterior selecției câtorva 
clienţi în arborele din formularul TestCat egPicker. 


ŢI Chen 254 4 a 
Pisani i LISTA FACTURILOR LA DATA 14/73/2001 i 
C Roman : 
EA Timisoara : 
TD Chem 5 SRL i 
E Stem SRE Localitatea Timisoara din judetul Timis 
Ir Vasil i 


Ludo! fiscal : R1005 
Teidtsz 036-711111 


Societatea Client 5 SRL 
Adress necunoscuta 


Ë 1 Factura Rr.4t12, din date D162 000 


ma IE REA PP 
Linia Produsul Cantitatra Fra samar yae 


R E [zii 
| __ Ataare ranon i 1 Produs 2 E: ia 
Taea = J o 

== 3 Produs 3 = 
11249x 


1) Factutar.4122, din data 07/00/2000 
Linia Produsal 


t Produs 2 
2 Produs 3 


E S SI 


Figura 11.16. Rezultatul execuției formularului Tesu 75 72 psr (varianta 1) 
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Să recurgem acum la ipoteza potrivit căreia s-ar dori afișarea numai a anumitor facturi 
emise unuia sau mai multor clienți. Trebuie realizat un nou formular în care, pentru 
proprietatea sursadate, se va stabili textul: SELECT c.codcl, denci, nrfact, 
"Factura nr. "+alitrimistrinrfact))+" din " +DTOC(datafact) 
AS denfact FROM clienti c, facturi f WHERE f.codcl=c.coaci 
ORDER BY c.codcl, nrfact. 

La lansarea formularului, ar trebui să se afişeze fără probleme clienții pe primul nivel şi 
facturile pe al doilea (vezi figura 11.17). Dacă apare o eroare, e posibil ca numerele de 
facturi să nu fi fost unice. Aceasta este de altfel o limitare a clasei: se presupune că 
perechile de forma (primul câmp din sursa de date, al treilea câmp din sursa de date) nu se 


repetă. 


e 

SAADA ESE e repor Deria rea Jactur auent AA Page 
EE ia pepara Designet -rea cut RE 
4 Fatiura nr. 1115 gin B2/08r2000 E; 

area n Nie aeaa LISTA FACTURILOR LA DATA 13/09/2001 

= BF aciura nt, 1118 din 04/08/4009 

19 Facua nt 4420 din 07/08/2000 


Localitatea lasi din judetul lasl 


Codul fiscal : R1001 
Talafon Indisponibil 


[ Societatea Client 1 SRL 
Adresa Traantiei, 13 bis 


Ci Cuent? SRL 


Li Factura Nr.1145, din daia 02/00/2000 
i Produsul Cantitatea Pret unitar 


1 Produs 2 150 9250 


“i Ansans rapor. -| } Totai factura 


1) Factura Nr.HI7, din data 03082000 
| Linia Produsul Cantitatea Pret unnar 


i Pradus2 100 10909 
2 Produs 1 135 S00 
Total factura 


La Faura nrt din data 04082090 


Figura 11.17. Rezultatul execuției formularului TestCategPicker (varianta 2) 


Pentru afişarea corectă a raportului, finalul codului evenimentului Init al obiectului 
Data Environment al raportului rep_facturi_clienți_1 va arăta astfel: 


SELECT * FROM craport WHERE nrfact IN (SELECT nrfact FROM crsSelectie); 


AND codel IN (SELECT codel FROM crsSelectie) INTO CURSOR craport 
SELECT craport 


Rezultatul poate fi urmărit în figura 11.17, unde au fost selectate toate facturile 
clientului „Clienti SRL”. 


Observaţie: am folosit raportul doar în scop demonstrativ, întrucât, în condițiile 
filtrării, câmpurile „Total pe client” sau „Total pe localitate” nu vor mai afişa situația 


reală. 


Exemplul 2 
Vom utiliza un container şi câteva obiecte din clasa Shape, în scopul simulării unor 


butoane de comandă ovale (aşa cum se văd în paginile Web ori la interfața grafică a unor 
sisteme de operare). 
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i E li d ac de e în practică, necesitând cunoștințe minime de geometrie: 
aa cit paria suprapuse: unul cu bordură neagră — pentru conturul 

i, unu gri — pentru umbră şi unul cu bordură punctată, care se va afişa intermitent 
pentru a simboliza că butonul are focus-ul. Atenţie însă, obiectele de tip Sha e n E 
primi focus-ul; de aceea s-a ales soluția „ascunderii” în container g e e 
CommandButton „adevărat”, cu dimensiuni care-l fac aproape invizibil (2x2 ixeli). Câ 
despre textul butonului, el va fi simulat printr-un control Label n A a î 
AutoSize=.T. şi Alignment=Center. g A 


shpUmbra (Width=120 
Height=36) 


shpButon {Width=118, 
Height=34) , 


Commanal 
(Widrh=2, 
Height=2) 


ShpFocus (Width=114 E 
Height=30) 


stod 


îi lblCaptionţ: 


„Figura 11.18. Clasa OvalBtn în curs de realizare 
(Stânga — „piesele componente”, dreapta — aspectul final) 


Inițial, shpUmbra şi shpButon au valori egale ale proprietăților Left respectiv 
Top, rezultând un efect de umbrire pe laturile din dreapta şi de jos ale butonului După 
construcție, toate controalele incluse în container sunt declarate Protected astfel : 
într-o aplicaţie-client, obiectele de tip OvalBtn să se comporte monolitic. Tabelul a 


prezintă proprietățile şi metodele adăugate de utilizator. 
Valoare 
implicită 


Text 


Tabelul 11.6. Proprietăţi şi metode noi la nivelul clasei OvalBtn 


Nume Descriere 


i Textul care va fi afisat pe buton 

Curbura_buton | Un număr de la | la 98 (mai mare, înseamnă o curbură maj 
ban ronunțată; 0 este dreptunghi; 99 este cerc sau elipsă) 

iDN Metodă invocată indirect la apăsarea butonului mouse-ului 
Metodă invocată indirect la eliberarea butonului mouse-ului 


' Metodele MDn și MUp sunt gândite ca „destinaţii” ale unor evenimente MouseDoun şi 
Mousel 'eni iC j j 

o i provenind de la oricare dintre obiectele componente ale containerului (trebuje ca 
pseudo-butonul construit aici să reacționeze la click pe întreaga sa suprafață, or aceasta este 


azi din diferite controale suprapuse), Succesiunea metodelor Mon şi MUp simulează 
vizual click-ul. Cât despre evenimentul Click ca atare (necesar pentru ca acest huton să 
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aibă şi un rol util, nu doar decorativ), el este declanşat explicit, la sfârşitul metodei MUp. 
Vom începe discuţia cu metoda MDn, destinată să provoace un efect vizual prin deplasarea 
spre dreapta şi în jos, cu câte 1 pixel, a obiectului shpButon, ca şi a textului (obiectul 
1blCaption), dând iluzia apăsării (listingul 11.12). 


Listing 11.12. Codul metodelor Mon, respectiv MUp 


* Obiect: OvaiBtn 

* Metoda: MDn 
LPARAMETERS cti, nButton, nShift, nXCoord, nYCoord 
= ctl este controlul (de tip Shape) “de mutat”, transmis ca parametru 
IF nButton=1 AND nShift=0 

* se muta “butonul” 

cti. TOP=cti. TOP+1 

cti. LEFT=cti LEFT+1 

* se muta textul 

THIS blCaption.LEFT=THIS iblCaption. LEFT+1 

THIS. IblCaption.TOP=THIS IbiCaption.TOP+1 

THIS. commandt.SETFOCUS && ca sa se afiseze linia punctata (shpFocus) 


ENDIF 


* Metoda: MUp 
LPARAMETERS ctl, nButton, nShift, nXCoord, nYCoord 
* ctl este controlul (de tip Shape) "de mutat", transmis ca parametru 
IF nButton=1 AND nShift=0 && butonul din stanga, fara Ctrl Alt Shift 
* se muta la loc "butonul" 
ct. TOP=ctl.TOP-1 
cti. LEFT=ctl.LEFT-1 
* se muta la loc textul 
THIS IbiCaption.LEFT=THIS.IblCaption.LEFT-1 
THIS IbiCaption.TOP=THIS .IbiCaption.TOP-1 
THIS.CLICK && se simuleaza click pe container (butonul oval) 


ENDIF 


Parametrii nButton, nShift, nXCoora, nYCoord sunt declarați de noi pentru a 
corespunde unor parametri similari ai evenimentelor MouseDown şi MouseUp (pe scurt, 
nButton=1 înseamnă apăsarea butonului stâng, dacă nShift=0 înseamnă că nu s-a 
menţinut apăsată nici una din tastele Shift, Alt sau Ctrl etc. — vezi, în acest sens, 
documentaţia Visual FoxPro). Parametrul ctl este folosit pentru ca metoda să determine 
„mişcarea” oricărui control transmis ca parametru (excepţie face controlul ibiCaption, 
care este întotdeauna mutat explicit). 


Modul cum aceste metode sunt invocate „dinspre” diferitele controale constituente ale 


containerului este descris în listingul 11.13. 
Listing 11.13. Execuţia metodelor MDn şi MUp 


* Obiect: OvalBtn.shpButon 


* Eveniment: MouseDown 
LPARAMETERS nButton, nShift, nXCoord, nYCoord 
THIS.PARENT.man(THIS,nButton, nShift, nXCoord, nYCoord) 


1 * Eveniment: MouseUp 
LPARAMETERS nButton, nShift, nXCoord, nYCoord 
THIS.PARENT.mup(THIS,nButton, nShift, nXCoord, nYCoord) 


| EEE: 
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; , * Obiect: OvaiBtn. 
Eveniment: MouseDown Eau 
LPARAMETERS nButton, nShift, nXCoord, nYCoord 
: al necesar in caz ca shpFocus este vizibil, 
eoarece, fiind deasupra, va intercepta click-ul de mouse 
THIS.PARENT.mdn(THIS.PARENT.shpButon, nButton, nShift, nXCoord nYCoord) 


* Eveniment: MouseUp 
LPARAMETERS nButton, nShift, nXCoord, nYCoord 
E ne in caz ca shpFocus este vizibil, 

soarece, fiind deasupra, va intercepta click-ul de mouse 
THIS.PARENT.mup(THIS.PARENT.shpButon, nButton, nShift, nXCoord nYCoord) 


E PIE Rice NI VI Obiect: OvalBin.ibiCaption 
LPARAMETERS nButton, nShift, nXCoord, nYCoord 
' este necesar in caz ca se executa click chiar pe text 
deoarece, fiind deasupra, va intercepta click-ul de mouse 
THIS.PARENT.măn(THIS.PARENT.shpButon, nButton, nShift, nXCoord, nYCoord) 


* Eveniment: MouseUp 
LPARAMETERS nButton, nShift, nXCoord, nYCoord 
a este necesar in caz ca se executa click chiar pe text 
deoarece, fiind deasupra, va intercepta click-ul de mouse 
THIS.PARENT.mup(THIS.PARENT.shpButon, nButton, nShift, nXCoord, nYCoord) 


k H ` 
E A Obiect: OvalBtn. Command 
A Nota: evenimentele MouseUp, MouseDown, Click 
nu se trateaza, butonul fiind inaccesibil 
* click-ului de mouse 
LPARAMETERS nKeyCode, nShiftAltCtri 
s-a tastat Enter sau Space, deci echivalent cu Click 
IF lise pecete OR nKeyCode= 32 
$ ENT.man(THIS.PARENT..shpButon, 1,0 
SET CURSOR OFF && se ascunde e ai OE 
WAIT ™ TIME 0.1 && se mentine butonul "apasat" 0.1 secunde 
&& pentru realizarea iluziei optice 
SET CURSORON && se reface cursorul . 
i-a i ARENT mapa lo PARENT ShpButón; 1,0,0,9) 


Evenimentele GotFocus și LostFocus ale butonului Commandl au ca efi 
apariţia, respectiv ascunderea obiectului shpFocus (cel cu chenar punctat, care im a 
a j ie NA ; > ici 

re proprietatea Visible=. F.) pentru a semnaliza, la execuția aplicației, că noul : 
de tip OvalBtn este cel curent. păi control 


Listing 11.14. Codul-sursă pentru evenimentele Got Focus Şi Lost Focus 


A * Obiect: OvaiBtn. 
* Eveniment: GotFocus ncommandi 


* se simuleaza un efect de "focus" (linie punctata imprejur 
THIS.PARENT.shpFocus.VISIBLE=.T. dd 


* Eveniment: LostFocus 
* se anuleaza efectul de "focus" (linie punctata imprejur 
THIS.PARENT.shpFocus.VISIBLE=.F, co 
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ia ana a i aa a 


Se observă în aceste secvențe de cod adresarea relativă a unor controale, prin sinonimele | 
THIS şi PARENT. Deloc neglijabilă este redimensionarea tuturor controalelor constituente, 
în caz că se dorește trasarea pe formularul-client a unor butoane mai mici ori mai mari. În 
acest scop am utilizat metoda Init a containerului. Tot aici se citesc şi interpretează | 


valorile unor proprietăți precum Tit Lu sau Curbura _buton. l 
$ — 
i ~v 
Listing 11.15. Codul-sursă pentru metoda Init : x S 
e a a aaau i 9 
* Obiect: OvalBtn | SA l 
* Eveniment: Init | 9 L E E 
* se ascunde bordura containerului (initial e vizibila, fiind utita la redimensionare) i 2 3 ăia 
THIS.BORDERWIDTH=0 — 2 [utooaPost 
THIS.IbiCaption.CAPTION=THIS titlu = 2 
Ela s 


* alinierea si redimensionarea controalelor 


WITH THIS.shpUmbra pi fe ieie 
ia Tirana i» [oaie] 


WIDTH=THIS.WIDTH 
„HEIGHT=THIS.HEIGHT 


„LEFT=0 
TOP=0 Fi î 
i: 0, AIRPORT RER | l igura 11.19. Formularul TestOvalBtn în faza de proiectare 
Tabelul 11.7. Principalele proprietăţi ale controalelor de pe formularul TestOvalBta 


ENDWITH 


WITH THIS.shpButon 
WIDTH=THIS.shpUmbra.WIDTH-2 SE to N PAPA 5 RA A A A ce NE A se pă aa ao Dei Ac 
„HEIGHT=THIS.shpUmbra.HEIGHT-2 Proprietate Valoare Comentarii 
CP aa: tatLoc IE 
Haa itatislóc Controlul este legat la atributul 15c din 


„LEFT=THIS.shpUmbra.LEFT 
tabela LOCALITATI. 


TOP=THIS.shpUmbra.TOP ` 
„CURVATURE=THIS.curbura_buton 
ENDWITH H PEE EE ENEA E 
WITH THIS shpFocus Control: txtCodPost 
WIDTH=THIS.shpButon.WIDTH-4 l ControlSource | Localitati.ccapost | Controlul este legat la atributul 
cogpost din tabela LOCALITATI. 


Control: ovblnapci 


HEIGHT=THIS.shpButon.HEIGHT-4 
LEFȚ= 2 
TOp=2 BEF a = 
„CURVATURE=THIS.curbura_buton = OyaiBtn l = 
WITH THIS. IbiCaption Curbura buton 30 Z 
WIDTH=THIS.shpButon WIDTH-16 = Control: ovbinapci 
LEFT=THIS.shpButon.LEFT+(THIS.shpButon.WIDTH-.WIDTH)/2 | Class Ova ibin ză 
capt I\<nainte i 
C d 


TOP=THIS.shpButon.TOP+( 


ENDWITH 


WITH THIS.Commandi 
LEFT=THIS.shpButon.LEFT+(THIS.shpButon.WIDTH-.WIDTH)/2 
TOP=THIS.shpButon.TOP+(THIS.shpButon.HEIGHT-.HEIGHT)/2 

- - * Obiect: TestOvalBtn 


aee eeaeee 


THIS.shpButon.HEIGHT-.HEIGHT)/2 
Listing 11.18. Codul-sursă al formularului TestOvalBtn 


ENDWITH == 
* Eveniment: Init 
Pentru a demonstra utilizarea acestor noi controale, am realizat un formular simplu, E rolele ide Zao oale 
CALIT i ăzut cu două butoane „ovale” inate navigării (vezi l il 
legat la tabela LOCALITATI şi prevăzut cu e „ovale” destinate navigării (vezi OPEN DATA "aplicatieldatabasetvinzari” SHARED 
figura 11.19). ie 
” se deschide tabela LOCALITATI 
IF IUSED("localitati”) 
USE locaiitati IN O SHARED 
ENDIF 


* Obiect: TestOvaiBin.ovblnapoi 


* Eveniment: Click 
IF IBOF( 
SKIP -1 
THISFORM.REFRESH 
ENDIF 
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* Obiect: TestOvaiBtn.ovbinainte 
* Eveniment: Click 
IF IEOFQ 
SKIP 
THISFORM.REFRESH 
ENDIF 


Figura 11.20. Formularul TestOvalBtn în faza de execuție 


Clasa Custom şi derivarea ei. Controale „nevizuale” 

Clasa Custom oferă o foarte mare flexibilitate în crearea unor clase derivate a căror 
funcţionalitate constă în principal în codul-sursă, însărcinat cu calcule complexe, diferite 
conversii etc., care de regulă se execută „în fundalul” aplicaţiei”. Un obiect din clasa 

„Custom nu poate conţine vreun control. În schimb, clasei Custom i se pot adăuga orice 
proprietăți şi metode, pe lângă setul minimal existent. Oricare clasă de bază Visual FoxPro, 
în afară de Custom, poate sta la baza unei clase „nevizuale”, cu condiția ca obiectul să fie 
făcut invizibil (Vizible=.F.). 

Un exemplu de prelucrare laborioasă, pe care-l vom dezvolta în continuare, este afişarea 
unui număr (cifră de afaceri, medie a anilor de studii, cotă a Dunării etc.) sub formă de text, 
ca de exemplu „două sute treizeci” atunci când se introduce 230. Pentru a realiza o astfel de 
transformare, pot fi imaginați mai mulţi algoritmi. Totuși, ideea de bază este urmărirea 
fiecărei cifre şi transcrierea echivalentului său fonetic (zero...nouă). Concomitent, trebuie 
sesizată poziţia (unități — care nu se scrie; zeci, sute, mii...) și adăugat după cifră ordinul 
respectiv, la genul adecvat („o mie”, dar „un milion”). Situaţia se complică atunci când este 
vorba de sute de mii, zeci de milioane etc. Mai trebuie ţinut cont şi de particularitățite 
lingvistice („șaizeci” nu „şasezeci”, de pildă), Algoritmul folosit în continuare nu este 
dintre cei mai eficienți, dar îşi atinge scopul. Astfel, numărul, transmis ca parametru, este 
separat în parte întreagă şi parte zecimală, iar fiecare dintre acestea este parcursă, de la 
prima la ultima cifră, şi transcrisă de o procedură specială. 

Clasa, pe care o numim Conversie, are metodele din tabelul 11.8, 


59. „În fundal” este mai curând o figură de stil, întrucât executabilele Visual FoxPro sunt aplicații monofir 
(monoihreaded); este vorba de invizibilitatea instanțelor unei asemenea clase, 


| LOCAL C2L, ord, litere cifracrtt, cifraurm, lungime 
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Tabelul 11.8, Principalele proprietăți ale clasei Conversie 


Metodă | Tip acces | Descriere 
Afla Ordin fai Protected Returnează ordinul cifrei curente („Sute”, „mii”, 
(Param. Pozitie, milioane” etc.) 
Cifra) 
Çi fre_In_Lite re 
(Param. Cifra, 
Pozitie) 


+- TEE 
Protected Transcrie cifra curentă în litere 


s Protected Formează expresia finală, parcurgând numărul ca 

o i e cifre, tratând cu cele două „metode anterioare 

Ae o Mii citră, apoi concatenând cifrele (exprimate în 
itere) şi ordinele corespunzătoare 

Converteste Public Analizează numărul, îl segmentează în parie 


(Param. Numar) 


întreagă şi parte zecimală, le convertește pe fiecare 
i returnează rezultatele în formă concatenată 
Practic, primele trei metode fiind declarate Private, numai metoda Converteste 


va fi accesibilă după instanţierea clasei Conversie. Fără comentarii suplimentare, redăm 
mai Jos codul metodelor. 


Listing 11.17. Codul-sursă al clasei Conversie 


* Metoda: Converteste 
piu R Numar 
AreZecimaie, pint, Zec, intregi, Zecim 

STORE "TO intregi, Penal Di 
IF Numar-INT(Numar)>0 

AreZecimale=.T, 
ENDIF 
IF AreZecimale 

pint = INT(Numar) 

pZec = Numar-INT(Numar) 


ELSE 
pint = Numar 
pZec =0 
ENDIF 


Pint=ALLTRIM(STR(pint)) 
Intregi=THIS transcrie(pint, LEN(pint)) 
IF AreZecimale 
FOR i=1 TO 10 
* aici se calculeaza cate zecimale sunt 
* deoarece e nevoie de numarul exact, pentru functia STR() 
IF ROUND(pZec"104i,;)=INT(ROUND(pZec"104j,i)) 
EXIT 
ENDIF 
NEXT i 
* sunt i+2 cifre in asa-zisa parte zecimala 
pze c= SUBSTRIALLTRIM(STR(pZec,i+2,)).3) 
ecimaie=THIS transcrie 
END (pZec, LEN(pZec)) 
RETURN intregi + IIF('AreZecimale, ™, "virgula " + Zecimale) 


* Metoda: Transcrie 
LPARAMETERS portiune, lungime 


store ™ to litere 
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FOR i= 1 TO lungime 
cifracrt=SUBSTR (portiune, i, 1) 


cifraurm=SUBSTR(portiune, i + 1, 1) 
ord = ȚHIS.Afla_ordin(iungime - i + 1, VAL(cifracrt)) 
C2L = ȚHIS.Cifre_in_Litere(VAL(cifracrt). lungime - i + 1) 
IF LEFT(ord, 3) = "zec” 
DO CASE 
* se rezolva cazurile de forma: unsprezece, paisprezece, saizeci si doi etc... 
CASE cifracrt="1" 
DO CASE 
CASE cifraurm="1" 
unitate = "un" 
CASE cifraurm="4" 
unitate = "pai" 
CASE cifraurm="6" 
unitate = “sai” 
OTHERWISE i 
unitate = THIS.Cifre_!n_Litere(VAL(cifraurm), lungime - i) 
ENDCASE 
IF cifraurm = "0" 
litere = "zece" + THIS.Afla_ordin(iungime - i, VAL(cifraurm)) + "" 
ELSE 
litere = iitere + unitate + ; 
"sprezece " + THIS Afia_ordin(iungime - i, VAL(cifraurm)) + * 
ENDIF 
OTHERWISE 
DO CASE 
CASE cifraurm="0" && cand cifra unitatilor este zero 
litere = litere + C2L + "* + ord 
OTHERWISE 
litere = litere + C2L+""+ord+ "si "+; 
THIS.Cifre_In_Litere(VALi(cifraurm), lungime - i) + "" +; 
THIS .Afla_ordin(lungime - i, VAL(cifraurm)) +" ” 


ENDCASE 
ENDCASE 
izi+i 
ELSE 
litere = litere + C2L +""+ord+"" 
ENDIF 
NEXT i 
RETURN litere 


* Metoda: Cifre_in_Litere 
LPARAMETERS cifra „pozitie 
DO CASE 
CASE cifra=0 
RETURN" 
CASE cifra=1 
DO CASE 
CASE pozitie=1 
RETURN "unu" 
CASE INLISTipozitie,3, 4,6.9,11) 
RETURN "una" 
CASE INLIST(pozitie,7, 10, 13) 
RETURN "un" 
OTHERWISE 
RETURN "unu*" && cazuri exceptionale 
ENDCASE 
CASE cifra=2 


IF pozitie=1 
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. 


RETURN "doi" 
ELSE 


RETURN "doua" 
ENDIF 
CASE cifra=3 
RETURN “trei” 
CASE cifra=4 
RETURN "patru" 
CASE cifra=5 
RETURN "cinci" 
CASE cifra=6 
IF MOD (pozitie,3)=2 && pozitia zecilor (eventual zeci de mii, de milioane etc) 
RETURN "sai" 
ELSE 
RETURN "sase" 
ENDIF 
CASE cifra=7 
RETURN "sapte" 
CASE cifra=8 
RETURN "opt" 
CASE cifra=9 
RETURN "noua" 
ENDCASE 


* Metoda: Afia_Ordin 
LPARAMETERS pozitie, cifra 
DO CASE 
CASE MOD(pozitie,3)= 2 
DO CASE 
CASE cifra=0 
RETURN "" 
CASE cifra=1 
RETURN "zece" 
OTHERWISE 
RETURN "zeci" 
ENDCASE 
CASE MOD(pozitie,3)= 0 
DO CASE 
CASE cifra=0 
RETURN "" 
CASE cifra=4 
RETURN “suta” 
OTHERWISE 
RETURN “sute” 
ENDCASE 
CASE MODipozitie,3)= 1 
DO CASE 
CASE pozitie=" 
RETURN "" 
CASE pozitie=4 
DO CASE 
CASE cifra=0 
RETURN ™" 
CASE cifra=1 
RETURN "mie" 
OTHERWISE 
RETURN "mii" 
ENDCASE 
CASE pozitie=7 


DO CASE 
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CASE cifra=0 —] 
RETURN "" 
CASE cifra=1 
RETURN "milion" 
OTHERWISE 
RETURN "milioane" 
ENDCASE 
CASE pozitie=10 
DO CASE 
CASE cifra=0 
RETURN "™ 
CASE citra=1 
RETURN "miliard" 
OTHERWISE 
RETURN "miliarde" 
ENDCASE 
CASE pozitie=13 
DO CASE 
CASE cifra=0 
RETURN ™ 
CASE cifra=1 
RETURN "biliard" 
OTHERWISE 
RETURN "biliarde" 
ENDCASE 
ENDCASE 


ENDCASE 


Cum se utilizează o asemenea clasă? O aplicaţie simplă foloseşte un formular de felul 
celui prezentat în figura 11.21. 


la tul asa conversie k 


E :-7 Testelasa Conv 


Figura 11.21. Formularul TestConversie în faza de proiectare 


Se observă în figură că instanța clasei Conversie (derivată din clasa Custom) 
afişează un simbol (1) ce permite localizarea sa pe formular. Simbolul corespunde 
obiectului cu numele implicit Conversie1 şi este vizibil numai la momentul proiectării 
formularului, nu și la execuţie (din acest punct de vedere, seamănă cu controlul Timer). 
Formularul mai conţine un control TextBox (txtiIntrare) pentru introducerea unui 
număr, un control Label (lblIesire) pentru afişarea numărului în litere. Controlul 
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txtIntrare are ca proprietate Value=0. 000; controlul lblIesire are proprietatea 
Wraptext=.T. Declanșarea conversiei se face cu butonul cmdTransforma, a cărui 
metodă Click conține doar secvența: 


WITH THISFORM 
„Ibilesire.CAPTION="" 


„ibllesire.CAPTION=.conversie „converteste(.bxtintrare, VALUE) 
ENDWITH 


Rezultatul execuției formularului se vede în figura 11.22. 


3A Test clasa Conversie 


Figura 11.22. Formularul TestConversie în faza de execuție 


11.2.5. Definirea şi instanțierea claselor prin cod 


Clasele Visual FoxPro, fie ele vizuale ori nevizuale, pot fi instanțiate şi prin cod. Două 
sunt instrucțiunile-cheie necesare în acest caz: 


SET CLASSLIB TO <nume-bibliotecă> [ADDITIVE] 

şi 

<variabilă-de-tip-obiect>=CREATEOBJECT (<nume-clasă> 
[,parani [,param2,..]]) 


Comanda SET CLASSLIB are rolul de a stabili referinţa la biblioteca . VCX în care 
este memorată clasa ce se doreşte a fi utilizată. Argumentul <nume-bibliotecă> este 
numele fișierului .VCX, inclusiv calea, în caz de nevoie. Clauza ADDITIVE permite 
încărcarea bibliotecii în memorie fără a distruge alte referințe la biblioteci deja încărcate. 
Invers, descărcarea din memorie a unei singure biblioteci .VCX are loc prin RELEASE 
CLASSLIB <nume-bibliotecă>, iar a tuturor bibliotecilor se face prin SET 
CLASSLIB TO. În funcția CREATEOBJECT (), paranl, param2, ... sunt parametrii 
transmişi (dacă e cazul) metodei Init a clasei care se instanțiază, - 

Astfel, reconsiderând exemplul anterior, există posibilitatea renunţării la trasarea 
instanței Conversiel direct pe formular, urmând a o crea în metoda Load a acestuia, 
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Listing 11.18. Crearea unei instanţe a clasei Conversie 


* Obiect: TestConversie 

* Eveniment: Load 

* referinta la bibiioteca "foxusercontrois" 

SET CLASSLIB TO '^aplicatie\libs\foxusercontrols.vex" ADDITIVE 
* se adauga dinamic formularului proprietatea "Conversiet" 
THISFORM.ADDPROPERTY ("Conversie1”) 
" se creeaza obiectul din clasa Conversie 
THISFORM.Conversie1=CREATEOBJECT("'conversie" 
Ştergerea referinței la biblioteca foxusercontrols.vcu are loc în evenimentu 


Destroy al formularului: 


PARI E T A N E Cc PNG 2 CCC: e ac 3 e EE AE ANC N E Ai SNC i PR RD e 
* se sterge referinta la biblioteca 
RELEASE CLASSLIB 'aplicatie\libs\foxusercontrols.vex" 


Cu CREATEOBJECT () se poate crea o instanţă a unei clase şi într-un program . PRG. 
Oferim cu titlu de exemplu codul din listingurile 11.19. şi 11.20. 


Listing 11.19. Utilizarea unei instanţe a clasei Conversie într-un program 


SET CLASSLIB TO '"Maplicatiellibsifoxusercontrois.vex" ADDITIVE 
9=CREATEOBJECT('conversia") 
?0.converteste(214521.232) 

RELEASE o 

RELEASE CLASSLIB "iaplicatieVibsifoxusercontrois.vex" 


După execuţia programului, ecranul va arăta ca în figura 11.23. 


doua sute paisprezece mii cinci suta doua zeci si unu virgula doua sute trei zeci si doi 


Figura 11.23. Transcrierea în litere a numărului 214521, 232, folosind clasa Conversie 


Listing 11.20. Utilizarea.unei instanţe a clasei intrinsece Form într-un program 


0=*CREATEOBJECT(“Form”) 
o.CAPTION="Demonstratie CREATEOBJECT()" 
o0.HEiGHT=100 

0.WIDTH=300 

0.SHOW 

?"Visua! FoxPro” 

WAIT "" TIMEOUT 5 && se asteapta 5 secunde 
o. RELEASE 


Visual Foro. 


Figura 11.24. Rezultatul execuţiei programului din listingul 11.20 
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Funcția CREATEOBJECT () se poate folosi şi pentru instanțierea claselor non-Visual 
FoxPro (vezi listingul 11.21), dar cu sintaxa CREATEOBJECT (<nume- 
bibliotecă.nume-clasă>), în care numele bibliotecii este cel mai adesea numele 
unei aplicații care recunoaşte mecanismul Automation (numit în trecut OLE). 


Listing 11.21. Crearea unei instanțe Microsoft Excel şi activarea sa 


oExcelApp=CREATEOBJECT("Excel. Application") && creare instanta; Excel trebuie sa fie instalat 

WITH oExcelApp 
Workbooks Add && creeaza un nou un registru de calcul 
„AcţiveWorkbook.Shests(1).Name="Foaia1” && redenumeste prima foaie 
„ActiveWorkbook.Shests(1).Celis(1,1).Value="Hello world!" && afiseaza ceva in casuta At 
Visible=.T. && afiseaza fereastra aplicatiei Excel 

ENDWITH 


Rezultatul este redat în figura 11.25. Excel. trebuie închis manual, nefiind precizate 
instrucțiuni de închidere în listingu! 11.21. 


[sa à 


Figura 11.25. Altă utilizare a funcției CREATEOBJECT |) 


Crearea unei clase non-. VCX 
Limbajul de programare Visual FoxPro dă şi posibilitatea” definirii dinamice a unor 
clase, prin cod-sursă scris într-un program „obişnuit” .PRG. În acest scop, se foloseşte 
comanda DEFINE CLASS, cu sintaxa: 
DEFINE CLASS <nume-clasa-l> AS <nume-clasa-parinte> 
[OLE PUBLIC] 
(PROTECTED | HIDDEN <proprietate-l>, 
<proprietate-2> ...] z 
<obiect>. ]<proprietate> = <expresie> ...] 
ADD OBJECT [PROTECTED] <nume-obiect> 
AS <nume-clasa-2> [NOINIT] 
[WITH <lista-proprietati-obiect>]]... 
[ [PROTECTED | HIDDEN) FUNCTION | PROCEDURE 
<nume-metoda>[_ACCESS | _ASSIGN] 
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„| THIS_ACCESS [NODEFAULT) 


<.,..Ccodul-sursă al metodei...> 
[ENDFUNC | ENDPROC]]... 
ENDDEFINE 


Câteva remarce (echivalenţele cu versiunea „vizuală” sunt date în figura 1 1.26): 

°  OLEPUBLIC (1) se foloseşte când clasa respectivă va fi compilată într-o aplicaţie 
de tip „Automation Server”, adică .DLL sau „EXE, devenind accesibilă altor 

aplicații Windows; 

NOINIT semnifică faptul că, pentru obiectul constituent, nu se va executa metoda 

Init; 

Numele de forma proprietate_ACCESS ori proprietate ASSIGN (2) 

desemnează o metodă care se execută la citirea, respectiv scrierea valorii 

proprietății proprietate; 

NODEFAULT împiedică execuția codului evenimentelor implicite ale obiectelor 

constituente, la adăugarea lor în definiția clasei; 

WITH <lista-proprietăţi-obiect> permite specificarea valorilor pentru 

proprietățile unui control constituent, direct la definirea clasei. Se aplică doar 

împreună cu ADD OBJECT şi numai claselor care pot conţine obiecte: Form, 

Container şi eventualelor derivate. 


CD În acest caz, clasa metodă nouă, numită 
devine OLEPUBLIC 


ORDINECAMPURI_ ACCESS 


Figura 11.26. Echivalentele „grafice” ale unor opțiuni de definire a claselor 


Vom începe cu un exemplu simplu, de clasă nevizuală. Astfel, listingul 11.22 redă un 


program denumit clasa_non_vex.prg. Din parcurgerea codului se deduce şi scopul 
unei asemenea clase. i 


Listing 11.22. Definiţia clasei convMetric 


DEFINE CLASS ConvMetric AS CUSTOM 
NAME="convmetric” 
* conversie centimetri -> inci 
FUNCTION Centimetri_inci 
LPARAMETERS centimetri 
RETURN centimetri/2.54 
ENDFUNC 
* conversie inci -> centimetri 
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FUNCTION inci Centimetri 
LPARAMETERS inci 


RETURN inci*2.54 
ENDFUNC 
ENDDEFINE 


Notă. În astfel de programe, orice cod scris după ENDDEFINE este ignorat, cu 
excepția altor definiţii de clase. De asemenea, în definițiile de clase nu se pot utiliza 
structuri de control. 


Folosirea clasei (instanţierea sa) implică în prealabil încărcarea în memorie a definiției 
clasei, prin comanda SET PROCEDURE (figura }1.27). La terminarea lucrului, definiția 


clasei se va elibera din memorie prin comanda SET PROCEDURE 70. Cât despre 
variabila-obiect (o, în cazul de fară), ea se va distruge la nevoie prin comanda RELEASE. 


is command. 


sat procedure to k:iapl 
O=CREATEOBJECT ("convmatric”) 
70. centimetri inci (16) 


4 i k Fiii y m E i A pea 


Figura 11.27. Instanțierea unei clase non-.VCX 


În listingul 11.23 se creează o clasă numită FormSpec. Este derivată din clasa 
EfectInchidere, căreia i se adaugă un buton de tip OvalBtn, însărcinat cu afişarea 
unui mesaj. Figura ! 1.28 arată o instanţă a clasei FormSpec. 


Listing 11.23. O clasă non-.vCX, derivată dintr-o clasă .vCx 


SET CLASSLIB TO "aplicatielibslfoxusercontrols“ ADDITIVE && pentru Efectinchidere si OvalBtn 


DEFINE CLASS FormSpec AS efectinchidere 
NAME="formspec” 
AUTOCENTER=.T. 
TITLEBAR=0 SPER 
* se adauga un buton oval, cu cateva valori implicite 
* pentru proprietati 
ADD OBJECT ovbGata AS ovalbtn WITH ; 
titlu="ħ<esire", ; 
curbura_buton=50, ; 
HEIGHT=30, ; 
WIDTH=90 
PROCEDURE INIT 
* pozitia noului buton 
THISFORM ovbGata. TOP=THISFORM.HEIGHT-THISFORM.ovbGata.HEIGHT-10 
THISFORM.ovbGata.LEFT=THISFORM.WIDTH-THISFORM.ovbGata.WIDTH-10 
ENDPROC 
PROCEDURE ovbGata.CLICK 
RELEASE THISFORM && varianta la thisform.release 
ENDPROC 
ENDDEFINE 
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11.3. Gestionarea claselor Visual FoxPro 


Mediul de dezvoltare Visual FoxPro ne pune la dispoziție mai multe facilităţi de 
gestionare a claselor. Ca şi clasele, aceste instrumente sunt vizuale (Project Manager, Class 
Browser, Component Gallery) sau nevizuale (diferite comenzi şi funcții). 


11.3.1. Instrumente „vizuale” pentru gestionarea claselor 


Project Manager ne permite să creăm sau să ştergem biblioteci, să adăugăm, modificăm 
sau ştergem clase de tip . VCX. Este posibilă chiar copierea unei clase dintr-o bibliotecă în 
alta, prin drag-and-drop (pentru mutare, se va şterge clasa din biblioteca originală). 

Class Browser este un alt accesoriu util pentru manipularea bibliotecilor, inspectarea 
ierarhiilor de clase, vizualizarea şi manipularea codului-sursă. Se lansează din meniul 
Tools-Class Browser, iar fereastra sa principală se prezintă ca în figura 11.29. 

Cu ajutorul butoanelor din bara de instrumente a Class Browser se pot realiza o mulțime 
de operațiuni asupra bibliotecii curente. O altă bibliotecă poate fi deschisă cu butonul (3) — 
View Additional File, făcând posibile mutări şi copieri de clase. Se poate vizualiza 
şi codul, pentru export eventual către un fişier .PRG, care să fie folosit altundeva în 
comanda SET PROCEDURE TO (cum s-a arătat anterior). 


aeea RS = 
set proceduce to k:Nlapiicatieiprogaicias 
Be=rremteobiect ("formspec™) 
o.shov 


si Ba 


| 


Figura 11.28, O instanţă a clasei FormSpec 


Observaţie: nu întotdeauna fişierele . PRG generate astfel vor funcţiona corect (nu 
funcționează codul claselor vizuale care conţin containere — clasele de bază 
Container sau PageFrame — care mai conţin la rândul lor alte controale). 


Class Browser dispune şi de un meniu contextual, apelabil prin click-dreapta în 

fereastra din stânga. Acesta permite, printre altele: 

e deschiderea unei noi instanţe a Class Browser (New Window) — deoarece folosirea 
butonului Open (2) închide biblioteca precedentă, putem deschide simultan două 
biblioteci distincte în două ferestre distincte; 

e afişarea membrilor PROTECTED sau HIDDEN (vor apărea în fereastra din dreapta 
însoţiţi de o steluță); 
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ə lansarea Class Designer, pentru clasa pe care s-a efectuat click (Modify) — 
fereastra C/ass Designer se deschide în spatele ferestrei Class Browser; 
e ştergerea unei clase din bibliotecă (Remove). 


Eliss Bronser 


Fă 


| Fie name: DR |Iosazsercortrcis- vea. 5 (0 3 
PI Fes of ya: . [Visual Class Lory E N G 
Y i ai Ea E at e er tu acut 


i 


Figura 11.29. Deschiderea unei biblioteci de clase în fereastra Class Browser 


Observaţie: operaţiile de redenumire, redefinire și ştergere trebuie efectuate cu 
infinită precauție, mai ales dacă cineva foloseşte deja respectivele clase într-o aplicație 
sau aceste clase sunt situate undeva la mijlocul ierarhiei. În primul caz, aplicaţia-client 
nu mai recunoaşte clasa ştearsă ori redenumită, în al doilea caz, pe lângă clasa 
„împricinată”, sunt pierdute şi clasele derivate din ea. Remediu: dacă aţi efectuat o 
modificare neintenționată, închideți pur şi simplu biblioteca, răspunzând No la 
întrebarea dacă salvaţi modificările. Nu mai este nimic de făcut dacă aţi acționat între 
timp butonui (9) — se va lansa comanda PACK pe bibliotecă (ea este de fapt o tabelă cu 
metadate“), iar datele şterse vor fi distruse iremediabil. De aceea este bine să aveți 
întotdeauna o copie a ultimei versiuni funcționale a bibliotecii de clase, într-un director 
de rezervă. 


60. Cei experimentați pot încerca folosirea comenzii USE <nume-bibliotecă.VCX> IN 0 SHARED, 
eventual! și a comenzii BROWSE, pentru a vedea cum se memorează definiția unei clase. De fapt, în Visual 
FoxPro cam totul este tabelă: şi containerul . DBC, şi raportul . FRX, și formularul . SCX. 
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bO  emdbinaut a Fac Pasac lasy: container 
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i electinchidere = 


'ovabbtri DEFINE CL455 ovalbtn AS container 


j| Aici se afişează 
obiectele (controalele) 
“constituente, metodele 
“işi proprietățile (într-un 
cuvânt, membrii clasei) 


Aici se afişează codul- 
sursă al clasei (s-a 
apăsat butonul (4)) 


Width = 119 
Height = 35 
BackStyle = 0 
BorderWidth = 1 
BordarCoinr = RGB (0, 0,0} 


a ce n Informații despre |: Erim 
pP clasa curentă sif 


Stamp: 09/15/01 02:28:12 PM. 


Figura 11.30. Bibliotecă .vcx deschisă în Class Browser 


Class Browser este un instrument deschis, fiind accesibil (din fereastra de comenzi, de 
exemplu) prin intermediul variabilei de mediu _obrowser. Această variabilă reprezintă 
de fapt un obiect ce are mai multe metode, cu care poate fi manipulat prin cod. Astfel, dacă 
sunteți „hobby”-işti ai programării, încercați în fereastra Command următoarea linie de cod: 

_obrowser . cmdexport .click() 


Veţi constata deschiderea ferestrei cu codul-sursă (evident, Class Browser trebuie să fi 
fost deschis şi să se fi selectat o clasă în fereastra lui). De aici, codul poate fi salvat prin 
comanda File—Save As.. 


Notă. Dacă Class Browser este închis, atunci _obrowser are valoarea .NULL. 


O metodă interesantă este BinToInt () , ce poate fi folosită drept convertor binar- 
-zecimal ad-hoc. Astfel: 

?_obrowser.bintoint ("1010") va afişa pe ecran valoarea 10. 

Pentru detalii cu privire la mulțimea de metode şi proprietăți ale obiectului 
_obrowser şi utilizarea lor se recomandă consultarea unei documentaţii detaliate Visual 
FoxPro. 

Component Gallery este un instrument asemănător din punctul de vedere al interfeței 
(figura 11.31) cu Class Browser, dar funcţionalitatea sa este diferită. De altfel, se poate 
trece de la unul dintre aceste două instrumente la celălalt, prin acționarea butonului marcat 
cu (1) în figurile 11.30 şi 11.31. În mod de sine stătător, Component Gallery se 
lansează cu Tools-Component Gallery. 
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Component Gallery funcţionează ca un clasor în care sunt grupate şi din care pot fi 

apelate : 

ə cataloage de componente instalate pe sistemul de calcul: lista de componente 
ActiveX, instrumente pentru înregistrarea lor (scrierea informaţiei de identificare 
în baza de date a sistemului, Registry) — catalogul selectat implicit este VFP Main, 
afişat în figură sub forma folder-ului Visual FoxPro Catalog; 

e  folder-ul Favorites, în care programatorul îşi poate crea shortcut-uri ale 
componentelor folosite frecvent, pentru a nu pierde timp cu căutarea prin cataloage; 

e catalogul principal Visual FoxPro, de care ne vom ocupa în continuare, el fiind cel 
mai vast. Cuprinde: 
= asistenții (wizards) pentru: crearea unei baze de date, crearea unei tabele 

(Data), crearea unui formular ori raport cu un anumit aspect predefinit ori 
chiar a unei aplicaţii-schelet cu aplicabilitate într-un domeniu (Templates) — 
fiecare asemenea instrument se apelează prin dublu-click; 

» fişiere conținând documentaţie (Help); 

= instrumente de interes general: programele Calculator, Windows Explorer, 
Regedit, dialogul FindFile (Tools); 

s» clasele fundamentale: (Fox) Foundation Classes: un mare număr de clase deja 
construite, gata de a fi folosite prin simplu drag-and-drop (vezi figura 11.32) 
din această fereastră spre diferite formulare ori proiecte Visual FoxPro. Clasele 
sunt categorisite pe destinaţii. Dacă sunteţi interesaţi de manipularea prin cod a 
acestor clase, bibliotecile lor sunt stocate pe disc în subdirectorul \FFC al 
directorului-gazdă Visual FoxPro€!), De exemplu, aveţi nevoie de numele 
bibliotecii dacă doriţi să o adăugaţi barei Form Controls, ca să aveţi astfel 
la îndemână controalele din Foundation Classes. În catalogul Foundation 
Classes puteți adăuga și clase proprii, dacă deschideţi unul din folderele- 
-categorie şi alegeți New Item... din meniul contextual (click-dreapta). 


“visual FoxPro Catalog (Foundation Classes) > Caini 


i -Q Favorites 
EH Visual FoxPro Catalog 
TJ Data 


i: Ban [Foundation Classes 


(1) Class Browser 


Foundation Classes : 
14 demis): 


Figura 11.31. Interfața accesoriului Component Gallery 


61. Puteţi afla acest director-gazdă cu funcția HOME () . 
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Notă. Majoritatea acestor clase încep cu caracterul liniuță de subliniere (underscore) 
pentru a arăta că sunt derivate toate din clasele unei biblioteci numite base sek. 
Dacă veți deriva o asemenea clasă pentru nevoi proprii, e bine să stabiliți o conventie 
clară de denumire (de exemplu, numele clasei să înceapă cu două caractere underscore) 
Dacă doriți să adăugați o proprietate sau metodă generică tuturor claselor care încep cu 


i j ; 
»_ > € bine să o faceți în clasele bibliotecii base: ă i 

S t se; trăsătura se va propaga, în v 
moştenirii. E ' Fid dili 


E] Data Navigatier: 
CI Data Query 


E 


E Dialogs 


Figura 11.32. Instanţierea clasei Clock prin plasare pe un formular 


În mod oarecum similar cu Class Browser, o referință la Component Gallery este 


memorată în variabila de mediu gallery. Încercaţi următoarea comandă în fereastra de 
comenzi: DO (_ GALLERY), i 


11.3.2. Funcții pentru gestionarea claselor 


O seamă de funcții Visual FoxPro se adaugă comenzilor CREATE CLASS „ MODIFY 
CLASS, REMOVE CLASS, Aceste funcții sunt utile pentru aflarea unor informații cu 
privire la bibliotecile şi clasele aflate în memorie. 
| Funcţia  AVCXCLASSES (<nume-tablou>, <nume-bibliotecă>) realizează 
interogarea fişierului-bibliotecă . VCX şi plasarea într-un tablou a unor informaţii utile cu 
privire la clasă. Tabloul are atâtea linii câte clase are biblioteca; fiecare linie are 1 1 coloane 
ale căror semnificaţii sunt redate în tabelul 11.9. Rezultatul funcției este chiar numărul de 


linii, dar acesta interesează mai puţin; important este tabloul însuşi. Dacă nu există, el este 
creat şi populat automat. 


Tabelul 11.9. Coloanele tabloului populat de funcția AVCXCLASSES () 
Numele câmpului 
din tabela .VCX 
BASECLASS 

CLASS 


Informaţii cu privire la clasă 


Numele clasei 
Numele clasei de bază 
Numele clasei-pârinte 
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F p Sa ` Numele câmpului 
Coloana Informații cu privire la clasă din tabela .VCX 
LA Calea relativă şi numele Hşierului-bibliotecă CLASSLOC 
5 Calea relativă şi numele fişierului-pictogramă al clasei RESERVEDA 
6 Calea relativă şi numele fişierului-pictogramă pentru o clasă de RESERVED5 
tip Project Manager sau Class Browser 
7 Valoarea proprietății ScaleMode pentru clasele vizuale: RESERVEDĂ 
Pixels sau Foxels 
8 Descrierea clasei (furnizată de utilizator la definirea clasei) | RESERVED? 
9 Calea relativă şi numele fişicrului-header referit prin directiva RESERVEDS 
3 INCLUDE în codul clasei (dacă există) | 
10 Informaţii despre clasă, definite de utilizator ' USER 
tł .T. dacă clasa a fost declarată OLEPUBLIC, . F. în caz contrar | RESERVED2 


Funcția ACLASS (<nume-tablou>, <nume-obiect>)obține informații privind 
originea obiectului <nume-obiect>: clasa din care face parte, clasa-părinte, clasa 
„părinte a părintelui” etc., până la terminarea ierarhiei de clase. Informațiile sunt scrise 
într-un vector cu atâtea elemente câte clase sunt în ierarhie. 

Funcția AMEMBERS (<nume-tablou>, <nume-obiect>| <nume-clasă>) 
[, 1 | 2]) memorează într-un tablou: 

e numele tuturor membrilor unei clase sau obiect, dacă ultimul argument este 1 — 
rezultă un tablou cu două coloane, a doua arătând tipul de membru: proprietate, 
metodă sau obiect; 

e numele obiectelor constituente ale unuj obiect de nivel mai înalt (o aplicabilitate 
imediată este numele tuturor controalelor de pe un formular — vezi listingul 11.24), 
dacă ultimul argument este 2; 

ə numele proprietăţilor unui obiect, dacă se omite ultimul argument. 


Listing 11.24. Exemplu de utilizare a funcţiei AMEMBERS () 


„a aaa e ap a ta SE ae e agate E a e aie Ei E ae poa 
“ Demonstratie AMEMBERS) — se lansează un formular oarecare 

* Varianta 1 

DO FORM "k:\aplicatieforms\testcategpicker" 

oForm=_SCREEN.ACTIVEFORM 

=AMEMBERS(aMembriFormular,oForm) 

oForm.RELEASE 

DISPLAY MEMORY 

* Varianta 2 

DO FORM 'kiaplicatielformsltestcategpicker” 

oForm=_SCREEN.ACTIVEFORM 

=AMEMBERS(aMembriFormular,oForm, 1) 

oForm.RELEASE 

DISPLAY MEMORY 

* Varianta 3 

DO FORM "kiaplicatieYformsitestcategpicker" 

oForm=_SCREEN.ACTIVEFORM 

=AMEMBERS(aMembriFormular,oForm,2) 


oForm. RELEASE 
DISPLAY MEMORY 
RELEASE ALL 
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IOFORM Pub 0 NULE 
AMEMBRIFORMULAR 
Pub A 
(4 C “ACTIVECONTROL" 
(2 C “ACTIVEFORM* 
l 3) 6. “ALWAYSONBOTTOM” 
c “ALWAYSONTOP" 
i c “AUTOCENTER” 
( c “BACKCOLOR" 
( c "BASECLASS" 
{ c “BORDERSTYLE” 
i Ê "EUFFERMODE” 
{ c "CAPTION" 
OFORM Pub Q NULL 
AMEMBRIFORMULAR 
Pub A 
í i p, c “ACTIVATE” 
, Ç “Event” 
(2 9 č “ACTIVECONTROU 
(2, J c “Propeny” 
( 3 3) c “ACTVEFORM” 
(3 2) t "Property" 
d, 1) c “ADDOBJECT" 
E a 72 e "Method" 
OFORM Pub o NULL 
|AMEMBRIFORMULAR . 
Ei Pub A 
: c “CATEGPICKER1" 
(2 c "DATAENYIRONMENT” 


9 variables defined, 41 s used 
1015 variables available 
Figura 11.33. Rezultatele celor trei comenzi DISPLAY MEMORY din listingul anterior 


Funcţia AINSTANCE (<nume-tablou>, <nume-clasă>)  memorează într-un 
tablou numele instanțelor unei clase specificate (vezi listingul 11.25 și figura 11.34), 
Returnează numărul de instanţe; dacă nu sunt, funcţia returnează rezultatul zero. 


Listing 11.25. Exemplu de utilizare a funcţiei AINSTANCE () 


* Exemplu AINSTANCGE() i 

SET CLASSLIB TO "aplicatieVibsYfoxusercontro!s" ADDITIVE 
oButon 1=CREATEOBJECT("'ovalbtn”) 
oButon2=CREATEOBJECT("ovalbtn”) 
=AINSTANCE(Catelnstante, “ovalbtn”) 

DISPLAY MEMORY 

RELEASE CLASSLIB "aplicatieVibsWoxusercontrols* 
RELEASE oButont, oButon2 f 


CATEINSTANTE 
Pub A 
(1) G “obutonţ* 
(2 c "obuton2” 


Figura 11.34. Rezultatul comenzii DISPLAY MEMORY din listingul anterior 


În încheiere, să mai spunem că funcția AGETCLASS (<nume-tablou>) afişează 
dialogul Open Class şi memorează în tablou numele complet al fişierului-bibliotecă şi al 
clasei pe care le-a ales ntilizatorul. Este destul de asemănătoare cu funcțiile GETFILE (), 
GETPRINTER (), APRINTERS() şi GETPICT(). Pentru detalii, se va consulta 
documentația Visual FoxPro, 
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11.4. Crearea de biblioteci DLL cu Visual FoxPro 


Un proiect Visual FoxPro care conține clase poate fi transformat ușor în server 
Automation (altă denumire este de server COM), adică în componentă care să ofere servicii 
altor aplicații. 

Se doreşte a se pune clasa Conversie, a cărei realizare a fost descrisă mai sus, la 
dispoziţia oricărei aplicaţii de pe sistem, astfel încât aceasta să poată apela metoda 
Converteste şi deci să afişeze un număr în litere. O bună soluție este crearea unei 
biblioteci DLL care să includă respectiva clasă. Primul pas constă în crearea unui proiect, la 
care se atașează doar biblioteca FoxUserControls, ce conţine clasa Conversie. 
Numele proiectului va deveni numele bibliotecii DLL, de aceea e bine să alegem un nume 
sugestiv, să zicem FoxUserTools.pjx. Trebuie să reținem că nu toate clasele unei 
biblioteci VCX vor fi compilate într-o bibliotecă DLL, ci numai acelea pentru care s-a 
specificat tipul OLE Public. În acest scop, deschideţi clasa Conversie, apelaţi 
Class—Class Info.. şi bifați căsuţa OLE Public (vezi mai sus figura 11.10). 

Prin acționarea butonului Build din fereastra Project Manager, se deschide dialogul 
pentru stabilirea opțiunilor de compilare (figura 11.35). 


FTT Display Eros? 

„| uniti Bul i 

-|. [7 Regenerate Component IDs" 
n zt t 5 să E 


Figura 11.35. Stabilirea configurației de compilare 


Alegeţi opțiunea Single-threaded COM server (dll) şi apăsaţi OK. După ce precizați un 
nume al fişierului . DLL destinație, va începe generarea bibliotecii. Cu această ocazie, se 
introduc şi informațiile de identificare a bibliotecii în baza de date a sistemului, numită 
Registry. 

O bibliotecă DLL {Dynamic Link Library) conţine secvenţe de cod cu multiple destinaţii 
(proceduri, funcții sau... definiţii de clase), care pot fi încărcate în spaţiul de memorie al 
unui program executabil apelant, fie acesta conceput cu Visual FoxPro sau cu orice alt 
limbaj. De aceea, ele se mai numesc şi componente in-process. Prin contrast, programele cu 
extensia .EXE sunt componente ou/-of-process, întrucât se execută într-un spațiu de 
memorie separat de cel al programului apelant (s-a demonstrat mai sus crearea şi 
manipularea unei instanţe a programului Excel, în care programul EXCEL . EXE joacă rolul 
de server out-of-process). 
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Încărcarea unei funcții („pe stil vechi”) dintr-o bibliotecă DLL se face prin comanda 
DECLARE <nume funcţ ie> IN <nume-bibliotecă> <listă-de- 
parametri>. Ulterior, funcția de bibliotecă se apelează ca o funcție obișnuită Visual 
FoxPro. Pentru a. „descongestiona” memoria după folosirea bibliotecii, trebuie dată 
comanda CLEAR DLLS (vezi listingul 11.26). 


Listing 11.26. Apelul unor funcții Windows dintr-o bibliotecă DLL 


RRC RE E RICĂ AE AE SE E IEE AE E RE RE ERE EREI ARRP RARA REPARE REEE E aere eat 


* Exemplu de ape! biblioteca DLL 
* pentru formatele functiilor GetComputerName si respectiv GetUserName 
* consultati documentatia Windows SDK (MSDN) pe disc sau pe Internet 
* http://msăn.microsoft.com/library/ 
LOCAL UserName, ComputerName 
LOCAL Buffer_ComputerName, Lungime_Buffer_ComputerName 
LOCAL Buffer_UserName, Lungime_Buffer_UserName 
Buffer_ComputerName=SPACE(20) 
Lungime _Buffer_ComputerName=20 
Buffer_UserName=SPACE(20) 
Lungime_Buffer_UserName=20 
* Declar functia GetComputerName cu alias-ul "W" (in caz de Unicode, diacritice s.a.) 
* Cere transmiterea de pointeri la ambele argumente (transmitere prin adresa sau referinta) 
DECLARE GetComputerName IN kerne!32 AS GetComputerNameW STRING @ , LONG @ 
* Declar functia GetUserName cu alias-ul "W" (in caz de Unicode, diacritice s.a.) 
* Cere transmiterea de pointeri la ambele argumente (transmitere prin adresa sau referinta) 
DECLARE GetUserName IN advapi32 AS GetUserNamewW STRING @ , LONG 8 
* invoc functia GetUserName 
=GetUserNameW(8 Buffer_UserName, @ Lungime_Buffer_UserName) 
* sirul se termina cu nulistring, pe care-l indepartam 
UserName=LEFT(ALLT(Buffer_UserName),LEN(ALLT(Buffer_UserName))-1) 
* invoc functia GetComputerName 
=GetComputerNameW (E Buffer_ComputerName, @ Lungime_Buffer_ComputerName) 
* sirul se termina cu nullstring, pe care-i indepartam 
ComputerName=LEFT(ALLT(Buffer_ComputerName),LEN(ALLT(Buffer_ComputerName))-1) 
CLEAR DLLS && nu mai am nevoie de functiile de biblioteca 
MESSAGEBOX('Sunteti " + UserName +", la statia " +CompuierName, 64,"Informatie") 


Figura 11.36. Rezultatul execuţiei programului din listingul 11.26 


Astfel se procedează pentru funcţii. O clasă compilată într-o bibliotecă DLL nu mai are 
nevoie de comanda DECLARE, ci poate fi invocată direct prin: 

<variabilă>=CREATEOBIECT (<nume-bibligtecă>.<nume-clasă>) 

lată un exemplu în figura 11.37. 

Totuşi, la ce ne foloseşte o astfel de mostră de program: din moment ce clasa rezidă 
într-o bibliotecă .VCX, nu se putea oare crea o instanță a sa în manieră tipică Visual FoxPro, 
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cu comanda SET CLASSLIB urmată de apelul funcției CREATEOBJECT () ? Ba da, dar 
puterea bibliotecilor DLL constă în oferirea de componente „gata făcute” nu exclusiv 
aplicaţiei „creatoare”, aici Visual FoxPro, ci oricărei aplicaţii, în orice limbaj care suportă 
mecanismul Automation. lar exemplul din figura 11.38 arată exact acest lucru, folosind 
limbajul Visual Basic (funcția CREATEOBJECT () are în Visual Basic exact rolul pe 
care-l are în Visual FoxPro). 


. o=>createobject ("foxusertoois.conversiet) 
20 .converteste (12354,236) 


Figura 11.37. Apelui metodei Converteste a clasei Conversie din biblioteca 
FoxUserTools.d1l, după crearea unei instanțe a acesteia 


Immediate =i i 


set o*createobiect {"foxusertools, conversie”) 
?t ypanane (0) 

Object 

70 .convarteste (245188.215) 

doua sute patru zeci si cinci mii una suta opt zeci si opt virgula doua sute cincisprezece 


Figura 11.38. Apelul din fereastra Immediate (Visual Basic) a metodei Converteste a 
clasei Conversie din biblioteca FoxUserTools.dll 
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Din perspectiva contactului cu utilizatorul, punctul de plecare sau poarta către 
funcționalitatea practică a unei aplicații, prin obiecte cum sunt formularele sau rapoartele, 
presupune existența unui element de. interfață care să concentreze şi să structureze căile de 
acces în „universul” sistemului. În etapa de dezvoltare, instrumentul Project Manager 
asigură navigarea şi accesul la structurile interne ce formează aplicaţia. În etapa de 
exploatare, cel mai des folosite instrumente de acces şi navigare către sau prin structura 
funcțională a aplicației sunt meniurile însoţite eventual de bare de instrumente 
personalizate. Meniul integrează de fapt toate celelalte elemente de interfață și defineşte 
pentru utilizator trăsăturile sau caracteristicile generale ale aplicaţiei. 


12.1. Crearea meniurilor folosind generatorul de meniuri 
al Visual FoxPro iscir de il 


Pentru construirea unui meniu nu ne vom „adânci” în sintaxe de comenzi specifice, ci 
vom merge pe o cale mult mai simplă, propusă de mediul VEP prin instrumentul Menu 
Designer (asistentul de proiectare a meniurilor). Este adevărat, la „începuturile” 
FoxPro-ului, singura modalitate de a defini opțiunile unui meniu, modul de structurare a 
acestora şi acțiunile ce urmau să aibă loc la selectarea uneia dintre ele era scrierea unui 
program în care se invocau comenzi de genul DEFINE PAD, DEFINE POPOUP, 
DEFINE BAR, ON SELECTION BAR şi altele de acest gen. Mai târziu a fost integrat în 
FoxPro un strămoş al generatorului de meniuri de astăzi şi anume Menu Bui 1der, a cărui 
sarcină era crearea programului-sursă pentru definirea meniului şi compilarea lui. În Visual 
FoxPro, instrumentul Menu Designer are aceeași sarcină ca și predecesorul lui, 
rezultatul final concretizându-se în principal într-un fişier cu extensia .MPR (programul- 
-sursă) şi un fişier .MNX (forma compilată), 

Procesul de creare a unui meniu pentru întreaga aplicației sau doar pentru o componentă 
a ei poate fi structurat în cinci etape: 


l. Planificarea şi proiectarea meniului, adică luarea deciziei asupra structurii gene- 
rale — sau, altfel spus, „care sunt submeniurile şi opțiunile acestora ?”, 
"2. Crearea efectivă a meniurilor şi submeniurilor, adică declararea, folosind Menu 


Designer, a titlurilor opțiunilor din bara principală, a opţiunilor corespunză- 
toare submeniurilor ş.a.m.d. 

3, Specificarea acțiunilor ce vor fi declanșate prin selectarea opțiunilor meniului, 
care ar putea însemna afişarea formularelor, rapoartelor sau lansarea în execuţie a 
unor proceduri ce realizează sarcini specifice. În plus, se poate include o secvență 
de cod pentru iniţializarea mediului înainte de activarea propriu-zisă a meniului 
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sau a unei secvențe de cod pentru restabilirea — „curățarea” — mediului după 
părăsirea meniului (dezactivarea/ştergerea lui din memorie). _ 

4. „Generarea programului (a secvenței de comenzi DEFINE PAD, DEFINE 
POPOUP, DEFINE BAR, ON SELECTION BAR corespunzătoare compo- 
nentei meniului din cadrul proiectului aplicaţiei), 

S; Rularea şi testarea programului generat anterior. 


12.1.1. Planificarea meniului aplicației 


Prin urmare, înainte de a începe propriu-zis construirea meniului aplicației, este 
recomandabil, la fel ca în cazul formularelor sau rapoartelor, schițarea submeniurilor 
principale şi opțiunilor acestora, din cel puţin două motive: (1) structurarea opțiunilor din 
meniu în aşa fel încât să reflecte o anumită logică funcțională, uşor de înțeles din partea 
utilizatorilor care vor exploata efectiv aplicaţia; şi (2) luarea în considerare a tuturor 
funcțiilor aplicaţiei, pentru a se evita omiterea accidentală a unei componente, compilate şi 
deci parte integrată în sistem, dar imposibil de accesat. f PR: 

Fără a avea pretenţia că ar fi cea mai bună structură funcţională (o mare importanță aici 
o are partea de analiză şi proiectare care ar trebui să evidențieze principalele funcţii sau 
„cazuri de utilizare” ale sistemului), propunem următorul format pentru meniul principal al 
aplicaţiei dezvoltate în cursul capitolelor anterioare: 

GQ  meniul-bară va fi compus din următoarele submeniuri: E | 

+ Nomenclatoare — care va permite accesul către formularele ce actualizeză datele din 
tabelele de referință cum sunt Persoane, Clienti sau Produse; FE, 

> Operațiuni — care va permite accesul la formularele responsabile de principalele 
tranzacții economice deservite prin aplicație, adică facturări şi încasări; 

e  Liste/Informaţii — care va cuprinde o serie de opțiuni prin care utilizatorul va avea 
acces la informăţiile necesare din sistem. Prin urmare, vor fi invocate în primul rând 
rapoartele predefinite (parametrizate sau nu) sau alte obiecte grafice cum ar fi, de 
exemplu, diagramele tip chart; fa E 

e  Administrare/Configurare — care va fi alcătuit dintr-o serie de opțiuni ce vor avea 
legătură cu întreținerea bazei de date (crearea copiilor de siguranță/arhivarea şi refa- 
cerea/restaurarea bazei de date şi indecşilor — problemă acută în VEP) şi 
configurarea mediului sofware/hardware în care rezidă aplicaţia (reţea, impri- 
mantă etc.); Ta 

èe Asistenţă — care va constitui o punte către sistemul de help al aplicației; 

è Ieşire — care va desemna căile prin care se poate părăsi aplicația. 

Schema de bază a meniului principal ar putea arăta ca în figura 12.1. 


| Persoane | Pacturari [Lista clienti | Admin. BD | Continut şi index ] 

perne ——— [incasat — fusa tacut conta nega — 

Eein | Rapon vanzari | Config Imprimanta | 
| [ate normati] 


Figura 12.1. Schema iniţială a meniului principal 
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12.1.2. Crearea/definirea meniului principal și submeniurilor corespunzătoare 


Lansarea generatorului de meniuri al VEP se poate face în două moduri. 


Pe de o parte, 
din Project 


Manager se poate selecta din tab-ul Other nodul Menus (în cazul în care 
se dorește modificarea unui meniu deja creat, se expandează acest nod şi se selectează 
numele acestuia) şi apoi se „aâpasă” butonul New (sau Modify, pentru un meniu existent). 


Pe de altă parte, se poate executa comanda CREATE MENU din fereastra de comenzi a 
VFP. 


Atenţie! Din fereastra ce se lansează după apelarea butonului N 


ew se va merge pe 
varianta Menu. 


Lucrul cu instrumentul Menu Designer este relativ simplu, principala dificultate 
(oarecum) fiind dispunerea viitoarelor opţiuni din bara principală într- 


o coloană verticală şi 
nu orizontală (vezi figura 12.2). 


Admin/Contigurare 
Asistenta 


Titlurile opţiunilor (pad- 
urile) barei de meniuri 


Figura 12.2. Lansarea instrumentului Menu Designer 


Definirea efectivă a meniului începe mai întâi cu bara 
Opţiuni, Liste...), care va înlocui în momentul execuției meniul sistem (File, Edit, 
Vien...). Astfel, în coloana Prompt a Menu Designer-ului se vor consemna titlurile 
care vor desemna opțiunile ce vor forma meniul principal, iar în coloana Result se va 
specifica ce acțiune va avea loc ca urmare a selecției fiecărei opțiuni, Lista derulantă din 
fiecare linie a coloanei Result poate lua una dintre următoarele valori: 

© Submenu- permite crearea unui submeniu care va fi activat în urma selecției res- 

pectivei opțiuni (în coloana din dreapta va apărea un buton Create, prin „apă- 
sarea” căruia se va deschide calea către specificarea unui submēniu); 
Command — permite specificarea în coloana din dreapta a unei comenzi VFP 
obişnuite, care va fi executată în urma selectării opțiunii curente; 


Procedure — permite specificarea codului-sursă pentru un program VFP care va 
fi lansat în execuție ca urmare a selectării respectivei opțiuni (în colo 


pricipală (Nomenclatoare, 


ana din dreapta 
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va apărea un buton Create, acţionarea acestuia determinând lansarea unei ferestre 
de editare cod-sursă); 
ə Pad Name — numele intern al unei opțiuni. 


Revenind în contextul exemplului nostru, în coloana Prompt se vor nu o 
Nomenclatoare, Operatiuni, Liste/Informatii, Admin 


gurare, Asistenta, Iesire. Pentru toate aceste titluri se va specifica E 
rezultat Submenu, cu excepţia opțiunii Iesire, pentru care se va specifica a r 
pe coloana a treia se va scrie deocamdată instrucțiunea SET SYSMENU TO o a i 
rațiuni de simplificare a procesului de testare-depanare. Această jeleu la ete lia 
revenirea la meniul principal al sistemului Visual FoxPro. Ulterior, în faza ina o 
înlocui această comandă cu instrucțiunea QUIT, care determină părăsirea efectivă ş 
imediată a mediului VFP. l | i 
a pe nivelul următor în definirea unei opțiuni din meniul-bară se face o 
butonul CREATE sau EDIT (pentru revenirea într-un submeniu creat anterior). In i 
combinată situată în colțul dreapta-sus a Menu Designer-ului şi etichetată Menu Paa 
va apărea numele submeniului ale cărui opțiuni sunt create/editate la un RE aa 
Această listă permite revenirea pe nivelul (nivelurile) anterioare. Prin urmare, : a 
printre submeniurile aplicației se poate realiza în Menu Designer P 
CREATE/EDIT (în adâncime) şi prin lista Menu Level (înapoi) — vezi figura 12.2. 


e 


“Menu Bar 7|: 


Nomenclatoare 


Operatiuni Submenu 
; E Listežinformati Submenu 
Admin/Configurare Submenu 
Asistenta „ Submenu 


lesire Command 


Leia Prompt. a Zi Besut 
zj Facturari Submenu 
„FE! Incasari - Submenu 


În cal 


a ‘inset Bari | 
|. "oalele | 


| 
i 
| 


= LAA Previevi =] 


Figura 12.3. Calea de navigare de pe un nivel superior pe un nive! inferior 
(meniu — submeniu) şi invers 


Ținând cont de aceste precizări, se pot implementa cu uşurinţă în Menu Designer 
specificaţiile din tabelul de 12.1. 
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Tabelul 12.1. Specificaţii pentru meniul aplicației 


Titlu opțiune sau submeniu Rezultat 
Meniul-bară | Submenu | “a 
Nomenclatoare Submenu | 
| Persoane Command | do form frmPersoane | 
Produse Command | do form frmProduse 
Clienti Command | do form îrmClienti _ 
Operatiuni Submenu ; 
Facturari Command | do form FrmLiniiFact 
Incasari | Command WAIT WINDOW "Under construction”! 
Liste/Informatii | Submenu J 
Lista clientilor Command |_report form rep_clienti preview E 


|______ Lista facturilor | Command report form rep facturi clienti preview 
i Lista vinzarilor pe clienti | Command | report form rap_dinamic preview 


i Informatii din facturi Command | do form frmtree list 

Administrare/Configurare | Submenu 
Administrare BD Submenu i 

i Refacere indecsi Command | do refacere indecsi 

Verificare indecsi Command | do restrictii referentiale macro 

Copie de siguranta BD | Command | WAIT WINDOW "Under construction!" 

Restaurare BD Command | WAIT WINDOW "Under construction" | 


Configurare retea Command | WAIT WINDOW "Under construction" 
Configurare imprimanta | Submenu ii 
Imprimanta Bar # |__mfi_sysprint 
Pagina | Bar # mfi pgset 
la Asistenta Submenu 
Continut şi index Command | HELP au] 
[e Despre - | Command | WAIT WINDOW "Under construction” 
|___ Jesire Command | SET SYSMENU TO DEFAULT 


Se poate trage cu ușurință concluzia că specificațiile de mai sus sunt caracteristice unei 
etape intermediare în dezvoltarea aplicației; opțiunile cu rezultatul WAIT WINDOW 
"Under Construction” semnifică faptul că „încă se mai lucrează” şi pot fi incluse 
eventual într-un prototip de evaluare-testare din partea utilizatorilor, nicidecum în faza 
finală de livrare. 


12.1.3. Căi suplimentare de acces de la tastatură la opțiunile din meniu 
şi separarea opțiunilor în cadrul submeniurilor 


In faza de proiectare-planificare, pentru o împărțire judicioasă a opțiunilor, se poate cere 
împărțirea acestora în grupuri chiar în interiorul submeniului din care fac parte, fără a se 
recurge la noi subniveluri (nu se recomandă crearea a mai mult de trei-patru niveluri 


Meniuri în MFP 


consecutive). De asemenea, pentru apelarea rapidă a opțiunilor celor mai des folosite se 
recomandă să li se asocieze combinaţii de taste cu ro! de chei de acces. d 
Accesul opțiunilor din meniu se poate face în două moduri: (a) la nivelul i Aaa 
(b) shortcut-uri de la tastură, fără să fie necesară navigarea până la nivelul submeniului din 
țiunea vizată. | Ă 
ii ia chei de acces a unui submeniu sau opțiuni se realizează introducând 
simbolurile „A<” înaintea literei care va juca acest rol. Spre exemplificare, vezi figura 12.4. 


ptions_ <> Menu levet: 
al Menu Bar * 


: z (a) 


| AcOperatitini Submenu 
Ia | NeListezir“„cenatii Submenu 


KAdmn:" Janig Submenu i : 
Asistenta Submenu eiga. 
B<ceske Command set sysmenu to defa > i | 

5 Delete., | f 


Preview 


Figura 12.4. Transpunerea unei chei de acces în bara de meniu ia „runtime 


Definirea unei combinații de taste care să acceseze direct o opțiune din meniu, fără să fie 
necesară o navigare explicită, se realizează astfel (vezi figura 12.5): 

1. Se selectează numele opțiunii respective (coloana Prompt). | 

2. Se acţionează butonul din coloana Options pentru activarea dialogului Prompt 


Options. Ai i îi 
3, Se selectează căsuţa Key Label şi se apasă combinația de taste dorită pentru 

activarea respectivei opțiuni. „De E | DA 
4. În căsuţa Key Text se specifică textul care va însoți în meniu numele opțiunii 


respective. 
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A<Produse 
A<Cienti 
Test 


a CCTaL-a 
E [ETRA 


A | 
Figura 12.5. Crearea unui shortcut de la tastatură şi transpunerea „runtime” 


Împărţirea în grupuri distincte a opţiunilor care formează un submeniu este posibilă 
introducând în fereastra de editare a Menu Des igner-ului a unei opțiuni suplimentare 
pentru care este precizat ca titlu (în coloana Prompt) şirul „\-“, după cum se exemplifică 
în figura 12.6. 


15 Microsoft Visual FoxPro 
"Nomenclatoare „+ Operatiuni Y Liste Informatii 
E: Lista clientilor 
E Lista facturilor” 


- ` + Options? Menu level n =. 
Command teport form rep_clier af Listeinfor Yi: 


T : “Însait Sa. l 
Da 


Lista \<clientilor 
Lista \<facturitor Command report ferm rep_fact 
Lista S< vinzari clienti Command tepoit form rap_dina 

X Subrmenu [=] tiaia] a- 


\<informati despre fa Command do form Saplicatieife 


E] 


Figura 12.6. Separarea opțiunilor unui submeniu 
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12.1.4. Includerea în meniul aplicației a unor submeniuri system 


În anumite situații, pentru definirea unor sarcini specifice ale aplicației este necesară 
„Împrumutarea” unor funcționalități proprii sistemului Visual FoxPro. În exemplul nostru, 
pentru definirea parametrilor de configurare ai imprimantei sau pentru definirea unor 
parametri referitori la aşezarea în pagină este utilă invocarea în meniul aplicaţiei a 
opţiunilor corespunzătoare din meniul system al mediului Visual FoxPro. 

În acest sens, dacă revenim în tabelul 12.1, vom observa că opțiunile 

AdministrareNConfigurare-Configurare Imprinantă—Imprimanta Și 

AdministrareNConfigurare—Configurare Imprimantă—Pagina 
au ca rezultat Bart cu _mfi_sysprint, respectiv mfi pgset. 


ri x] 

Eiren = Options i 
mii „sysprint j | OngOwdarnk | 
[mi pgset | ie pui i 


i at 
1E Insert Bar., i 


_Delae. J] 


Menu level- = = | 


Figura 12.7. invocarea unor meniuri system ca opțiuni ale meniului aplicației 


Cele două variabile nu reprezintă altceva decât numele intern al opțiunilor 
File=Print şi File—Page Setup ale meniului standard VFP (_msysmenu). 

În MSDN Library — Menu menu, Visual FoxPro system (internal) pot fi găsite numele 
interne ale tuturor opțiunilor şi submeniurilor care formează meniul system VFP. De 
asemenea, aceste nume interne pot fi afişate şi folosind funcţia SYS (2013). 


12.1.5. Dezactivarea opțiunilor dintr-un meniu 


La execuție, există situaţii în care este necesară dezactivarea unor opțiuni sau 
submeniuri, sau activarea acestora numai în funcție de anumite condiţii. În general, acest 
lucru este util atunci când se construieşte o politică de securitate pentru aplicaţie, astfel încât 
activarea opțiunilor care formează meniul să fie făcută în funcție de numele utilizatorilor 
care lucrează la un moment dat sau în funcție de privilegiile/drepturile asociate acestora. 

În exemplul nostru, ar fi necesară o astfel de funcționalitate pentru a se evita afişarea 
mesajelor Under construction pe care le-am asociat iniţial opțiunilor aflate încă „în 
lucru”, 

Această funcționalitate poate fi realizată întorcându-ne în fereastra Prompt Option 
apelând-o pentru opțiunile vizate să aibă un asemenea comportament. În această fereastră se 
poate remarca existența rubricii Skip For. Dacă expresia specificată în acestă rubrică 
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este evaluată ca fiind . T., respectiva opțiune va fi dezactivată; dacă însă este evaluată ca 
fiind . F., opțiunea va fi activată (vezi figura 12.8). 


2 Microsoft visual Fonpro 


iesire 


Di] Refatere Indecsi 

--Corfigurare retea “verific restrict * 
Configurare imprimată = PCC de 3 

rii 


Dpiiers_” Menuleiet - 
Refacere indecsi Command do refacere_indecsi 23 | Administra >j. 
“|| Vedic restictii Commazid do testiictii_refarenti e ae im 
JE [Copie de siguranta EC [Command [> ] [WAIT WINDOW U [| 


Restaurare BD Command WAIT WINDOW U y 


> l Cied | : 


Figura 12.8. Dezactivarea unor opțiuni sau submeniuri 


12.1.6. Asocierea directă a unor module de program — cod-sursă — 
la nivelul meniurilor | 


Scrierea unor module cod-sursă se poate face, atunci când se consideră necesar, şi la 
nivelul meniurilor, astfel încât aceste fragmente de cod vor fi incluse în programul generat 
ca urmare a specificațiilor precizate prin intermediul Menu Designer-ului. 

În general, există trei modalități prin care se poate realiza acest lucru: 

e asocierea (scrierea) unor proceduri la nivelul opţiunilor individuale (precizând 

pentru coloana Result alternativa Procedure) — cod care va fi apelat la 
„runtime” ca urmare a selecţiei din meniu a repectivelor opţiuni; 


e asocierea (scrierea) unor module de program la nivelul submeniurilor care vor 
forma meniul principal; 
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e asocierea (scrierea) unor module de program la nivelul general al meniului — setup 

şi cleanup code. 

De exemplu, pentru definirea unei funcționalități simple prin care să se interogheze 
specific baza de date (cum ar fi cererea de afişare a situaţiei încasărilor pe facturi), putem 
declara o nouă opțiune Liste/Informaţii — Situația încasărilor căreia să 
îi asignăm codul-sursă specific direct în meniu, după cum se ilustrează în figura 12.9. 


MEEA 
a Result ANS Optians Manu level: 
Lista \<clientilor Command teport torm 1ep_clier al Listelntor d 
Lista Sefacturilar Command report form 1ep_facti 3 
i E f [teme 
Lista Nevinzati clienti/| Command tepoit form rap_dina E : 
N Submanu onee | 


NeInfoimati despre fac Command do form \apicatie\te j 


Situatia WIncasarier Edi { | 


| 
| 
s | Iasad Bar. | 


* folosind SELECT -~ 32L 
RAERNRSEFERREREREERRREKETEXEARRRRIRRERARREEEYERA 
TTE CLEAR 
* deschidem baza de data 
„IP I1DBUSED ("vinzarin) 
OPEN DATABASE "k:japlicatiejaatabaseivinzari” SHARED 
ENDIF 
SET DATABASE TO vinzari 
$ selectam intr-o tabela temporara incasarile 
„SELECT nrfact, SUM{TRANSA) AS val_incasata ; 
: INTO CURSOR tempi ; 
î FROM incastfact GROUP BY nrfacr 
» * efectuam o jonctiune externa þu trabala de facturi 
? (Sunt si facturi pentru care nu este nici o plata) 
i SELECT F.nrfact AS factura nr, F.valttva?1,19 AS vai_cu_tva, ; 
NVL (val _incasata,0) as val_incasara,; 
NVL (F.valttva?i.19-val_incasata,0) AS val_de_incazat ; 
FROH facturi F LEFT OUTER JOIN tempi T ON T.nrfact=F.nrfact 


CLOSE TABLES ALL 


ENERRRERERARRERESNIRARIEYEENESEIETEATRARSRIENERT 


Figura 12.9. Scrierea unei proceduri asignate unei optiuni din meniu 


Există şi situații în care asignarea unei proceduri la nivelul unui submeniu se poate 
dovedi utilă pentru aplicaţie. De exemplu, opțiunile meniului Admin/Con fige 
Administrare BD pot fi apelate numai dacă baza de date este deschisă în mod exclusiv 
sau dacă, eventual, poate fi deschisă astfel. Prin urmare, apelarea fiecăreia dintre ele ar 
trebui să verifice sau să deschidă exclusiv baza de date. Codul care ar trebui să efectueze 
această sarcină poate fi asignat direct la nivelul submeniului Administrare BD. 

În acest scop, scriem mai întâi această procedură ca un program de sine stătător cu 
numele deschid exclusiv (vezi listingul 12.1). 
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Listing 12.1. Codul-sursă al procedurii deschid_ exclusiv 
e a 
** Procedura DESCHID_EXCLUSIV con nneeneennenepane 


*** Functiile apelate prin optiunile acestui submeniu 

*** pot fi efectuate numai daca BD este deschis execiusiv 
PUBLIC vEroare 

LOCAL +dbname, vExclusive 

ON ERROR DO proc_err 

vEroare = O 

vdbname = 'VINZARI.DBC' 

*** Verificam daca BD este deschisa 

IF !dbused(vdbname) 


4+32, 'Confirmare?') = 6 
OPEN DATABASE &vdbname EXCLUSIVE 
*** In caz de eroare la deschiderea BD renunt 
IF 1EMPTY(vEroare) 
ON ERROR 
RETURN 
ENDIF 
ELSE 
ON ERROR 
RETURN 
ENDIF 
ELSE 
*** Verificam daca BD este deschisa exclusiv 
IF ISEXCLUSIVE('vinzari', 2) 


IF MESSAGEBOX('Baza de date nu este deschisa exclusiv. Continuati ?',; 


4+32, 'Confirmare?') = 6 
CLOSE DATABASES 
OPEN DATABASE vinzari EXCLUSIVE 
*** In caz de eroare la deschiderea BD renunt 
IF !IEMPTY(vEroare) 
ON ERROR 
RETURN 
ENDIF 
ELSE 
ON ERROR 
RETURN 
ENDIF 
ENDIF 
ENDIF 
*** Functie de optiunea apelata a meniului 
*** execut procedura asociata 
DO CASE i 
CASE BAR()= 1 
DO refacere_indecsi 
CASE BAR() = 2 
DO restrictii_referentiale_macro 
CASE BAR(= 3 
WAIT WINDOW "Under construction” 
CASE BAR() = 4 
WAIT WINDOW "Under construction” 
ENDCASE 


* 


PROCEDURE proc_err 
IF ERROR() = 1705 
vEroare = 1705 


IF MESSAGEBOX('Baza de date nu este deschisa. Continuati ?',; 


MESSAGEBOX(Baza de date nu poate fi deschisa exclusiv !) 


omite bn tm mt tea Po maraca. 
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** Dezactiv inclusiv menlui 
SET SKIP OF POPUP administra t. 
ENDIF 
ON ERROR 
ENDPROC 


După care deschidem instrumentul Menu Designer navigând până la nivelul 
meniului vizat. În fine, din meniul standard VFP se apelează opțiunea View->Menu 
Options, iar în fereastra deschisă, la rubrica Procedure, se precizează comanda DO 
deschid exclusiv (vezi figura 12.10). 


File gdt! 


|Relace 

: g Verific sestiictă Submenu 
Copie de siguranta BE Submenu 
Restaurare BD 


Submenu 


Figura 12.10. Asignarea unei proceduri la nivel de submeniu 


Trebuie remarcate două lucruri: 

e tuturor opțiunilor meniului Administrare BD le-am anulat procedurile 
inițiale (sunt declarate ca submeniuri); 

ə funcționalitatea acestor opțiuni a fost „mutată? în codul programului 
deschid exclusiv, care este executat la selectarea oricărei opțiuni a 
submeniului. Determinarea opțiunii selectate efectiv se realizează folosind 
funcţia BAR () (vezi listingul 12.1). 

Am procedat astfel deoarece comenzile (din programul de definire a meniului) prin care 
sunt apelate funcţiile opţiunilor, de exemplu 
ON BAR 1 OF administra do refacere indecsi 
au întâietate la execuție asupra comenzii prin care este asociată procedura 
DESCHID_EXCLUSIVY la nivelul submeniului: 
ON SELECTION POPUP administra do DESCHID BXCLUSIV, 

Codul! procedurii Deschid exclusiv exemplificate mai sus poate fi scris şi direct la 
nivelul submeniului cu titlul Administrare, fiind astfel inclus în întregime în codul 
meniului principal (nefiind invocat în acest caz printr-o comandă specială DO 
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<procedură>), după cum este exemplificat în figura 12.11. Acest lucru se realizează 
alegând butonul Edit din dialogul Menu Options. 


aici 


Ásu : Cpiions Manu levet 


?2* Functiiie apelate prin optiunile ace i submenu 
3%% pot fi efectuata numai daca BD esta deschis exegluziv 
PUBLIC vEroare 
LOCAL vdbname, vExclusiva 
ON ERROR DO proc err 
vEroare = Q 
vdbname = 'VINZARI.DBC' 
"7? Varizicam daca BD este deschisa 
IF !vdbnameșD3c 1) 

IF MESSAGEBOX (i: Baza de date nu este deschisa, Continuati ?',; 

4432, iContirmara?!) a § 
OPEN DATABASE 4vdbname EXCLUSIVE 

Psi In caz de eroare la deschiderea BD renunt 
IF !EHPTY (vEroaraj 

ON ERROR 


Figura 12.11. Asocierea codului-sursă invocat de un submeniu direct la nivelul acestuia 


Te 


În fine, asocierea modulelor cod-sursă la nivelul general al meniului principal se 
realizează prin intermediul opțiunilor Setup Code şi Cleanup Code, 


Codul Setup reprezintă un fragment de program care se va executa înainte de 
formarea efectivă a meniului ca urmare a execuției programului rezultat din compilarea 
fişierului .mpr în care este definit meniul (acesta conține comenzile de definire generate 
ca urmare a specificațiilor din Menu Designer). 


Codul Cleanup reprezintă un fragment de program care se execută după încheierea 
execuţiei meniului definit prin fişierul . mpr. 

Când se poate dovedi utilă folosirea unor asemenea programe? Situația cea mai evidentă 
ar fi atunci când meniul reprezintă „cataiizatorul” întregii aplicaţii, execuția acesteia 
începând şi încheindu-se cu formarea şi închiderea meniului principal. Prin urmare, meniul 
principal reprezintă în această situaţie şi programul principal al aplicaţiei. În aceste 
circumstanțe s-ar dovedi utilă stabilirea configurației mediului în funcție de specificul 


aplicaţiei înainte de formarea meniului (deci prin intermediul codului setup) şi restabilirea: 


configurației inițiale după eliberarea (închiderea) meniului (prin intermediul codului 
cleanup). De exemplu, în codul setup am putea include comanda de deschidere a bazei 
de date, iar în codul cleanup, închiderea acesteia. 

Pentru scrierea acestor proceduri va trebui invocată opțiunea View->General 
Options din meniul standard al VEP, după ce în prealabil a fost deschis Menu 
Designer. Se va invoca astfel dialogul General Options (vezi figura 12.12), care 
conţine printre altele şi două checkbox-uri Setup... şi Cleanup.. grupate în cadrul Menu 
Code. Bifarea fiecăreia dintre ele va determina deschiderea unei ferestre de editare cod 
(vezi figura 12.13). 


Meniuri în VEP să, 


SeListeAnlar . x 
VcAdmin/Co „Plocedure: ir- 
Asistenta 


Peske 


- app_db_name = "VINZARI! 


IF ! app _ db name$Dec() 
EAI Stochez intr-o variabila locala numele bazei de 
i date curente 
current_db_ name = DBC() 
13t Deschid baza de date a aplicatiei 
OPEN DATABASE sapp_db_name 
ENDIF 


a]. 


meniz « leii: 7 
t32 Daca variabila publica current_db_ name 
Rs este initializara, atunci BD specificata 
*** trebuie redeschisa 
IF 1EHPTY jcurrent_db_name) 

CLOSE DATABASE sapp_db_nawe 

OPEN DATABASE scurrent_db_name 
ENDIF 


Figura 12.13. Ferestrele de editare a codului Setup şi ClLeanup invocate 
din dialogul General Options 


12.1.7. Generarea unui meniu și câteva precizări sumare despre comenzile 
de definire a acestuia 


Deşi Menu Designer uşurează munca de definire a unui meniu atât de mult încât un 
utilizator novice poate defini fără dificultăți un meniu complet şi destul de sofisticat fără a 
cunoaşte pratic nici o comandă specifică, totuşi interpretarea, chiar dacă nu foarte 
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aprofundată, a programului generat de Menu Designer necesită câteva precizări 
suplimentare în legătură cu acest subiect. 

Generarea programului .MPR ca rezultat al specificaţiilor din Menu Designer se 
realizează apelând opţiunea Menu->Generate din meniul standard VFP. Ca urmare, se 
va obține dialogul Generate Menu, unde se poate sugera (eventual) calea şi numele 
fişierului-destinație, după cum este exemplificat în figura 12.14. 


sli 


BSE ae ea 


“Menu levet - 
Menu Ba x 


„Options 


Submenu 


a Site 


ScListe/informati Submenu er aee T 
-d KAdmin/Config Submenu ] A eee] insert | 
E Asistenicta Submenu E i 
i Command set sysmenu to defa = | 


Figura 12.14. Generarea programului .MPR 


A Programul-sursă generat poate fi editat eventual printr-o comandă MODIFY COMMAND, 
În figura 12.15 este prezentat un fragment din acest program. 


= BET SYSHENY TO 
SET SYSHENU AUTOMATIC 


` DEFINE PAD _0ix0ubâyă OF _MSYSHENU PROMPT ”\<Nomenclatoare" COLOR SCHENE 3 ; | 


KEY ALTIN, "”" 
DEFINE PAD _OixOub8yS OF _MSYSMEMU PROMPT "\<Operatiuni” COLOR SCHEHE 3 ; | 
KEY ALTHO, nu | 
DEFINE PAD _DixOubaya OF _MSYSMENU PROMPT "\<Liste/ Informatii” COLOR SCHEME 3 ; 
KEY ALTIL, nn i 
DEFINE PAD _OixOubSyb OF _MSYSMENU PROMPT "\<Admin/Config” COLOR SCHEME 3 ; 


KEY ALTA, nr 
DEFINE PAD _0ix0ub8yc OF _MSYSMENU PROMPT "Asisten\<ta” COLOR SCHEME 3 ; 
KEY ALT+T, nn ă | 
` DEFINE PAD _Oix0ubSyd OF _MSYSMENU PRORPT "I\<esire” COLOR ZCHENE 3 ; 


KEY ALT+E, ”” 
ON PAD _0ixO0ubây6 OF _MSYSMENU ACTIVATE POPUP nomenclato 
ON PAD _Oix0ubây$ OF _MƏYSMENU ACTIVATE POPUP operatiuni 
ON PAD _OixOubSya OF _MSYSMENU ACTIVATE POPUP Liateintor 
ON PAD _OixO0ub8yb OF _H4YSMENU ACTIVATE POPUP adminconti 
ON PAD _OixOubByc OF _MSYSMENU ACTIVATE POPUP asistenta 
` ON SELECTION PAD _QixDubByd OF _MSYSMENU set sysmenu to default 


Figura 12.15. Fragment din programul mainmenu. mpr 
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Principalele comenzi pe care le veți întâlni în acest program sunt: 

e DEFINE PAD- pentru definirea principalelor opțiuni din meniul principal; 

e ON PADşiON SELECTION PAD — pentru definirea acţiunilor corespunzătoare 
opțiunilor din meniul principal (invocarea unor submeniuri, comenzi sau programe); 

ə DEFINE POPUP — pentru definirea submeniurilor corespunzătoare opţiunilor din 
meniul principal; 

e ON BAR şiON SELECTION BAR — pentru definirea acțiunilor corespunzătoare 
opținilor fiecărui submeniu (popup) definit prin DEFINE POPUP, 

Tot în acest program se vor regăsi şi procedurile corespunzătoare codului-sursă definit 

la nivelul meniului principal, submeniurilor sau opțiunilor individuale. 


12.2. Simularea unui meniu vertical şi crearea barelor 
de instrumente 


Mulţi dezvoltatori se pot declara totuşi nemulțumiți de posibilităţile de modelare a 
modului de prezentare a aplicației (look&feel-ul) oferite de instrumentul Menu 
Designer. i 

În continuare, vom prezenta două modalităţi de îmbunătăţire a prezentării aplicaţiei. 


12.2.1. Definirea unui meniu de pornire vertical! 


Să facem pentru început o distincție: când ne referim în acest paragraf la un meniu 
vertical nu ne propunem crearea unui meniu popup (lucru perfect realizabil cu Menu 
Designer). De fapt, încercăm să construim o structură de interfață specială care în final 
va avea aspectul unui meniu vertical. Concret: 

e vom crea o bară de stare care, pe lângă eventualele informaţii despte starea curentă 

a aplicaţiei, va găzdui şi un buton (asemănător butonului START al Windows-ului) 
care va lansa o bară asemănătoare unui meniu vertical, 

ə opțiunile din bara dedicată meniului vertical vor fi formate în fapt din butoane de 
comandă formatate specific şi care vor ţine locul opțiunilor din meniul principel 
descris în subcapitolu!l anterior. Fiecare dintre acestea va lansa un meniu popup care 
va avea funcția submeniului similar din meniul anterior creat cu Menu 
Designer; 

+ funcțiile opțiunilor individuale din meniurile popup vor respecta specificațiile din 
tabelul 12.1. 

Pentru a realiza această structură de interfaţă, vom folosi elemente de programare OO 
pentru organizarea mai eficientă a procesului de dezvoltare, dar şi fiindcă vom utiliza ca 
bază de pornire o clasă specifică din bibliotecile mediului vizual VFP. 

Procesul de dezvoltare îl putem separa în două etape: (1) crearea claselor pe care se vor 
baza elementele specifice interfeţei descrise mai sus; şi (2) crearea setului de formulare în 
care se vor instanţia aceste clase. 


Crearea claselor specifice 
În primul pas din această etapă ne vom ocupa de clasa de provenienţă a barei de stare. 
Specificul barei de stare decurge din următoarele caracteristici: 
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e dimensiunea; 

e plasamentul pe ecran; 

e obiectele prin care vor fi afişate eventualele mesaje sau informaţii despre starea 

curentă a aplicației. 

Trebuie precizat că bara de stare va avea doar un rol de element de interfață găzduind 
eventual alte obiecte de acest gen pentru, de exemplu, afişarea unor mesaje specifice. Ea nu 
va avea nici o funcţie legată de monitorizarea mediului intern şi culegerea respectivelor 
informații relevante. 

În acest scop, vom crea o clasă pe care o vom denumi StatusBar şi care, la rândul ei, 
va subclasa clasa Toolbar a mediului vizual VFP, după cum se poate observa din fisura 
12.16, în care este prezentat dialogul New Class obținut prin apelarea opțiunii 
File—New-—Class din meniul standard VFP. 


| StatusB ar 3 


Figura 12.16. Crearea clasei StatusBar pe baza clasei Toolbar 


Proprietățile personalizate pentru clasa StatusBar se referă la dimensiune (Height 
şi Width) şi la plasament (Left, Top) — vezi figura 12.17. 


UR Class Designer- 


pieni toot clase. (statusbar, 
Barade stare -ae 
Mesaj 


[Err statusbar Ad | 


zar] Data -| Merode [isa] the: 


val -n III 


E Caption 


ASNT EARNE ae ear 
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De asemenea, tot în figura 12.17 se observă şi includerea unui obiect de tip label cu 
numele lblMesaj, care va găzdui eventualele mesaje ce se doresc a fi afișate pe bara de 
stare, i 

O caracteristică esențială a barei de stare este locul de „ancorare” în fereastra principală 
a aplicaţiei. În acest sens, avem la dispoziție metoda Dock din clasa de bază Toolbar, 
care primeşte un parametru ce determină poziționarea barei de stare. Astfel, valoarea: 

o ~-1 sau TOOL NOTDOCKED (din FoxPo.h) înseamnă neancorarea în nici o 

margine (altfel spus, bara de stare este flotantă); 

e O sau TOOL, TOP înseamnă ancorarea în marginea superioară a ferestrei VFP; 

ə 1 sau TOOL LEFT înseamnă ancorarea în marginea stângă a ferestrei VFP; 

e 2 sau TOOL RIGHT înseamnă ancorarea în marginea dreaptă a ferestrei VFP; 

ə 3 sau TOOL BOTTOM înseamnă ancorarea în marginea inferioară a ferestrei VFP. 

Prin urmare, determinarea plasamentului barei de stare poate fi determinat prin 
evenimentul Init prezentat în figura 12.18, 


na 
i 


la marginea inferioara 
t urmeaza redimensionarea controalelor 


*this.vidth=_ screen, width 
this. cmdHenu, width= screen. width"0.08 i 
this. lb Imesaj. width= _ screen, vidth?0, 30 ao 


azap 


Figura 12.18. Evenimentul Init asociat clasei StatusBar 


În pasul doi din această etapă vom crea clasa care va sta la baza butonului de start al 
meniului vertical şi la baza butoanelor care vor forma opțiunile de bază ale acestui meniu. 


Această clasă o vom denumi MenuToolBtn şi va fi subclasată din clasa de bază 
CommandBut ton a mediului vizual VFP. Proprietăţile redefinite pentru această clasă se 
referă la (vezi şi figura 12.19): 

e dimensionare (Height şiWidth); 

e formatul fontului pentru afişarea textului care etichetează butonul (FontBola, 

FontSize şi ForeColor); 
e efectul 3D de afişare (SpecialEffect). 
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sI] 


Figura 12.19. Fereastra de editare a clasei MenuButtonTlb 


În plus, am adăugat o proprietate suplimentară — OptNo — prin care să poată fi 
identificabil mai uşor butonul în setul de opțiuni care va forma meniul vertical. Adăugarea 
unei proprietăți specifice la nivelul unui obiect se realizează prin intermediul opțiunii 
Class-—NewProperty, apelabilă din mediul standard VFP când este deschis 
instrumentul ClLassDesigner (vezi şi capitolul 11). 

Specificul comportamentului butoanelor-opțiuni care vor instanția această clasă este 
ra de două caracteristici: 

lansarea meniului popup corespunzător; 

e modificarea aspectului vizual (mai exact, culoarea fontului) atunci când butonul 

mouse-ului trece pe deasupra. 


Pentru a realiza acest lucru, am scris câteva linii specifice de cod în evenimentele 
Click şi MouseMove prezentate în figura 12.20. 


necreate ei oa Ai 
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Obiect Pete Procedure: | Click Y]| = 

it lempty{this. tag) + i i i ] 
do menubar with thiz.optno 

endif 


Okie [E menusi “Procedure: MouseMove z. 


LPARAHETERS cute ae nshift, akcaord; aysoočd” i 
IF BETUEEN inxcoord,thia.parenr. lefi+THIS.LEFT+, 
this, uidth*0,4,this.parent, left+THIS,LEFT+THIS.VIDTH"O. 6); 
AND BETUEEN (nycoord, this., parcent.togptTHIS.TOP+; 
thiz,height?0.4, this.parent.top+THIS. TOP+THIS.HEICHT?0, 5) 
THIS, FORECOLOR=RGB (0, 64, 128) 


ELSE 
THIS. FORECOLOR=RGB (0,0,0) 
ENDIF 
al ji E i < : Es 3 ; E o 


Figura 12.20. Codul-sursă asociat evenimentelor Click şi MouseMove 


Meniurilor popup care vor fi lansate din butoanele-opțiuni ale meniului vertical sunt 
definite într-o procedură separată — menubar.prg. Aceasta este apelabilă printr-un 
parametru specific, care determină meniul popup ce urmează a fi activat. Numărul meniului 
popup din această procedură corespunde numărului butonului-opțiune (determinat de 
proprietatea Opt No) aparținând meniului vertical (vezi listingul 12.2). 


Listing 12.2. Procedura menubar.prg 


PARAMETER pmenu 


DEFINE POPUP shortcut shortcut RELATIVE FROM MROW(,MCOL() 
DO CASE 

CASE pmenu = 1 

DEFINE BAR 1 OF shortcut PROMPT “"Peri<soane" ` 

DEFINE BAR 2 OF shortcut PROMPT "<Produse” 

DEFINE BAR 3 OF shortcut PROMPT "<Ciienti” 

ON SELECTION BAR 1 OF shortcut DO menuoption with 11 

ON SELECTION BAR 2 OF shortcut DO menuoption with 12 


CASE pmenu = 2 

DEFINE BAR 1 OF shortcut PROMPT "<Facturari” 
DEFINE BAR 2 OF shortcut PROMPT “\<incasari" 

ON SELECTION BAR 1 OF shortcut DO menuoption with 21 


CASE pmenu = 3 

DEFINE BAR 1 OF shortcut PROMPT "Lista \<clientilor" 

DEFINE BAR 2 OF shortcut PROMPT "Lista i<facturilor" 

DEFINE BAR 3 OF shortcut PROMPT "Lista \<vinzari clienti/produse” 
DEFINE BAR 4 OF shortcut PROMPT "-" 

DEFINE BAR 5 OF shortcut PROMPT "\<informatii despre facturi...” 
ON SELECTION BAR 1 OF shortcut DO menuoption with 31 

ON SELECTION BAR 2 OF shortcut DO menuoption with 32 3 i . 
ON SELECTION BAR 3 OF shortcut DO menuoption with 33 
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endcase 


ON SELECTION BAR 5 OF shortcut DO menuoption with 34 


CASE pmenu = 4 

DEFINE BAR 1 OF shortcut PROMPT "<Administrare BD" 
DEFINE BAR 2 OF shortcut PROMPT "Configurare \<retea" 
DEFINE BAR 3 OF shortcut PROMPT "Configurare \<imprimanta" 
ON BAR 1 OF shortcut ACTIVATE POPUP admin 

ON BAR 3 OF shortcut ACTIVATE POPUP imprim 


DEFINE POPUP admin shortcut RELATIVE SHADOW COLOR SCHEME 4 
DEFINE BAR 1 OF admin PROMPT "Refacere indecsi" 

DEFINE BAR 2 OF admin PROMPT "Verific restrictii" 

DEFINE BAR 3 OF admin PROMPT "Copie de siguranta BD" 

DEFINE BAR 4 OF admin PROMPT "Restaurare BD" ` 

ON SELECTION BAR 1 OF admin DO menuoption with 411 

ON SELECTION BAR 2 OF admin DO menuoption with 412 


DEFINE POPUP imprim shortcut RELATIVE SHADOW COLOR SCHEME 4 
DEFINE BAR _mfi_sysprint OF imprim PROMPT "\<Imprimanta" 
DEFINE BAR _MFI_PGSET OF imprim PROMPT "<Pagina“ 


CASE pmenu = 5 


DEFINE BAR 1 OF shortcut PROMPT "<Continut si index...» 
DEFINE BAR 2 OF shortcut PROMPT m 

DEFINE BAR 3 OF shortcut PROMPT "<Despre" 

ON SELECTION BAR 10F shortcut HELP 


ENDCASE 
ACTIVATE POPUP shorteut 


RR RR RR RR RE ete ea terei 


procedure menuoption | 
parameter opt. : 
do hide_menubar 


do case 

case opt_=11 && Nomenclatoare\Persoane 

DO FORM frmPersoane ` 

case opt_= 12 && Nomenclatoare\Produse 

DO FORM frmProduse 

case opt_ = 21 && OperatiunilFacturari 

DO FORM FrmLiniiFact 

case opt_ = 31 && ListelLista clientilor 

REPORT FORM rep_clienti PREVIEW 

case opt_ = 32 && ListelLista facturilor 

REPORT FORM rep_facturi_clienti PREVIEW 

case opt_ = 33 && ListelLista vinzari 

REPORT FORM rap_dinamic PREVIEW 

case opt_ = 34 && Listelinformatii facturi 

DO FORM VaplicatieiFORMSifrmtree_list.sex 

case opt_= 411 &8& Adminconfig'AdminBDiRefacere indecsi 
DO refacere_indecsi 

case opt_= 412 && AdminconfigAdminBD'WVerificare RR 
DO restrictii_referentiale_macro 
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do activate -menu e eee e e e e e e de de e e de de e de ie e e 
rocedure hide_menubar 
FOR k=1 TO _SCREEN.FORMCOUNT i 
IF LOWER(_SCREEN.FORMS(k).NAME)='menubar 
EXIT 
ENDIF 
ENDFOR 
E a EE 
rocedure activate_menu 
FOR k=1 TO _SCREEN.FORMCOUNT | | 
IF LOWER(C_SCREEN.FORMS(k).NAME)>'statusbar! 
EXIT 
ENDIF 
ENDFOR 
SCREEN.FORMS(k).emdMenu.ENABLED=.T. 


iu pe 
În fine, în pasul trei din această etapă vom crea clasa-suport pentru bara de meniu p 


iuni inci iului vertical. 
care vor fi plasate butoanele-opțiuni ce vor forma opțiunile principale ale meniului v 


SI ; ; l 
În legătură cu această clasă (prezentată în figura 12.21), trebuie să precizăm că are la 


: i a alui ina 
bază tot clasa Toolbar, iar rolul ei este de a găzdui butoanele ali an ra E i 
i i ristici ice ale acesteia sunt determinate de evenim ; 
meniul vertical. Caracteristicile fizice a 5 sunt c j i ri 
în care dimensiunea ei este determinată relativ la înălțimea ferestrei VEP, iar plasam 
5 : $ 
este determinat prin metoda Dock, care o ancorează în marginea din stânga. 


Bara de monu 


[En E 
< ftre Procedure 
8 


N i Evert 


Object [iai menda 7]. Procase o 
This he ight" screen. height-30 
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Figura 12.21. Clasa MenuBar 


Crearea setului de formulare care va instanţia clasele definite iată SSI 
Subclasarea claselor definite în etapa anterioară se realizează în felul următor: 


1. Se creează un nou formular. 
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În bara de instrumente se invocă obiectele din biblioteca în e au fost salvate 


clasele-suport. Acest lucru se realizează astfel (vezi figura 12.22 şi capitolul 11): 
Din bara de instrumente a Form Designer-ului se invocă butonul View 
Classes, iar din meniul care apare se apelează opțiunea Add.. 

În fereastra Open se localizează biblioteca în care se află c lise) e-suport (fişierul 
menu_tool clase.vez). 

Ca urmare, în lista din meniul Add... invocat anterior va apărea şi biblioteca 
noastră, iar ca urmare a selectării opțiunii corespunzătoare, bara de instrumente a 
instrumentului Form Designer se transformă în aşa fel încât va conţine o serie 
de butoane din care se pot invoca clasele-suport. - 


ia | 


Go To Last Folder visted. 


= Visual dz Library z 2 


Figura 12.22, invocarea bibliotecii care conţine ciasele-suport 


Prin butoanele specifice claselor-suport care au fost aduse în bara de instrumente 
Form Control Toolbar sunt trase” în fereastra Form Designer clasele 
StatusBar şi MenuBar. Ca urmare, se va forma un set de formulare ce va 
cuprinde și cele două formulare bazate pe clasele- -suport definite în etapa anterioară. 
Prin opțiunea Form->Remove Form din meniul VFP se îndepărtează formularul 
iniţial. 


După care: 


pe bara de stare este plasat un buton etichetat Menu, subcelasat din clasa 
MenuToolBtn; ; 

pe bara de meniu se plasează şase butoane-opțiune (subclasate tot din clasa 
MenuToolBtn) etichetate şi grupate corespunzător. Gruparea se poate realiza 
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folosind un obiect de tip separator JC între butoanele ce marchează sfârșitul unui 


grup şi începutul celuilalt; | ) . 
în bara de meniu se poate include şi un obiect de tip Image în care să fie afişat un 


logo specific. E 


$ 5 i ? r 2); 
Până acum, rezultatul ar trebui să arate după cum este ilustrat în figura 12.23. 
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Figura 12.23. Setul de formulare realizat în Form Designer 


În plus, am mai adăugat câteva elemente legate de comportament. Astfel: 


în momentul în care se va trece cursorul mouse-ului peste un buton-opţiune, pe bara 
de stare va apărea un mesaj explicativ referitor la opțiunea curentă. Acest 
comportament se obține schimbând proprietatea Caption a obiectului LolMesaj 
de pe bara de stare printr-o linie de cod plasată într-un eveniment MouseMove,; 

în momentul în care se execută click pe butonul etichetat Menu de pe bara de stare, 
este afişată bara de meniu. Acest comportament se obţine prin metoda Show a 
obiectului prin care se afişează bara de meniu. 


Codul-sursă al evenimentelor invocate mai sus este prezentat în figura 12.24. 
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1£ louer (_screen. forms (k) . name) =! menubar: B 
Screen. forms (k) . show 
exit 

endif 

endior ` 
this enabied=, f, = 


CE EA IER a II pete aaa dat 
IERTARE EI E AER OTET RETELE 
“Obiect Menutooibini yj; Plocedure:: [MouseMova | 


+ LPARAMETERS nbutton, nshift, nxcoora, nycoord Sadi i die ii A > 
| thisformset.stacusBar. lblHesaj.Caption=”Intoducere clienti noi, persoane, produser T 
dodetault (nButton, nShiit, nXCoord, nYCoord) ss exec, metoda din klasa de baza 


Figura 12.24. Codul-sursă al evenimentului MouseMove al butoanelor-opțiuni şi al 
evenimentului click al butonului care afişează bara de meniu 


În figura 12.25 este prezentat meniul vertical obținut prin lansarea setului de formulare 
la care am trudit până acum. 


Figura 12.25. Meniul vertical obținut la execuţie 
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12.2.2. Crearea unei bare de instrumente pentru aplicaţie 


Aplicațiile care se doresc realizate cu un aspect cât mai profesionist sunt însoţite 
obligatoriu şi de o bară de instrumente din care să se poată avea acces direct la principalele 


funcții ale sistemului. 


Procesul de creare a unei bare de instrumente poate fi structurat în următoarele etape: 


identificarea principalelor funcţii care vor fi accesibile din bara de instrumente a 
aplicației; i 

crearea/desemnarea imaginilor relevante care vor defini butoanele asociate 
funcțiilor definite anterior; A 

crearea unui element de interfaţă tip bară de instrumente subclasat din clasa de bază 
Toolbar a VFP; 

aşezarea pe obiectul tip toolbar creat anterior a butoanelor ce'vor forma bara de 
instrumente; 

specificarea imaginilor care vor fi aplicate pe fiecare buton din bara de instrumente; 
asocierea codului prin care se lansează procedura/formularul/raportul asociat 
fiecărui buton din Toolbar. 


Să luăm în considerare, pentru exemplul nostru, următoarele funcţii ce vor fi accesibile 
din Toolbar: 


e + ë o ù . o o 


crearea/modificarea datelor despre clienți; 
emiterea de noi facturi; 

consemnarea documentelor de încasare; 

afişarea unui raport privind vânzările; 

afişarea unui raport privind facturile; 
configurarea/pregătirea imprimantei pentru listare; 
crearea copiei de siguranță pentru baza de date; 
invocarea sistemului de asistență; 

părăsirea aplicaţiei, 


Imaginile ce vor fi afişate pe butoanele barei de instrumente trebuie create sau redefinite 
astfel încât să respecte dimensiunea butoanelor. Pentru o mai bună organizare, ele ar trebui 
piasate într-un director dedicat, după cum se ilustrează în figura 12.26. Acestea pot avea 


extensia . BMP, dar și . ICO sau . JPG, 
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Attributes: {normai} 


Figura 12.26. Creați un director separat dedicat exclusiv imaginilor/iconogramelor 
i ce vor fi afişate în bara de instrumente i 


In continuare, pentru a simplifica procesul de dezvoltare, revenim în biblioteca 
Menu_tool_clase.vex (creată pentru clasele-suport ale meniului vertical), în care 
introducem o nouă clasă având ca părinte clasa Toolbar a sistemulu 
vom numi apptoolbar. 


De asemenea, revenim în setul de formulare (main_screen. scx) creat anterior şi 


adăugăm un nou obiect prin subelasarea clasei Apptoolbar, după cum se ilustrează în 
figura 12.27. 


i VEP şi pe care o 


Figura 12.27. Subclasarea clasei Apptoolbar 
În setul de formulare Main_screen 
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Se plasează apoi nouă obiecte de tip CommandButton (corespunzătoare funcțiilor 
identificate mai devreme) pe noul formular obținut din subclasarea clasei Apptoolbar. 
De asemenea, pentru fiecare buton se va specifica, prin intermediul proprietăţii Picture, 
fişierul care conţine imaginea sau iconograma care îi va fi asociată, obținându-se astfel 
rezultatul din figura 12.28. 
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Figura 12.28. Asocierea imaginilor/iconogramelor pentru butoanele 
care formează bara de instrumente 


În fine, tot pentru fiecare buton se va scrie în evenimentul click instrucțiunea prin care 
se va lansa în execuţie programul, formularul sau raportul ce i-a fost desemnat. De exemplu, 
pentru butonul corespunzător creării/editării informaţiilor despre clienți se poate specifica 
formularul FrmClienti. sex specificând în codul-sursă asociat evenimentului click 
următoarea comandă; 


DO FORM frmelienti.scx 
La execuţie, selectarea acestui buton va determina rezultatul prezentat în figura 12.29. 
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Cod |. : i CE z > z tocalitate -.. 
1091 iCiient1 SRL Ri00t Tranntiei, 13 tis iasi 
1052 |Cient 2 SA R1002 ast 
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1994 Ciient 4 Sagizntei, Sò Passani 


1005 Client ŞSRL R1005 E Timisoara SSE tt 
1006 Client 65A R1006 Pacientei, 33 Roman IÎNUL. 
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Figura 12.29. Lansarea formularului Frmclienti. scx din bara de instrumente 


Crearea unui meniu bine structurat şi a unei bare de instrumente prin care să poată fi 
accesate principalele funcții ale aplicației se pot dovedi elemente esențiale în obținerea 
succesului privind gradul de acceptabilitate al sistemului la nivelul utilizatorilor finali. 

»Unealta” cea mai la îndemână este Menu Designer, care oferă o gamă largă de 
opțiuni pentru organizarea cât mai eficientă şi flexibilă a meniului principal. Folosind însă 
câteva elemente specifice dezvoltării orientate-obiect, se poate obţine o structură de 
interfaţă ceva mai spectaculoasă decât meniurile construite cu Menu Designer şi care 


poate avea un impact mai mare în ceea ce priveşte aderenţa utilizatorilor finali la noul 
sistem. 


Capitolul 13 
Opţiuni pentru dezvoltarea aplicaţiilor în rețea. 


Arhitectura file-server 


Bazele de date au apărut din necesitatea partajării resurselor informaţionale între 
diferitele categorii de utilizatori dintr-o organizaţie, . înlăturându-se — sau măcar dimi- 
nuându-se — preluarea şi stocarea repetată a aceloraşi tranzacţii: facturi, încasări, plăți etc. 
Majoritatea copleşitoare a aplicaţiilor economice instalate în organizaţii medii şi mari (deşi 
putem împărți aceste două tipuri în mai multe categorii) vizează accesul mai multor 
utilizatori la aceleaşi date — lucrul în rețea. 

Lucrurile sunt simple atunci când aplicaţiile utilizatorilor „citesc” o aceeaşi înregistrare, 
însă problemele se multiplică dacă mai mulți operatori modifică simultan valori ale unor 
atribute aflate pe o aceeași linie într-o tabelă, sau adaugă simultan înregistrări în tabele în 
care cheia primară este o cheie-surogat generată automat, sau unul şterge şi altul modifică 
aceeaşi înregistrare ş.a.m.d. ` 

Prin urmare, opțiunile pentru lucrul în rețea reprezintă un element esențial în alegerea 
unui SGBD ca mediu de dezvoltare a aplicațiilor ce vor rula (vor fi exploatate) în medii 
multiutilizator. În acest capitol ne vom ocupa de cea mai simplă arhitectură a aplicaţiilor 
multiutilizator în VFP — file-server. 


13.1. Arhitectura file-server 


Nu există o traducere satisfăcătoare a sintagmei, aşa că vom importa lingvistic 
„originalul” din engleză. În această configurație, schematizată în figura 13.1, baza de date 
este rezidentă pe un calculator cu un hard-disc mai „încăpător” şi mai rapid (de ex. SCSI). 


Utilizator 3 


Utilizator 2 


Figura 13.1. O arhitectură file-server 
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Utilizatorii, aflați fiecare la biroul său, au acces la bază fie prin intermediul! aplicaţiilor 
(cazul tipic al utilizatorilor finali fără cunoştinţe supărătoare de informatică), fie prin 
comenzi lansate din VFP instalat pe staţia proprie. 

De obicei, serverul nu trebuie să fie foarte putemic, prin comparație cu staţiile 
utilizatorilor, deoarece în această arhitectură prelucrările au loc local, în bufferul (memoria 
RAM) fiecărei staţii. Spre exemplificare, presupunem că utilizatorul 2 introduce din 
fereastra de comenzi următoarea frază SELECT: 

SELECT * FROM liniifact WHERE nrfact = 5678 


În bufferul local al staţiei 2 se încarcă, de pe serverul de fişiere, toate liniile tabelei 
LINIIFACT, linii din care se vor selecta cele care îndeplinesc condiția din WHERE. Dacă în 
rețea sunt 50 de utilizatori care lansează simultan fraza de mai sus, iar LINIIFACT are 
câteva milioane de înregistrări, putem presupune că rețeaua are toate şansele să se „sufoce”. 

Dotarea serverului de fişiere cu un hard-disc rapid înseamnă onorarea într-un termen 
scurt a cererilor de acces la bază primite din partea stațiilor şi poate avea un aport important 
în fluidizarea fluxului de date în rețea. 

Mecanismul de citire şi transfer al datelor între bufferele locale şi „instanța” principală a 
bazei aflate pe server este transparent pentru utilizator. Important este însă să cunoaștem 
cele mai importante scenarii de conflicte ce ar putea să apară în utilizare şi ce opţiuni VFP 
sunt mai indicate în buna derulare a aplicaţiei şi păstrarea integrității şi coerenței bazei. 

În practică, cele discutate pe parcursul acestui capitol sunt valabile într-o rețea de tip 
peer-to-peer, în care nu există un file-server Windows, fiecare- stație comunicând cu 
celelalte „de la egal la egal”. Pentru VFP acest lucru este secundar, deoarece, oricum, dintre 
stații se alege una care va găzdui baza de date şi va juca rolul de server al fişierelor 
aplicaţiei, i 

Utilizarea unui server, fie şi numai pentru fişiere, este cvasigeneralizată deoarece, în 
afara unui hard-disc şi conectică (placă de rețea) rapide, serverul poate fi depozitat într-o 
încăpere separată şi protejat fizic mai bine. O altă practică este de a dota serveru! cu un 
dispozitiv de salvare periodică a datelor din bază — unitate de bandă (casetă) magnetică sau 
inscriptoare de CD-uri. 


13.2. Deschiderea bazei de date şi tabelelor pentru lucru 
în reţea. Moduri de blocare 


Baza de date şi tabelele pot fi deschise în două moduri, exclusiv (EXCLUSIVE) şi 
partajat (SHARED). Prin deschiderea exclusivă, baza de date/tabela devine inaccesibilă 
următorilor utilizatori care ar încerca o nouă deschidere de pe staţiile lor şi care ar avea 
parte de mesajul de eroare File access is denied (1705). Aşa încât lucrul în rețea 
este posibil numai prin comenzile: 

OPEN DATABASE vinzari SHARED 


şi (de exemplu) 
USE judete IN 0 SHARED 


i 
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Dacă în comenzile OPEN DATABASE sau USE nu se specifică modul de deschidere, 
implicit acesta este cel setat prin meniu: Tools->Options->Data şi bifarea/debifarea 
opțiunii Open exclusive sau prin comanda SET EXCLUSIVE. | 

Pentru a verifica dacă, în sesiunea locală, baza de date sau o tabelă au fost deschise 
exclusiv sau partajat, se poate folosi funcția ISEXCLUSIVE (): 

? ISEXCLUSIVE ('judete!) 
care întoarce, în cazul nostru, . T. şi este.echivalentă cu 
? ISEXCLUSIVE ('judete!', 1) 


Pentru baza de date se scrie: 
? ISEXCLUSIVE('vinzari!, 2) 


Atenţie însă, cu această funcție nu se poate verifica dacă baza de date sau tabela a fost 
deschisă deja de alt utilizator (altă sesiune VEP pentru baza de date respectivă) ! Procedura 
din listingul 13.1 ilustrează modalitatea în care poate fi rezolvată această problemă, 


Listing 13.1. Semnalizarea imposibilității deschiderii exclusive unei tabele în rețea 


” se testeaza daca tabela nu e deja deschisa exclusiv 
IF USED('clienti) AND ISEXCLUSIVE('clienti) 
* e-n regula (in engleza - OK) 
ELSE 
IF USED(clienti') 
SELECT clienti 
USE 
ENDIF 


* se "inhiba” afisarea pe ecran a mesajului erorii 1705 
* (File access is denied) 
ON ERROR aaa = 1 


* se incearca deschiderea exclusiva a tabelei 
USE clienti IN 0 EXCLUSIVE 


* daca nu s-a reusit, tabela ramine inchisa pt. sesiunea curenta 

IF !USED('clienti) A 
MESSAGEBOX(Tabela CLIENTI n-a putut fi deschisa exclusiv l’) 

ENDIF 


* se reia afisarea mesajelor de eroare 


ON ERROR ; 
ENDIF : 


13.2.1. Deschiderea partajabilă a bazei de date şi tabelelor 


Fireşte, -pentru o aplicație în rețea interesează deschiderea partajabilă a bazei şi 
tabelelor. Pentru un plus de funcționalitate, pornim de la realitatea că, pe o altă stație, o 
tabelă a fost deschisă în mod partajabil, dar este blocată temporar (de exemplu, printr-o 
funcţie FLOCK ()). Listingul 13.2 conține programul care încearcă de trei ori, la interval de 
cinci secunde, să deschidă SHARED tabela CLIENTI, Mesajul de avertizare este afişat 
abia după eşuarea celei de-a treia tentative de deschidere, Pentru un plus de atractivitate, în 
colțul din dreapta-sus este afişat un mesaj ce indică a câta tentativă de deschidere este. 
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Listing 13.2. Trei tentative de deschidere SHARED a tabelei CLIENTI 


[succes =F, 


FORi=1T03 
WAIT “Tentativa nr. "+STR(,1)+" de deschidere partajata a tabelei CLIENŢI”; 
WINDOW NOCLEAR TIMEOUT 5 
succes_ = incercare_deschidereţ) 
IF succes_ 
EXIT 
ENDIF 
ENDFOR 
IF !succes_ 
MESSAGEBOX('Tabela CLIENTI n-a putut fi deschisa partajabil '+CHR(13)+; 
"nici dupa trei tentative (15)secunde !*) 
ENDIF 
WAIT CLEAR 


RETURN 


FUNCTION incercare_deschidere 
* se testeaza daca tabela nu e deja deschisa partajat 
IF USED(Clienti') AND HSEXCLUSIVE('clienti') 
* e-n regula 
ELSE 
IF USED(clienti) && tabela e deja deschisa exclusiv 
SELECT clienti 
USE i 
ENDIF 


* se “inhiba” afisarea pe ecran a mesajului erorii 1705. 
* (File access is denied) 
ON ERROR aaa = 1 


* se incearca deschiderea partajata a tabelei 
USE clienti IN 0 SHARED 


* se reia afisarea mesajelor de eroare 
ON ERROR 


* nu s-a reusit deschiderea; se returneaza FALSE 
IF !USED(clienti') 
RETURN. .F. 
ENDIF 
ENDIF 
* e-n regula ! tabela e deschisa SHARED 
RETURN .T. 


În acest moment ne putem gândi la modificarea procedurii stocate SETUP, în care să se 
verifice dacă, pe staţia respectivă, pot fi deschise SHARED toate tabelele bazei. Dacă nu, 
aplicaţia nu trebuie să „pornească”. Pentru fiecare: tabelă sunt trei tentative de deschidere, 


isi r în cinci secunde, înainte de afişarea mesajului de eroare. Iată noua variantă în 
istingul 13.3. i 


veto 


svoan 
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Listing 13.3. Varianta pentru rețea a procedurii stocate SETUP şi a procedurilor conexe 


- 


* se verifica daca baze de date e deschisa SHARED 
IF DBUSED('vinzari') AND !ISEXCLUSIVE('vinzari',2) 
* e-n regula 
LSE 


MESSAGEBOX('Baza de date VINZARI nu este deschisa partajabil '} 
$ se poate alege iesirea din aplicatie, chiar din VFP 
n QUIT 
ca sau predarea controlului programumui principai 
ui RETURN TO MASTER 
ENDIF 


* se incearca a se deschide SHARED toate tabelele BD 
PUBLIC vTabele 
DIME vTabele(5,1) 
ADBOBJECTS(vTabele, "TABLE") 
LOCAL i 
FOR i = 1 TO ALEN(vTabele) 
tab_ = vTabelei) 
* apelul functiei care incearca deschiderea SHARED a tabelei 


IF !deschidere_tabele (UPPER(ALLT(tab_))) 
MESSAGEBOX('Cu durere in glas, aplicatia nu poate fi lansata !') 
bi se poate alege iesirea din aplicatie, chiar din VEP 
QUIT 
sau predarea controlului programului principal 
zi RETURN TO MASTER 
ENDIF 


* daca exista macar un index, primul (dintre indecsi) devine principal 
SELECT (tab_) 
IF TAGCOUNT() > 0 
SET ORDER TO TAG 1 
ENDIF 
PUBLIC trg_ins_&tab_, trg_upd_&tab_, trg_del_âtab_ 
ENDFOR s 
PUBLIC vRelatii, vCopii, vParinti, vTaguriCopil, vTaguriParinte 
DIME vRelatii(4,4), vCopii(1), vParinti(1), vTaguriCopil(1), vTaguriParinte(1) 
ADBOBJECTS(vRelatii, 'Relation”) 
* prima coloana din vRelatii - tabela COPIL 
* a doua coloana din vRelatii - tabela PARINTE 
* a treia coloana din vRelatii - index (tag) COPIL 
* a patra coloana din vRelatii - index(tag) PARINTE 
DIME vCopii(ALEN(vRelatii,1)), vParinti(ALEN(vRelatii,1)), ; 
VTaguriCopil(ALEN(vRelatii,1)), vTaguriParinte(ALEN(vRelatii,1)) 
FOR i = 1 TO ALEN(vRelatii,1) 
vCopii(i) = vRelatii(i,1) 
vParinti(i) = vRelatii(i,2) 
vTaguriCopii(i) = vRelatii(i,3) 
vTaguriParinte(i) = vReiatiiţi,4) 
ENDFOR 
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** la fiecare iesire din VFP se salveaza o copie a procedurilor stocate 
ON SHUTDOWN DO sa!vare_proceduri_stocate 


PROCEDURE deschidere_tabele 
PARAMETER tabela_ 
LOCAL i 
succes_=.F. 
FORi=1T03 
succes_ = incercare_deschidere((iabela_)) 
IF succes_ 
EXIT 
ELSE 
WAIT “Tentativa nr. "+STR(I,1)+" de deschidere partaiata a tabelei "+tabela_; 
WINDOW NOCLEAR TIMEOUT 5 
ENDIF 
ENDFOR 
IF Isucces_ 
MESSAGEBOX('Tabela ' + tabela_+ ' n-a putut fi deschisa partajabil +CHR(13)+; 
“nici dupa trei tentative (15)secunde !') 
RETURN .F. 
ENDIF 
WAIT CLEAR 
RETURN .T. 
RETURN 


* 


FUNCTION incercare_deschidere 
PARAMETER tabela_ 


* se testeaza daca tabela nu e deja deschisa partajat 
IF USED((tabela_)) AND !ISEXCLUSIVE((tabela_)) 
* e-n regula 
ELSE 
IF USED((tabela_)) && tabela e deja deschisa exclusiv 
SELECT (tabela_) 
USE 
ENDIF A 
* se “inhiba” afisarea pe ecran a mesajului erorii 1705 
* (File access is denied) 
ON ERROR aaaz= 1 
* se incearca deschiderea partajata a tabelei 
USE (tabela_) IN O SHARED 
* se reia afisarea mesajelor de eroare 
„ON ERROR 
* nu s-a reusit deschiderea; se returneaza FALSE 
IF WUSEDi((tabela_)) 
RETURN .F. 
ENDIF 
ENDIF 
* e-n regula ! tabela e deschisa SHARED 
RETURN T. 


oN 
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13.2.2. Blocajul la nivel de tabelă 


Bun, veți spune, dacă deschiderea exclusivă este atât de restrictivă, uităm de opțiunea 
EXCLUSIVE şi ne legăm pe viață de SHARED. Din păcate, acest lucru nu este posibil, 
deoarece o serie de comenzi sunt operaționale numai dacă tabela a fost deschisă exclusiv: 

+ ALTER TABLE şi MODIFY STRUCTURE; 

ə INDEX şi REINDEX; 

e PACK şi ZAP; 

e INSERT [BLANK] -comanda xBase (nu INSERT SQL). 


În afara acestora, sunt o serie de comenzi care, deşi tabela pe care operează este 
deschisă partajabil, blochează toate înregistrările, astfel încât toți ceilalți utilizatori pot 
vizualiza datele fără a modifica nici un atribut: 

e DELETE cu opțiunile ALL, FOR sau WHILE; 

e RECALL cu opțiunile ALL, FOR sau WHILE; 

REPLACE cu opţiunile ALL, FOR sau WHILE; 

UPDATE şi UPDATE SQL; 

TABLEUPDATE ()dacă a fost stabilit un buffering la nivel de tabelă (vezi 
paragraful următor). 


Blocajul exclusiv al întregii tabele curente poate fi realizat şi prin funcția FLOCK (), 
care întoarce .T. dacă operațiunea de blocare a reuşit şi .F. dacă tabela sau o 
înregistrare a sa a fost blocată de un alt utilizator. În mod obişnuit, funcţia are o singură 
tentativă de „încuiere”, însă numărul tentativelor sau perioada de încercări pot fi controlate 
prin comanda SET REPROCESS. O tabelă poate fi deblocată explicit prin comanda 
UNLOCK şi implicit prin comenzile: USE (fără argumente — care închide tabela), CLEAR 
ALL, CLOSE DATABASES, CLOSE TABLES şi la ieşirea din sesiunea VFP. 


13.2.3. Blocajul antetului unei tabele 


Blocajul la nivel de tabelă este cel mai sever, deoarece toţi ceilalți utilizatori pot doar să 
citească înregistrările, Al doilea tip de „încuiere”, ca severitate, este la nivel de antet al 
tabelei (rable header), care permite modificarea înregistrărilor de la alte posturi, însă fără 
posibilitatea de a adăuga noi linii în tabela respectivă. 

Următoarele comenzi „practică” acest tip de blocaj: 

e APPEND; 
APPEND BLANK; 
APPEND. FROM; 
APPEND FROM ARRAY; 
INSERT SQL. 


e o o e 


Dacă doi utilizatori lansează simultan o asemenea comandă asupra aceleiași tabele, 
atunci al doilea va recepționa în plin ecran mesajul de eroare File is in use by 
another. 


Blocarea explicită a antetului unei tabele poate fi realizată prin funcția RLOCK() sau 
LOCK (), în care valoarea argumentului care indică înregistrarea sau înregistrările de 
blocat este 0. De exemplu: 

LOCK ('clienti', 0) 

sau 

RLOCK ('facturi! ș- 0). 


„Descuierea” explicită a antetului se poate realiza prin comenzile: 
e UNLOCK RECORD O; 

e  UNLOCK; 

e UNLOCK ALL. 


13.2.4. Blocajul la nivel de înregistrare 


Cel mai plauzibil scenariu de lucru în rețea este cel în care fiecare utilizator editează, la 
un moment dat, propria înregistrare. Pentru ca din momentul editării unei înregistrări (care 
este cel al primei modificări a valorii unui câmp) până la trecerea pe o altă înregistrare sau 
„comiterea” efectivă a modificărilor înregistrarea să-şi păstreze coerenţa, majoritatea 


comenzilor de editare blochează înregistrarea vizată (blocarea are loc în momentul primei 
modificări a unui câmp): 


° BLANK; 

e BROWSE, CHANGE, EDIT; 

e DELETE Şi DELETE RECORD; 
e DELETE SQL; 

e GATHER; 

e  MODIEY MEMO; 

e REPLACE; 

e SHOW GETS. 


Acest tip de „încuiere” este cel mai puțin restrictiv şi cel mai indicat în aplicaţiile 
gândite a lucra în rețea. Dacă, spre exemplu, printr-o comandă BROWSE se încearcă 
modificarea unei înregistrări în curs de editare de alt utilizator (care a operat deja cel puţin o 
modificare în această înregistrare), se afişează mesajul de avertizare Attempting to 
lock... Press ESC to cancel, iar sesiunea de lucru este blocată. Deblocarea se 
realizează fie dacă celălalt utilizator termină modificările şi „descuie” înregistrarea, fie dacă 
utilizatorul curent apasă tasa ESCape, semn că renunță. 

În aplicaţii, mesajul de eroare ce poate să apară la încercarea de editare a unei 
înregistrări în curs de modificare în altă sesiune este Record is in use by 
another. 

Din experiența noastră, comenzile de tipul celor de mai sus sunt destul de rezonabile în 
ceea ce priveşte mecanismul de blocare, în sensul că timpul de „încuiere” este foarte scurt, 
celelalte sesiuni nefiind incomodate de modificările de pe o stație., Cu totul altfel stau 


lucrurile atunci când se lucrează cu tranzacţii. Să luăm în discuţie procedura din 
listingul 13.4. 
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Listing 13.4. Testarea blocajului la nivel de înregistrare 

SET REPROCESS TO 0 

IF IUSED('clienti') 
USE clienti IN 0 SHARED 

ENDIF 

*BEGIN TRANSACTION 

SELECT CLIENTI 

LOCATE FOR CodCI = 1003 

n =t 

siri_ = "2" 

FOR i = 1 TO 50000 
şir1__ = sir1_ + ALLT(STR(nr_)) i 
REPLACE Adresa WITH "Prosperitatii, "+sir1_ 
n =n +1 

ENDFOR 


*END TRANSACTION 
RETURN 

Lansată simultan de iu două sau mai multe staţii, procedura funcționează rezonabil, 
stațiile predându-şi controlul la intervale scurte de timp, astfel încât nici una nu va fi a 
prea mult timp. Fireşte, dacă numărul stațiilor este mai mare, situația se complică. În 
schimb, dacă se „de-comentează” comenzile -BEGIN TRANSACTION si END 
TRANSACTION, blocajul apare în toată splendoarea sa. Aceasta deoarece prima modificare 
apărută în cadrul tranzacţiei duce la „încuierea” înregistrării până la END TRANSACTION. 


Celelalte staţii trebuie să aştepte ca procedura să se execute în totalitate, după care primesc, 
pe rând, controlul. 


Funcţiile RLOCK () şi LOCK() încearcă blocarea înregistrării curente un număr de 
ori/secunde stabilite prin comanda SET REPROCESS şi întorc valoarea logică TRUR 
(. T.) dacă încuierea a fost reuşită. Folosirea lor în programe prezintă avantaje Ta 
diminuarea. şi chiar înlăturarea timpilor de aşteptare sau interblocajelor, semnalizarea 
imposibilității accesului la o anumită înregistrare, eliminarea riscului apariției de erori etc. 


Listingul 13.5 prezintă o variantă evoluată a procedurii anterioare. Practic, de Ca 
de la care este lansat, programul modifică de 15.000 de ori valoarea adresei clientului y ; 
După fiecare REPLACE, comanda UNLOCK descuie înregistrarea şi afişează un mesaj de 
eroare, timp în care de pe celelalte stații se pot efectua modificări. 


Listing 13.5. Folosirea funcție RLOCK() 


SET REPROCESS TO 1 


IF IUSED('clienti) 
USE clienti IN 0 SHARED 
ENDIF 


SELECT CLIENTI 

LOCATE FOR CodCi = 1003 

nr_=1 

FOR i= 1 TO 15000 i 
succes _=.F. 
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DO WHILE !succes_ 

siri_=*"+ ALLT(STR(nr_)) 

IF RLOCK() a 
WAIT "Modific inregistrarea... " WINDOW NOWAIT 
REPLACE Adresa WITH "Prosperitatii, "+sir1 
UNLOCK T 
WAIT "Am modificat inregistrarea. SIR1_ este " + siri 

WINDOW NOWAIT TIMEOUT 0.01 gi 


i 


n= +i 
succes_= Ţ, 
ELSE i 
îi WAIT “inregistrarea e blocata de alta statie” WINDOW NOCLEAR NOWAIT TIMEOUT 
ENDIF 
ENDDO 
ENDFOR 
RETURN 


13.3. Despre buffering 


Discuția despre modalitățile de blocare capătă cu totul alte nuanțe atunci când intră în 
acțiune o facilitate proprie versiunilor „Visual” ale FoxPro — buffering-ul. Spre deosebire de 
modul „clasic” de lucru, prin buffering scrierea pe disc a modificărilor poate fi amânată 
astfel încât timpul de blocare este redus la minimum. Pe de altă parte, prin buffering există 
şi posibilitatea tratării cazurilor în care două stații modifică aceleaşi valori. i 

Ideea buferring-ului este următoarea: în momentul editării unei înregistrări (momentul 
primei modificări), în memoria locală se copiază o instanță a înregistrării înàinte de 
modificare. În tot acest timp, oricare alt utilizator (stație) poate accesa şi edita această 
înregistrare, Atunci când în sesiunea curentă pointerul tabelei este mutat pe o altă 
înregistrare sau se încearcă propagarea modificărilor curente pe disc, VFP încearcă să 
blocheze înregistrarea şi verifică dacă alt utilizator a efectuat modificări în linia curentă 
comparându-se valorile curente de pe disc cu valorile-martor din memoria locală. Dacă cele 
două instanţe — cea veche, stocată în memoria locală şi cea nouă de pe disc (copia principală 
a bazei de date) — sunt identice, atunci modificările sunt „comise” pe baza de date 
principală; în caz contrar, se declanşează o eroare. 

Este important de ştiut că buffering-ul modifică momentul declanşării regulilor de 
validare. Cele de la nivel de atribut se verifică tot după modificarea valorii atributului, la 
ieşirea din câmp, însă cele de la nivel de înregistrare, în momentul „comiterii” pe disc, De 
exemplu, în lipsa buffering-ului, o comandă APPEND BLANK în care cheia primară preia o 
valoare implicită deja existentă declanşează imediat eroarea de unicitate a indexului. iar 
adăugarea nu mai are loc. Cu buffering însă, înregistrarea se adaugă, iar verificarea 
unicității se face în momentul „scrierii” înregistrării pe disc: 
| Acest lucru este deosebit de important. Folosind buffering-ul, problema valorilor 
implicite, care nu trebuie să întoarcă valori care să pericliteze unicitatea cheilor primare, îşi 


pierde importanţa. De aici posibilitatea eliminării unor proceduri ce pot micşora serios 
viteza aplicaţiei. 


, Buffering-ul poate fi stabilit la nivel de înregistrare sau la nivel de tabelă. În primul caz 
in memorie se încarcă numai câte o linie a tabelei editate; la deplasarea pointerului pe o altă 
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înregistrare sau prin comanda TABLEUPDATE (), se încearcă a se scrie conținutul 
bufferului. Folosind table buffering în buffer sunt încărcate mai multe înregistrări simultan; 
editarea lor se face în bufferul local, scrierea efectivă pe disc realizându-se prin intermediul 
funcției TABLEUPDATE (}. 

Ambele tipuri de buffering pot bloca înregistrarea sau grupurile de înregistrări în două 
moduri: optimistic şi pessimistic. Buffering-ul pesimist este mai sigur, însă blochează cel 
mai sever înregistrarea/grupul de înregistrări: din momentul încărcării în butterul local până 
în momentul scrierii acestuia pe disc, nici un alt utilizator nu poate edita respectiva 
înregistrare sau grup de înregistrări. Este similar modului „clasic” de blocare din versiunile 
FoxPro 2.x. În modul optimistic, după momentul încărcării în bufferul local, înregistra- 
rea/grupul de înregistrări poate fi editată/editate şi de alți utilizatori. Verificarea concor- 
danţei valorilor actuale ale înregistrării cu valorile din momentul încărcării în buffer se 
realizează în momentul scrierii bufferului pe disc; dacă nu există nici o modificare, atunci se 
face transferul din buffer pe disc; altminteri, se afişează mesajul Update conflict (funcția 
TABLEUPDATE () întoarce valoarea logică false (.F.)). Este adevărat, prin funcția 
TABLEUPDATE () se poate suprascrie valoarea curentă (tot ce au modificat ceilalți 
utilizatori se pierde iremediabil) a înregistrării. 

Declararea tipului de buffering se realizează prin comanda-funcție CURSORSET- 
PROP(). Astfel, CURSORSETPROP ('Buffering',1) dezaciivează utilizarea 
bufferului, CURSORSETPROP ('Buffering!',2) stabileşte un buffering de tip 
pessimistic la nivel de înregistrare, CURSORSETPROP | 'Buf fering',3) -— buffering 
de tip optimistic la nivel de înregistrare, CURSORSETPROP ('Buffering', 4) =- 
stabileşte un buffering de tip pessimistic la nivel de tabelă, iar CURSORSETPROP 
('Buffering',5) stabileşte un buffering de tip optimistic la nivel de tabelă. 
CURSORSETPROP întoarce valoarea logică true (.T.), dacă operațiunea a reuşit, şi 
false (.F.) în caz contrar. 

Pentru stabilirea buffering-ului (opțiunile 2, 3, 4 şi 5) este necesar ca parametrul - 
MYLTILOCKS să fie setat pe ON (prin comanda SET MULTILOCKS ON). 

Pentru optimizarea traficului în rețea, o importanță deosebită o prezintă buffering-ul 
optimistic — de tip 3 şi 5. Este şi motivul pentru care vom limita discuția următoare numai la 
acestea. 


13.3.1. Row Optimistic Buffering 


Bufferul este limitat la o singură înregistare. Înregistrarea curentă se încarcă în buffer, pe 
disc fiind disponibilă pentru editare şi altor utilizatori. Toate modificările locale se fac 
exclusiv în buffer. Abia atunci când cursorul este deplasat pe altă înregistrare sau se 
lansează funcția TABLEUPDATEQ), sistemul încearcă scrierea pe disc a bufferului, Dacă 
înregistrarea din buffer a fost modificată între timp de un alt utilizator, VFP generează 
eroarea 1585 (Update conflict), respectiv funcţia TABLEUPDATEQ întoarce valoarea 
logică False. Schema este prezentată în figura 13.2. 
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Figura 13.2. Schema buffering-ului la nivel de înregistrare 


Firește că în aplicații, pentru controlul actualizărilor, funcția TABLEUPDATEC) este 
foarte utilă. Cei mai importanți parametri sunt: 
TABLEUPDATE | (nRows f; lForce]}] [, cTableAlias | nWorkArea] [, 


cErrorārray])} 


Argumentul nRows este de tip numeric (conform documentației, „poate avea una din 
valorile 0, 1 şi 2) şi indică, în modul table opimistic buffering, dacă se încearcă scrierea 
tuturor înregistrărilor modificate în buffer sau numai a înregistrării curente, Parametrul 
lForce determină suprascrierea sau nu pe disc a înregistrării cu valorile curente din 
buffer. Dacă acesta este setat pe true (.T.), atunci valorile din buffer sunt scrise pe 
disc fără a se mai verifica dacă, între timp, alt utilizator a modificat sau nu valorile originale 
(din momentul încărcării în buffer) ale înregistrării. Dacă 1Force este setat pe false 
C.F.) — valoare implicită —, atunci când un alt utilizator a modificat înregistrarea aflată în 
bufferul local, VFP generează o eroare, iar funcția întoarce false (F. ). Pentru 
controlul erorilor generate de VFP, se poate folosi o procedură desemnată prin comanda ON 
ERROR sau, mai elegant, funcția AERROR. 

Interesant este şi faptul că TABLEUPDATE( ) este operabilă nu numai asupra tabelelor 
pentru care s-a stabilit o formă de buffering, ci şi asupra celor care prezintă reguli de 
validare de nivel de câmp, înregistrare sau tabelă. 


13.3.2. Table Optimistic Buffering 


După cum îi spune şi numele, buffering-ul optimist la nivel de tabelă presupune 
încărcarea simultană în bufferul local a tuturor înregistrărilor modificate. Înregistrările 
editate sunt scrise pe disc numai la folosirea explicită a comenzii TABLEUPDATE, prin 
următoarea secvență: 

ə se încearcă blocarea fiecărei înregistrări editate; 
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* după blocare se compară valoarea curentă (de pe server) a fiecărui atribut cu 
valoarea „originală” (dinaintea modificărilor locale); 
* dacă nu sunt diferențe între valorile curente și cele originale, se scrie înregistrarea 
pe disc (server); 
e dacă valorile diferă, se generează o eroare. 
Întrucât o eroare poate să apară la a n-a înregistrare dintre cele modificate, este 
recomandabil ca TABLEUPDATE să apară într-o tranzacţie (acest lucru nu era atât de 
important în cazul buffering-ului la nivel de înregistrare). 


13.4. Formular în care se foloseşte buffering optimist 
la nivel de înregistrare 


Pentru a ilustra practic modul de folosire a buffering-ului optimist la nivel de linie, 
pornim de la un formular simplu ce vizează actualizarea tabelei PRODUSE. Un plus de 
simplitate a fost obținut prin eliminarea (pe nedrept) a atributului Imagine, care e de tip 
General. Formularul se numeşte produs0 şi e prezentat în figura 13.3. 

Cele patru butoane navigaţionale din partea superioară sunt denumite cmaPrimul, 
cmăPrecedentul, cmăUrmatorul şi cmdUltimul, cele trei de editare — 
cmăProdusNou, cmdModi ficare şi cmdStergere, iar cele din partea inferioară 
sunt cmdOK şi cmdAbandon. Căsuţele de text au acelaşi nume ca al atributului la care sunt 
legate (prin proprietatea ControlSource), prefixate, după notația ungurească, cu txt. 


Figura 13.3. Formularul PRODUSEO 


Căsuţa de validare a fost botezată chkPrezintaTVA, iar grupul de butoane de 
opțiune, opt TVA. În privința combo-box-ului, cele mai importante proprietăţi se prezintă 
astfel: RowSourceType: 3 — SQL Statement, iar RowSource: SELECT DenPr, CodPr 
FROM produse INTO CURSOR cProduse ORDER BY DenPr. Formularul mai prezintă 
şi două proprietăți-utilizator, nivel_tranzactie şi succes folosite pe parcursul 
metodelor ce urmează a fi descrise în continuare. 
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Începem prezentarea metodelor cu INIT din listingul 13.6. Se verifică dacă baza de 
date este deschisă şi, în caz contrar, se deschide în mod partajat şi se lansează procedura 
stocată pentru deschiderea tuturor tabelelor — setup. Prin CURSORSETPROP se declară 
buffering-ul de tip optimist la nivel de înregistrare, 


Listing 13.6. Metoda Init a formularului 


* se deschide baza de date (daca nu e deja deschisa) 
IF I(DBUSED('vinzari”) 

OPEN DATA vinzari SHARED 

DO setup 
ENDIF 


SELECT produse 
* se dezactiveaza Buffering-ul 
=CURSORSETPROP('Buffering', 3) 


* se stabileste indexul principal al tabelei 
SET ORDER TO TAG CodPr 


* se rezolva problema inregistrarii curente 
IF EOF() OR BOF( 

GO BOTTOM 
ENDIF 


THISFORM.Nive!_Tranzactie = TXNLEVEL) 


* se apeleaza metoda de reimprospatare a formularului d. 
THISFORM.Refreseaza E 


În plus, nu trebuie uitat ca în procedura principală - setup — să mai fie adăugate (cel 
puţin) două comenzi: 
SET DELETE ON 
SET MULTILOCKS ON 


Listingul 13.7 conţine corpul metodei refreseaza, necesară în completarea metodei- 
-sistem refresh pentru sincronizarea combo-box-ului și grupului de butoane de opţiune. 


Listing 13.7. Metoda refreseaza 


[ THISFORM.Retresh 
FOR i = 1 TO THISFORM.cboPraduse ListCount 
IF VAL(THISFORM.cboProduse List(i,2)) = Produse.CodPr 
THISFORM.cboProduse.Listindex = į 
EXIT ăi 
ENDIF 
ENDFOR 


DO CASE 

CASE EMPTY (produse.procTVA) 
THISFORM.chkPrezintaTVA.Value = 0 
THISFORM.optTVA.Value = 3 

CASE produse.procTVA = .09 
THISFORM.chkPrezintaTVA.Value = 1 
THISFORM.optTVA.Value = 1 

CASE produse.procTVA = .19 
THISFORM.chkPrezintaTVA. Value = 1 
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| THISFORM.optTVA.Value = 2 
OTHERWISE 


THISFORM.chkPrezintaTVA. Value = 1 
THISFORM.opitTVA.Value = 3 - 

ENDCASE 

THISFORM.txtProcTVA. Value = produse .procTVA 


Pentru activarea căsuțelor de tip text (simultan cu dezactivarea celorlalte controale — 
combo-box-ul, butoanele de navigare şi cele de adăugare/modificare/ştergere) se foloseşte 
metoda activare_ controale (listingul 13,8), 


Listing 13.8. Metoda activare_controale 


WITH ȚHISFORM 
„emdPrimul.Enabied=.F. 
„emdPrecedentul.Enabied=.F. 
„emduUrmatorui. Enabled=,F. 
„emdijitimui. Enabied=.F. 
„cboProduse Enabied=.F. 
„emdProdusNou.Enabied=.F. 
.emdModificare.Enabled=.F. 
„emdStergere.Enabled=.F. 
„btDenPr.Enabied=.T. 
AKUM. Enabied= T. 
ixtGrupa Enabied=.Ț. 
„chkPrezintaTVA.Enabled=.T. 

ENDWITH 


IF THISFORM.chkPrezintaTVA. Value = 1 
THISFORM.optTVA.Enabled=.T. 
ELSE 
THISFORM optTVA.Enabled=.F. 
ENDIF, 


După editarea unei înregistrări este necesară confirmarea sau abandonarea modificărilor, 

iar apoi activarea butoanelor de navigare şi „înghețarea” căsuţelor de tip text, astfel încât 
: : 4 ip 2 

este necesară o metodă specială numită dezactivare_controale (vezi listingu! 13.9). 


Listing 13.9. Metoda dezactivare_controale 
meaane aa ICI EREI IEI 
WITH THISFORM 


„emdPrimul.Enabled=.T. 
„cmdPrecedentul.Enabied=.T. 
.emdUrmatorul.Enabied=.T. 
„emduitimul.Enabied=.T, 
„cboProduse.Enabied=.T, 
„cmdProdusNou.Enabled=.T, 
„emdModificare.Enabled=.T, 
„emdStergere.Enabled=.T, 
xtDenPr.Enabled=.F. 
AxtUM Enabled=.F. 
ixtGrupa Enabled= F. 
„GhkPrezintaTVA Enabled=.F. 
„OptiTVA.Enabled=.F. 
ENDWITH 
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Trecem la descrierea principalelor metode pentru controalele formularului. La selectarea 
unei opțiuni din combo-box se mută pointerul pe înregistrarea corespunzătoare din cursorul 
cProduse (datorită proprietăților RowSsourceType şi RowSource ale combo-ului). 
Metoda InteractiveChange poziţionează cursorul în tabela PRODUSE pe 
înregistrarea aferentă din cursor cProduse — vezi listingul 13.10. 


Listing 13.10. Metoda Inte ractiveChange pentru controlul cboProduse 


=SEEK (cProduse CodPr. 'produse', 'codpr) 
THISFORM.Refreseaza 


Pentru butoanele de navigare, singura metodă care interesează este Click, care este 
asemătoare — listingurile 13.11, 13.12, 13.13 şi 13.14. 


Listing 13.11. Metoda asociată evenimentului Click pentru controlul cmăPrimul 


SELECT cProduse 
GO TOP 


THISFORM.cboProduse. InteractiveChange 


Listing 13.12. Metoda asociată evenimentului Click pentru controlul cmaPrecedentul 


SELECT cProduse 
IF !BOFQ 
SKIP -1 
ELSE 
GO TOP 
ENDIF 
THISFORM.cboProduse.InteractiveChange 


Listing 13.13. Metoda asociată evenimentului Click pentru controlul cmaurmatorul 


SELECT cProduse 
IF 1EOF() 
SKIP 
IF EOF( 
GO BOTTOM 
ENDIF 
ELSE 
GO BOTTOM 
ENDIF 
THISFORM.cboProduse. InteractiveChange 


ici a a et 


Listing 13.14. Metoda asociată evenimentului Click pentru controlul cmau1t imul 


SELECT cProduse 
GO BOTTOM 


THISFORM.choProduse. interactiveChange 


Dintre căsuţele de tip text, doar txtProcTVA prezintă o metodă prin care se 
actualizează valoarea atributului PRODUSE. ProcTVA cu valoarea acestui control — vezi 
listingul 13,15. 
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Listing 13.15. Metoda Valia pentru controlul txtProcTVA 


[ REPLACE produse.procTVA WITH THISFORM.txtProcTVA. Value 


Metoda Click a căsuței de validare chkPrezintaTVA este cea din listingul 13.16, 
iar metoda asociată aceluiaşi eveniment pentru grupul butoanelor de opțiune este prezentată 
în listingul 13.17. 


Listing 13.16. Metoda Click pentru controlul chkPrezintaTVA 


IF THIS Value = 1 && Inainte produsul nu prezenta TVA, acum DA ! 
THISFORM.optTVA.Enabled = .T. 
THISFORM.optTVA.Value = 2 
THISFORM.bxtProcTVA.Value = 19 

ELSE && Inainte prezenta TVA, acum NU 
THISFORM.optTVA.Value = 3 
THISFORM.btProcTVA.Value = 0 
THISFORM.optTVA.Enabled = .F. 

ENDIF 


THISFORM.txtProcTVA. Valid 


Listing 13.17. Metoda Click pentru grupul butoanelor de opțiune (optTVA) 


DO CASE 

CASE TH!S.Value = 1 && primul buton (9%) este marcat 
THISFORM.txtProcTVA.Vaiue = .09 
THISFORM.bxtProcTVA.Enabled = F. 

CASE TH!IS.Value = 2 && al doilea buton (19%) este marcat 
THISFORM.txtProcTVA Value = .19 
THISFORM.btProcTVA.Enabled = .F. 

OTHERWISE && al treilea buton din grup (alt procent) este marcat 
THISFORM ixtProcTVA. Enabled = „T. 
THISFORM.txtProcTVA. SetFocus 

ENDCASE 

THISFORM txtProcTVA.Valid 


Ne apropiem de miezul evenimentelor. Listingul 13.18 conţine corpul metodei asociate 
evenimentului Click pentru controlul cmăProdusNou. Ideea este ca, la adăugare, să se 
recupereze o eventuală înregistrare marcată pentru ştergere. Artificiul se poate dovedi foarte 
util, câtă vreme singurul mod de a elimina fizic înregistrările marcate pentru ştergere ţine de 
folosirea comenzii PACK, imposibil de lansat în modul SHARED. 


Listing 13.18. Metoda Click pentru cmdProdusNou 


SELECT produse 
SET DELE OFF 
LOCATE FOR DELETED() 
IF EOF() 
APPEND BLANK 
ELSE 
RECALL 
REPLACE CodPr with det_codpr_produseț) 
ENDIF 
REPLACE DenPr with "<Produs Nou>", UM WITH 'buc”, grupa WITH "", ProcTVA WITH .19 


SET DELETE ON 
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THISFORM.Refreseaza 
THISFORM.Activars_Controale 
THISFORM ixtDenPr.SetFocus 


Metoda asociată evenimentului Click pentru butonul de control cmaMoai ficare 
(listingul 13.19), prin care se poate trece la modificarea datelor generale despre produse, 
este una dintre cele mai simple. 


Listing 13.19. Metoda Click pentru cmdModi ficare 
THISFORM Activare_Controale : 
THISFORM.ixtDenPr.SetFocus 
Aceeaşi metodă a controlului cmaStergere (listingul 13.20) trebuie să dea 


utilizatorului posibilitatea să evite ştergerile accidentale, scop pentru care se afişează un 
mesaj care cere confirmarea ştergerii. 


Listing 13.20. Metoda CLick pentru cmdStergere 


IF MESSAGEBOX('Chiar trebuie sters produsul '+ALLT(produse.denpr)+' ?,4+32+0) = 6 && Yes 
SET DELETE OFF 


SELECT produse 
BEGIN TRAN 
ON ERROR A=1 
DELETE 
IF DELETEDO 
END TRAN 
IF !EOF() 
SKIP 
ELSE 
SKIP -4 
ENDIF 
THISFORM.cboProduse.Requery 
THISFORM.Refreseaza 
ELSE 
ROLLBACK 
ENDIF 
ENDIF 
ON ERROR 
SET DELETE ON 


Au mai rămas în discuție metodele asociate evenimentului Click ale celor două 
butoane de comandă ce sunt disponibile pe tot parcursul sesiunii de lucru (cu formularul), 
cmdOK şi cmdAbandon. Începem cu al doilea, deoarece lucrurile sunt mai simple în acest 
caz — listingul 13.21. 


Listing 13.21. Metoda Click pentru cmdAbandon 


SELECT produse 
IF '2' $ GETFLDSTATE(-1) OR '3' $ GETFLDSTATE(-1) OR '4' $ GETFLDSTATE(-1) 
IF THISFORM.Nivei_Tranzactie < TXNLEVEL() 
ROLLBACK 
ENDIF 
=TABLEREVERT() 
ELSE 
IF MESSAGEBOX('Doriti sa inchideti formularul ?',4+32+0) = 6 && Yes 
DO WHILE ȚHISFORM.Nivel_ Tranzactie < TXNLEVEL 
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© ROLLBACK 
ENDDO 
THISFORM.Release 
ENDIF 
ENDIF 
THISFORM.Refreseaza 
THISFORM.Dezactivare_Controale 


Această metodă este prima ce utilizează funcții şi opțiuni specifice buffering-ului. 
Astfel, pe a doua linie, prin funcția GETFLDSTATE se testează dacă înregistrarea curentă 
este una nouă sau dacă au fost operate modificări în înregistrarea curentă. Argumentul —1 al 
funcţiei GETFLDSTATE furnizează un şir de caractere ce indică atât starea fiecărui câmp în 
parte, cât şi starea de ansamblu a înregistrării. 

Dacă au fost operate inserări sau modificări, se închid eventualele tranzacții deschise de 
la intrarea în formular (scop în care este folosită proprietatea Nivel_Tranzactie a 
formularului) şi se „curăță” bufferul (implicit, se anulează toate modificările din buffer). 
Acţionarea acestui buton în condițiile inexistenţei vreunei modificări constituie semnalul că 
utilizatorul vrea să închidă formularul, astfel încât i se cere confirmarea închiderii. 


Este de presupus, totuşi, ca utilizatorul să mai şi salveze ceea ce a lucrat, aşa încât cel 
mai important buton al formularului, cel prin acţionarea căruia se „consfințesc” modifi- 
cările, este cmdOK. Metoda asociată acestui eveniment este cea din listingul 13.22. 


Listing 13.22. Metoda Click pentru cmaOK 
D tr i a E i ni E aE i EEE e 
SELECT produse 
IF '2' $ GETFLDSTATE(-1) OR '3' $ GETFLDSTATE(-1) OR '4' $ GETFLDSTATE(-1) 
THISFORM. ScrieBuffer 
IF THISFORM.Succes 
THISFORM.cboProduse.Requery 
THISFORM .Refreseaza 
THISFORM.Dezactivare_Controale 
ELSE 
THISFORM.ixtDenPr.SetFocus 
ENDIF 
ELSE 
IF MESSAGEBOX('Doriti sa inchideti formularul ?',4+32+0) = 6 && Yes 
DO WHILE THISFORM,Nivei_Tranzactie < TXNLEVEL() 
END TRANSACTION 
ENDDO 
THISFORM.Release 
ENDIF 
ENDIE 


| IL >30 A E RR e 


Ca şi pentru butonul cmdAbandon, se verifică dacă au fost operate modificări în tabela 
PRODUSE. Dacă dă, se apelează o metodă specială pentru „scrierea” bufferului pe disc 
(ScrieBuffer) şi, la revenirea din această metodă, se verifică dacă „scrierea” a fost un 
succes (caz în care se dezactivează text-box-urile şi se activează butoanele navigaţionale şi 
combo-ul) sau un eşec, situaţie în care se continuă cu editarea înregistrării curente, 
predându-se controlul către txtDenbr. 

Prin urmare, metoda-cheie în scrierea bufferului pe disc şi tratarea eventualelor conflicte 
şi altor erori este ScriereBuffer, prezentată în listingul 13.23. 
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Listing 13.23. Metoda scrieBuffer 


Visual FoxPro 


SELECT produse 
SET REPROCESS TO 1 
deschis_ = „fi 
WAIT 'Asteptati pina se deblocheaza inregistrarea! WINDOW AT 30,30 NOWAIT 
DO WHILE Ideschis_ Săi 
IF RLOCKO 
deschis_= 4. 
ELSE 
S ‘Asteptati pina se deblocheaza inregistrarea !' window at 30,30 nowait noclear 
ENDDO 
WAIT CLEAR 
ON ERROR 
PrimaQara = .T. 
gata_= F. 


BEGIN TRANSACTION 
DO WHILE !gata_ : 
IF PrimaOara 
THISFORM.Succes = TABLEUPDATE(1, F.) 
PrimaOara = .F. 
ELSE A i 
THISFORM.Succes = TABLEUPDATE(1, T.) 
IF ITHISFORM. Succes 
IF MESSAGEBOX('Abandonati modificarile de pe linia curenta ?',4+32+0) = 6 && Yes 
ROLLBACK 
TABLEREVERT() 
gata_= T. 
ENDIF 
ENDIF 
ENDIF 


IF ITHISFORM. Succes 
AERROR(erori) 


DO CASE 
CASE eroriț1,1] = 1884 && unicitate violata 
IF erori[1,3] = 'CODPR! && de la cheia primara ni se trage 
REPLACE codpr WITH def_codpr_produseţ) 
PrimaQara = .T. 
ELSE . 

&& se dubleaza alte chei candidat 

PrimaOara = T. 

MESSAGEBOX('Valoarea aferenta indexului erori + ; 
clei e ( erori(1,3)+' se repeta 11!) 
RETURN 

ENDIF 


CASE erori[1,1] = 1585 OR erori[1,1] = 1595 
- FOR i = 1 TO FCOUNT() - 1 && ultimul cimp este de tip General 
modificat_ =t. 
cimp. = FIELD(i) 
IF OLDVAL(cimp_) <> CURVAL(cimp_) 

CeFac_ = MESSAGEBOX('Si alt utilizator a modificat - +; 
cimp_+'.'+CHR(13)+;' Le pastram pe ale noastre ? dă 
4+48) 

IF CeFac_=7 
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REPLACE (cimp ) WITH CURVAL(cimp ) 
ENDIF 
ENDIF 
ENDFOR 
ENDCASE 
ELSE 
END TRANSACTION 
gata_=.T. 
ENDIF 
ENDDO 
UNLOCK 


Deşi prin folosirea tranzacţiilor înregistrarea se blochează automat, pentru a semnaliza 
situațiile de blocaj se foloseşte sistemul „manual” expus în paragrafele anterioare. 

Prima încercare de scriere a bufferului pe disc este fără forțarea suprascrierii (al doilea 
argument al funcției TABLEUPDATE este .F.). În caz că apare vreo eroare, informațiile 
despre aceasta sunt preluate prin funcţia AERROR în vectorul erori. 

Una dintre situațiile-problemă tratate este cea în care doi sau mai mulți utilizatori adaugă 
simultan câte un produs. Funcţia stocată de f_codpr_produse întoarce aceeaşi valoare a 
PRODUSE.CodPr, iar la comiterea adăugărilor pe disc se declanşează eroarea 1884 
datorată duplicării valorii unei chei primare (sau candidat). Problema se rezolvă elegant prin 
apelarea repetată a funcției care întoarce valoarea implicită până când restricția nu mai este 
încălcată, 

Când apare o eroare tot cu numărul 1884, dar sursa este indexul candidat DenPr, se 
returnează controlul metodei apelante — metoda evenimentului Click al controlului 
CmdOK —, metodă care continuă editarea înregistrării curente. 

Atunci când doi utilizatori modifică simultan aceeaşi înregistrare, după ce primul 
salvează pe disc conţinutul bufferului, în momentul scrierii bufferului celui de-al doilea 
utilizator se declanşează eroarea 1585. Metoda propusă trece în revistă toate atributele 
înregistrării curente (cu ajutorul funcțiilor FCOUNT şi FIELD), comparând valorile 
dinaintea editărilor (OLDVAL) cu cele actuale din baza de date „master”, adică de pe server 
(CURVAL). Când cele două valori diferă, se afişează ceea ce a fost introdus de alt utilizator, 
iar utilizatorul curent este întrebat dacă se păstrează valoarea de pe server sau valoarea din 
bufferul local. 

După trecerea prin toate atributele, variabila PrimaOara ia valoarea .F. şi se revine la 
începutul buclei, încercându-se scrierea forțată a bufferului. Dacă şi acum scrierea nu e 
reuşită (continuă să se violeze o restricție de cheie sau o regulă la nivel de înregistrare sau 
un declanşator), utilizatorul poate opta între a continua editarea înregistrării curente sau 
abandona modificările efectuate. 

Acest stil de tratare a erorilor în mediile multiutilizator poate fi completat cu alte opțiuni 
şi alte tipuri de erori ce pot fi depistate şi tratate, 
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13.5. Formular în care se foloseşte buffering optimist 
la nivel de tabelă 
Pentru a asigura continuitatea atât cu capitolul dedicat procedurilor stocate, cât şi cu 


problematica formularelor, în cele ce urmează trecem în rețea formularul Produse 
(frmProduse) prezentat în paragraful 10.1 — vezi figura 13.4. 


23 Fore Designer + femprodese, E SI 
E. Actualizare produse- 5 Ea a 


E aie ap 
-Anulez Sterg - 24 Abandon 


hii 


Figura 13.4. Formularul frmProduse pentru care se utilizează Table Optimistic Buffering 


Principala problemă a acestui formular este legat de controlul de tip rețea (grid) care, pe 
de o parte, face procedura de editare a datelor din PRODUSE mult mai lejeră, în comparație 
cu formularul din paragraful precedent, iar pe de altă parte, face greu de controlat 
programatic momentul de scrierere a bufferului pe disc. Așa încât soluția buffering-ului la 
nivel de tabelă a fost cea mai la îndemână pentru a-l „porta” pentru lucrul în rețea. 

Păstrăm proprietăţile şi mare parte din metodele prezentate în capitolul 10, insistând cu 
precădere asupra diferențelor, Introducem următoarele proprietăţi la nivel de formular: 
Adresa — pentru a memora linia la care se va reveni după scrierea tuturor înregistrărilor 
din buffer, NivelTranzactie — pentru „păstrarea” nivelului tranzacţiilor la intrarea în 
formular, astfel încât la ieșire să se respecte acest nivel, înregistrareProcesata — 
utilă în scrierea fiecărei înregistrări din buffer (şi tratarea eventualelor erori), Succes — 
dacă scrierea unei linii din buffer a decurs fără sau cu probleme. 

Metoda-cheie a formularului pentru funcţionarea în reţea este, ca şi în paragraful 
precedent, ScriereBuffer, pe care o vom discuta în final. 


Începem prezentările cu „noul look” al metodei Load — listingul 13.24 --, care verifică 
dacă baza de date și tabela PRODUSE sunt deschise şi, în afara iniţializării proprietătilor 
Niveltranzacţie şi Succes, stabileşte tipul de buffering. 


a a a s NR NN PRR NR RE OD RR II RI RR RR E a a aaaea aa a aan s O 
„apei uda a a măi oa tanara del tii et ode 
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Listing 13.24. Metoda Load a formularului frmProduse 


IF 'IDBUSED('vinzari) 
OPEN DATABASE vinzari SHARED 
DO setup 
ELSE 
IF IUSED('produse') 
USE produse IN 0 SHARED 
ENDIF 
ENDIF 


* se verifica daca tabelele sunt deschise 

* (sau daca pot fi deschise) in mod SHARED 
SELECT produse 
CURSORSETPROP('BUFFERING',5) 


* se memoreaza nivelul tranzactiei la intrarea in formular 
* NhveiTranzactie este o proprietate a formularului 
THISFORM.NivelTranzactie = TĂNLEVEL() 
|_THISFORM.Succes =T. 


n 


Având în vedere modul de derulare a operațiunilor în acest tip de buffering, controlul de 
tip Grid, precum şi obiectele sale nu (mai) prezintă metode-utilizator. Imediat după 
lansarea formularului, utilizatorul poate intra în grid şi edita oricâte produse. Abia la 
„acționarea” butonului Save intră în operă tranzacţia de scriere pe disc a fiecărei linii din 
buffer. lată, în listingul 13.25, conţinutul metodei asociate evenimentului Click pentru 
butonul de comandă cmdSave. 


Listing 13.25. Metoda asociată evenimentului Click pentru cmăSave 


SELECT produse 
IF ITHISFORM. Succes 
GO MIN(THISFORM inregistrareProcesata, RECCOUNT()) 
THISFORM.grdProduse.columnCodPr.Text1,SetFocus 
ELSE 
IF GETNEXTMODIFIED(0) <> 0 
THISFORM. ScriereBuffer 
IF ITHISFORM. Succes 
GO MIN(THISFORM InregistrareProcesata, RECCOUNT()) 
THISFORM grdProduse.columnCodPr.Textţ .SetFocus 
ELSE 
IF THISFORM.NiveiTranzactie < TXNLEVEL() 
END TRANSACTION 
ENDIF 
ENDIF 
ELSE = 
IF MESSAGEBOX('Doriti sa inchideti formularul ?',4+32+0) = 6 &ă Yes 
SET DELE ON 
THISFORM.Release 
ENDIF 
ENDIF 
ENDIE 


a] 


Primul IF verifică dacă acționarea butonului Save s-a făcut fără a trata eventualele erori 
apărute la scrierea unei înregistrări precedente. După cum vom vedea peste câteva rânduri, 
în metoda ScriereButfer, dacă o înregistrare generează probleme la scrierea pe disc 
(server), proprietatea Succes a formularului are valoarea .F. Astfel încât acest prim IF 
trimite utilizatorul în grid (pentru a rezolva eroarea), oricât de insistent ar apăsa butonul Save. 
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Dacă nu există nici o problemă anterioară nerezolvată (ramura ELSE a IF-ului principal), 
se verifică, prin funcția GETNEXTMODIFIED, dacă a fost operată măcar o madificare, caz 


| REPLACE codor WITH def codor produse() i 
: PrimaOara = T. && pentru a nu forta suprascrierea 
i 


în care se apelează metoda ScriereBuffer. La ieşirea din ScriereBuffer se SESE && se dubleaza alte chei candidat 

testează dacă au apărut probleme şi, dacă da, se cedează controlul grid-ului pentru rezolvarea i PrimaOara = .T. | 

erorii, Dacă nu sunt erori, se încheie tranzacţia (deschisă tot în ScriereBuffer), | a... aferenta indexului +; 
Ultimul IF este operaţional atunci când utilizatorul acționează butonul Save fără a fi ! sil pu se repeta !!!') 

făcut nici o adăugare, modificare sau ştergere, ceea ce ar fi un indiciu că se doreşte ieşirea | ENDIF 


din formular, astfel încât se cere confirmarea ieșirii. 


A sosit momentul să discutăm câte ceva şi despre mult invocata (apelata) metodă 


ScriereBuffer. Iat-o în listingul 13.26. 


Listing 13.26. Metoda scriereBuffer 


SELECT produse 
THISFORM.adresa = MAX(RECNO(),RECCOUNT() 


* prima inregistrare editata 
THISFORM.InregistrareProcesata = GETNEXTMODIFIED(0) 
IF THISFORM. inregistrareProcesata <> 0 

* daca e cel putin o inregistrare editata, 

* se marcheaza inceputul unei tranzactii 

BEGIN TRANSACTION ` 
ENDIF 


gata _toate_inregistrarile = .F. 


DO WHILE THISFORM.inregistrareProcesata <> 0 AND ; 
!gata_toate_inregistrarile && bucla principala 
* pozitionarea pointerului pe inregistrarea 
* ce urmeaza a fi scrisa din buffer 
GO THISFORM.inregistrareProcesata 


gata_inregistrare = F. 

PrimaOara = T, 

DO WHILE !gata_inregistrare 
IF PrimaOara 


&& bucla inregistrarii curente 


PrimaOara = .F. 
ELSE 
* dupa alegerea valorilor ce erau in conflict, 
ui inregistrarea se suprascrie 
THISFORM.Succes = TABLEUPDATE(0, .T.) 


CASE eroriţ1,1] = 1884 && unicitate violata 


IF erori[1,3] = 'CODPR! && de la cheia primara ni se trage 


CASE erori[1,1] = 1585 OR erori[1,1] = 1595 
FOR i = 1 TO FCOUNT() 
modificat_ = .t. 
cimp_ = FIELD(i) 
IF OLDVAL(cimp_) <> CURVAL(cimp_}) 
IF UPPER(cimp_) = 'CODPR' AND RECNO() <0 
* Problema e la CodPr al unei inregistrari adaugate 
REPLACE codpr WITH; 
def_codpr_produse() 
* pentru a nu forta suprascrierea 
PrimaOara = .T. 
EXIT 
ELSE 
* e alt atribut decit CodPr; 
* sau nu e vorba de adaugare 
CeFac_ = MESSAGEBOX(; 
"Si alt utilizator a modificat - '+; 
cimp +". - +CHR(13)+; 
'Pastram valorile noastre ? ',4+48) 
IF CeFac_=7 
REPLACE (cimp); 
WITH CURVAL(cimp_) 
ENDIF 
ENDIF 
- ENDIF 
ENDFOR 


CASE erori[1,1] = 1539 && TRIGGER FAILED ! 
* daca e vorba de o stergere a unei inregistrari parinte, 


i ii ii anulam marcajul de stergere 
* prima data, se incearca "comiterea" inregistrarii fara | IF LEFT(GETFLDSTATE(-1),1) ='2' 
* a forta suprascrierea ~ RECALL 
THISFORM. Succes = TABLEUPDATE(O, .F.) ENDIF 


gata_inregistrare = .T. 
THISFORM. Succes = .T. 


ENDCASE 


ELSE 


gata_inregistrare = „T. 


o 


IF ITHISFORM.Succes | ENDIF 
TABLEREVERT(0) | ENDDO 
gata_inregistrare = „T. && urmatoarea inregistrare editata 
ENDIF i THISFORM.InregistrareProcesata = GETNEXTMODIFIED(0) 
ENDIF ENDDO - 
IF ITHISFORM. Succes AND !gata_inregistrare | IF THISFORM.NivelTranzactie < TXNLEVEL() 
* tratarea erorilor i END TRANSACTION 
AERROR(erori) ENDIF 
DO CASE GO THISFORM.Adresa 
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Obiectivul declarat al acestei metode este parcurgerea fiecărei înregistrări din bufferul 
tabelei (înregistrare ce a fost adăugată, modificată sau ştearsă), scrierea sa pe server şi, 
eventual, rezolvarea diverselor probleme ce pot să apară la scriere. A doua comandă a 
metodei, THISFORM.adresa = MAX(RECNO(),RECCOUNT()), stochează în proprietatea 
formularului, folosită de noi drept (un soi de) variabilă publică, adresa înregistrării curente 
înainte de începerea ostilităților. Aceasta va fi adresa la care VEP se va întoarce după 
scrierea înregistrărilor. Întrebarea este: de ce s-a folosit funcţia MAX? Ei, bine, orice 
înre sistrare audăugată în buffer are RECNO-ul negativ, iar după „comiterea” pe disc, numărul 
acesteia va fi atribut normal. Dacă după scriere am folosi o comandă GO şi un argument 
negativ (adresa înregistrării agăugate înainte de scriere), este evident că nu am putea rata un 
mesaj de eroare. 

Funcţia GETNEXTMODIFILED este o facilitate-cheie în lucrul cu buffering la nivel de 
tabelă, deoarece furnizează adresa următoarei înregistrări editate din buffer. Adresa 
înregistrării curente (în curs de scriere pe server) este stocată în proprietatea formularului 
numită InregistrareProcesata. Este suficient să existe măcar o înregistrare 
procesată pentru a se declanşa o tranzacție. 

Bucla principală a metodei are ca scop parcurgerea tuturor înregistrărilor editate, În 
cadrul acesteia se află o a doua buclă, asemănătoare formularului din paragraful precedent, 
buclă în care se încearcă scrierea şi rezolvarea eventualelor probleme legate de o înre- 
gistrare. Un caz nou tratat este cel în care a fost marcată pentru ştergere o înregistrare- 
“părinte, ştergerea atrăgând după sine încălcarea restricții referențiale, 

Această metodă este apelată şi din cele ale butoanelor de adăugare şi ştergere. Astfel, 
listingul 13.27 conţine metoda asociată evenimentului Click pentru butonul de adăugare — 
cmdAdauga. 


Listing 13.27. Metoda asociată evenimentului CLick pentru cmaAdauga 


IF ITHISFORM Succes && nu s-au rezolvat confiictale sau alte probleme din editari anterioare 
MESSAGEBOX('Rezoivati problemele actuale din buffer si apoi adaugati noi inregistrari”) 
THISFORM.gradProduse.columnCodPr.Text1.SetFocus 
RETURN 

ENDIF 


THISFORM. Succes = .T. 
* daca sun modificari in buffer, se comit - 
THISFORM. ScriereBuffer 
SELECT produse 
IF THISFORM. Succes . 
GO MIN(THISFORM. InregistrareProcesata, RECCOUNT()) 3 
THISFORM.grdProduse.coiumnCodPr.Text1.SetFocus 
ELSE 
SET DELETE OFF 
LOCATE FOR DELETED() 
IF EOF() 
APPEND BLANK S 
REPLACE denpr WITH 'Produs Nou', um WITH 'L', grupa WITH 'Bere', ProcTVA WITH .19 
ELSE 
* reciclam o inregistrare marcata pentru stergere 
RECALL 
REPLACE codpr WITH def_codpr_produse(), denpr WITH 'Produs_nou,, ; 
um WITH 'L', grupa WITH 'Bere', ProcTVA WITH .19 
ENDIF 
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SET DELETE ON 
ENDIF 
THISFORM.grdproduse.columnCodpr.SETFOCUS 


Ca şi în cazul butonului de salvare, primul IF obligă utilizatorul să rezolve mai întâi 
problemele apărute la scrierea înregistrării curente, iar mai apoi să adauge noi înregistrări, 
Pentru a mai diminua din riscuri, adăugarea înregistrărilor se realizează în regim de pseudo- 
row buffering, adică, înaintea adăugării unei înregistrări, se verifică dacă bufferul conţine 
vreo înregistrare editată şi, dacă da, se scrie bufferul pe disc. Adăugarea decurge asemă- 
nător formularului din paragraful precedent, „reciclându-se” eventuale înregistrări marcate 
pentru ştergere. 


Metoda butonului de ştergere — listingul 13.28 — tratează diferit cazurile în care se şterge 
o înregistrare „veche”, încărcată de pe server, sau o înregistrare proaspăt adăugată, ce nu a 
fost scrisă din buffer. C 


Listing 13.28. Metoda asociată evenimentului Click pentru cmdSterge 


IF ITHISFORM. Succes && nu s-au rezolvat conflictele sau alte probleme din editari anterioare 
MESSAGEBOX('Rezolvati problemele actuale din buffer si apoi adaugati noi inregistrari’) 
THISFORM.grdProduse.columnCodPr.Text1.SetFocus 
RETURN i 

ENDIF 

THISFORM.Succes = T. 

* daca sun modificari in buffer, se comit 

SELECT produse 


SET DELE OFF 

IF RECNO() <0 && se doreste stergerea unei inregistrari tocmai adaugate (din buffer) 
=TABLEREVERT(F.) © && se elimina din buffer numai inregistrarea curenta 

ELSE 
DELETE 

ENDIF 

THISFORM.asters=.T, 

ȚHISFORM.REFRESH 


Una dintre cele mai plăcute metode este cea asociată evenimentului click pentru 
butonul de comandă dedicat anulării unei ştergeri — vezi listingul 13.29. 


Listing 13.29. Metoda asociată evenimentului Click pentru cmdAnulezSterg 


SELECT produse 
RECALL 


Despre metoda din listingul 13.30 n-ar mai fi de spus decât că închide toate eventualele 
tranzacții deschise, până la nivelul intrării în formular, și cere confirmarea utilizatorului 
pentru închiderea sesiunii, 


Listing 13.30. Metoda asociată evenimentului Click pentru cmdAbandon 


SELECT produse 

DO WHILE THISFORM.NiveiTranzactie < TXNLEVEL() 
ROLLBACK 

ENDDO 
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IF MESSAGEBOX('Doriti sa inchideti formularul 7 4+32+0) = 6 && Yes 
DO WHILE THISFORM.NivelTranzactie < TXNLEVEL() 
ROLLBACK 
ENDDO | 
SET DELE ON 
THISFORM. Release 
ENDIF | 
TABLEREVERT(.T.) && se să seta toate modificarile din buffer 
THISFORM.GrdProduse.ColumnCodpr.SETFOCUS 


Nici metoda Error a formularului (listingul 13.31) nu conţine elemente spectaculoase, 
ci doar preluarea explicită a erorii de unicitate şi semnalizarea altor tipuri de erori. 


Listing 13.31. Metoda evenimentului Error 


LPARAMETERS nError, cMethod, nLine 
IF TYPE(erori) = "U" 

PUBLIC ARRAY erori (7) 
ENDIF 


=AERROR(erori) 
IF nError=1884 i 
NESSA SEBOX!Valgara aferenta indexului '+erori(3)+' se repeta !!!',16,'Eroare de unicitate”) 
MESSAGEBOX('Numar:'+STR(nError)+ALLT(erori(2))+', 
Metoda:'+cMethod+", Linia "+STR(nLine) , 16, 
'Eroare neprevazuta') 


ENDIF 
THISFORM.grdProduse.columnCodPr,Text1.SETFOCUS 


Încheiem cu metoda Destroy a formularului, pe care, pentru comoditate, am modi- 
ficat-o astfel: 


Listing 13.32. Metoda asociată evenimentului Destroy 


THISFORM.emaSave Click | 


Capitolul 14 
Aplicaţii Visual FoxPro pe Web 


Poate pentru mulți pare intrigant, dar Visual FoxPro 6.0 oferă o extensie ISAPI (Internet 
Server Application Programing Interface) suficient de puternică pentru dezvoltarea de 
aplicaţii pe Internet cu acces în timp real la baze de date, Vorbind despre acces real la date 
nu ne referim doar la tabele Visual FoxPro, ci şi la alte tipuri de baze de date la care acesta 
se poate conecta (ORACLE, SQL-SERVER). 

Temelia unei aplicații Internet — Visual FoxPro este constituită din utilitarul 
FOXISAPI .d1l şi componentele COM (Common Object Model). Acestea din urmă 
sunt biblioteci de clase publice, create în Visual FoxPro, ce pot fi utilizate de alte aplicații. 

FoxISAPI este dedicat serverului de Internet MIIS (Microsoft Internet Information Server). 


14.1. FoxISAPI şi Servere COM - fundamentul aplicaţiilor 
VFP pe Web 


FoxISAPI reprezintă o bibliotecă de funcţii (realizată de Microsoft) scrisă în C++, cu rol 
de aplicație conector între browserul-client care trimite o cerere şi serverul COM căruia îi 
este adresată. Acesta din urmă va efectua diverse prelucrări (eventual cu implicații asupra 
unor colecții de date) și va trimite un răspuns sub formă de text HTML. - i 


141.1. FoxISAPI. Noţiune şi funcţionalitate 


Nucleul FoxISAPI este alcătuit din două fişiere, foxisapi.d1l şi foxisapi.ini, 
furnizate o dată cu pachetul Visual Studio, mai precis cu MSDN Library. Aceste fişiere pot 
fi regăsite în directorul de bază unde aţi instalat MSDN-ul, pe calea: . a 

„AMSDN98N98VSa)1033NSAMPLESVVFP98 pervers Eorisapi sau pe site-ul 
Microsoft. i 

Caracteristicile esențiale ce definesc FoxISAPI sunt“: 

e Extensie Web de tip Server Side 
Foxisapi.dl] se execută în exclusivitate pe server, ca ap licație ISAPI î în back-end-ul 
serverului de Internet MIIS (Microsoft Internet Information Server). Aşadar, clienții nu vor 
avea nevoie de bibliotecile de bază ale Visual FoxPro pentru a rula aplicația. Avantajele 
majore al acestui tip de aplicație (Server Side) privesc, pe de o parte, disponibilitatea 
imediată a actualizărilor către toți clienții, iar pe de altă parte, securitatea sporită a.datelor. 

ə interfață directă, de mare performanță, cu aplicațiile scrise în Visual FoxPro 
Eficiența sporită constă în faptul că FoxISAPI se conectează la serverul, Web printr-un 
singur apel (pentru fiecare cerere a clientului) ce accesează în mod direct componenta COM 
şi utilizează rezultatul acesteia prin înglobarea sa într-o pagină Web. i 


62. Rick Strahl, Building applications with FoxISAPI, http:/iwww.west-wind.com/. 
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e Utilizează Internet Server API (ISAPI) 
ISAPI este o extensie extrem de performantă, de tip multifir (multi-threaded), ce lucrează 
ca interfață la nivel de sistem de operare. 

e Utilizează COM pentru transferul mesajelor 

Pe lângă faptul că furnizează o interfață low-level către serverul IIS (Internet 
Information Server), ISAPI utilizează Common Object Model pentru a comunica cu 
aplicaţia Visual FoxPro. Pe de altă parte, aplicaţia VFP este compilată ca obiect COM şi se 
comportă ca server pentru clientul FoxISAPI. 

În figura 14.1 observăm arhitectura unei aplicaţii Web în Visual FoxPro. 


Parametri 


Figura 14.1. FoxISAPI — interfață între aplicaţia Visual FoxPro şi serverul Web 


“Tabelul de mai jos prezintă comparativ cele două tipuri de biblioteci de funcții ce 
contribuie la crearea unei aplicații Visual FoxPro pe Web: ic O Do : 


'foxisapi.dH Serverul COM Visual FoxPro 
Ld 


ə Win32 DLL scris în C++ COM EXE sau DLL 

e Suportă execuții  multifir (multi- Monofir (single-threaded — un proces 
threaded) i nu poate executa mai multe acțiuni 

e Aplicaţie de tip conector simultan) | 

e ClientCOM a o Aplicație ce accesează baze de date 


Server COM 


Sarcina de bază a extensiei FoxISAPI este aceea de a crea o instanță a componentei 
COM Visual FoxPro şi de a invoca una dintre metodele acesteia. Indiferent dacă metoda 
respectivă execută sau nu anumite prelucrări, ea trebuie obligatoriu să returneze un text în 
format HTML care va fi transmis înapoi, de către FoxISAPI, serverului Web. 

Astfel, în momentul în care clientul trimite o cerere de acces spre o componentă COM, 
serverul Web cere de fapt încărcarea mai întâi a bibliotecii foxisapi.d1l şi abia apoi, 
prin intermediul acesteia, are loc invocarea metodei solicitate, Mecanismul de care vorbim 
se declanşează printr-o legătură (link) URL de genul: 

http://NumeServerWeb/scripts/Hoxisanpi.dil/NumeServerVvEP.Clasă. Metodă 


Prin aceasta, serverul Web este determinat să încarce FoxISAPI în spațiul său de 
memorie, Pentru că FoxISAPI este Win32 DLL, se încarcă o singură dată şi persistă pe 
toată durata execuţiei procesului apelant. Fiind de tip multifir, el poate prelua mai multe 
cereri simultan (dacă 10 clienți accesează acelaşi URL care se execută, să zicem, în 15 
secunde, vom avea 10 procese care încearcă să acceseze acelaşi obiect COM). Din 
nefericire, o aplicaţie Visual FoxPro (deci şi un server COM) este monofir (single- 
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threaded) şi nu poate rezolva simultan cereri multiple. S-ar părea, ` astfel, că 
foxisapi.dll ar trebui să țină evidența cererilor respective şi să le trimită secvențial 
serverului COM. Totuşi, nu este deloc aşa: FoxISAPI poate crea instanțe multiple ale 
aceluiaşi server COM. Vom reveni asupra acestui aspect spre sfârşitul acestui capitol. 

De asemenea, FoxISAPI este suficient de bine construit pentru a încărca (în urma unei 
cereri de acces) o singură dată componenta server în memoria internă, pentru ca apoi să 
rezolve următoarele cereri prin referință la acesta. Practic, prima cerere a unui client va fi 
rezolvată mai încet, datorită încărcării întregilor biblioteci de funcţii VFP necesare 
execuției aplicației COM, în timp ce următoarele vor fi procesate extrem de rapid, pentru că 
vor accesa serverul gata încărcat în memorie. 

Configurarea FoxISAPI constă, în primă fază, în copierea fişierelor foxisapi.dll 
și a fişierului de iniţializare corespunzător foxisapi.ini într-un director accesibil 
serverului Web, de obicei: C: \Inetpub\ Scripts. 


14.1.2. Componente COM în Visual FoxPro 


Componentele COM (Common Object Model) reprezintă de fapt biblioteci de clase ce 
încapsulează secvențe de cod care pot rezolva probleme comune mai multor tipuri de 
aplicaţii. Clasele respective sunt declarate publice şi se înregistrează în regiștrii Windows, 
devenind accesibile oricărei aplicaţii care suportă COM. Accesul se realizează prin 
intermediul unor parametri pe baza cărora aplicaţia execută diverse prelucrări şi returnează 
un rezultat intrepretat de procesul apelant. 

Practic, în Visual FoxPro construim un server COM prin compilarea unui proiect ce 
cuprinde clase (în general de tip CUSTOM) declarate OLE Public. Doar acestor clase le 
va fi asociat un identificator unic global (GUID) în Windows "Registry şi vor fi 
accesibile altor aplicaţii (ca de exemplu FoxISAPI). i T. 

Pentru exemplificare, vom iniția proiectul Test_COM cu un singur program, prin care 
se defineşte o clasă cu numele ComTest ce conține metoda PaginaStart (listingul 
14.1). Funcționalitatea acesteia constă în returnarea unui text HTML care să cuprindă data şi 
ora la care a fost generat, precum şi valorile curente ale parametrilor (despre aceştia vom 
discuta imediat). : 


Listing 14.14. Secvenţă de cod pentru crearea unei componente COM (clasacoml) 
#DEFINE CR CHR(13)+CHR(10) && salt la rândul următor (pentru HTML) 
DEFINE CLASS clasacom1 AS Custom OLEPUBLIC | 


FUNCTION PaginaStart 
LPARAMETER pVariabile, piniFile, pReleaseFlag 
LOCAL text_htmi 


*** HTTP header - necesar unor versiuni mai vechi de browsere 
Text_htmi="HTTP/1.0 200 OK"+CR+; 
"Content-type: text/himi"+CR+CR 

**"* construim textul in format HTML 
text_himi=text_html; 

"<HTML><BODY>"+CR+, 7 

"<H1>Pagina TEST</H1><HR>"+CR+: 

"Acesta pagina a fost generata de Visual FoxPro astazi: ” 


+DTOC(DATE()+" ia ora + TIME()+ "<HR>"+CR+; Esi 
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+"Variabile : "+pVariabile+" /Fis. initializare:"+piniFile+" /flaa: "+str(oReleaseFlaa)+CR+: 
"<IHTML></BODY>" 7 

RETURN text_htmi 

ENDDEFINE 


-În cazul în care lucrăm în mod asistat, pentru a obţine o clasă publică apelăm meniul 
Class — Class Info în Class Designer şi bifăm opțiunea corespunzătoare 
(figura 14.2). 


Selecție pentru a obține o 
componentă COM 


Obligatoriu numele clasei ——— 
pentru reuşita compilării şi 
înregistrării server-ului 


Figura 14.2. Construirea vizuală a unei clase OLE Public 


După cum observăm şi în figură, în cazul claselor create în mod asistat, este obligatoriu 
să mai introducem o dată numele clasei în zona de descriere: Description. Conform 
testelor efectuate, dacă nu procedăm astfel, obținem o componentă căreia, deşi i se atribuie 
un identificator unic în Windows Registry, acesta nu se leagă de numele componentei, 
fiind în final inutilizabilă. 


Atenție! Este extrem de important să înțelegem că o asemenea clasă (definită pentru a 
rula ca aplicație Web) conţine în general două categorii de metode: 

e Metode ce vor fi accesate de serverul Internet în urma unor cereri ale clienţilor. 
Aceste metode sunt apelate de fapt prin intermediul FoxISAPI, care le trimite în 
mod implicit trei parametri. Ca atare, orice metodă de acest tip va trebui să-i poată 
prelua, altminteri riscăm să obţinem o eroare ce va duce la blocarea serverului. 

> Metode ce execută diverse prelucrări interne, apelate exclusiv de alte metode 
ale clasei respective. Acestea vor avea un număr variabil de parametri (sau nu vor 
avea deloc), în funcție de necesități. ; 


Semnificația parametrilor în cazul metodelor publice (conform numelor date în listingul 
14.1) este următoarea: 

* pVariabile — un şir de caractere ce cuprinde variabilele (parametrii actuali) 
furnizate de clientul Web pentru prelucrări specifice. O metodă poate fi apelată 
însă şi fără parametri actuali, caz în care FoxISAPI transmite o valoare vidă. Este 
singurul parametru ce asigură interacțiunea directă cu utilizatorii aplicaţiei; 

e  plniFile — numele unui fişier .ini creat de foxisapi.dll la instanţierea 
unui server COM Visual FoxPro. Fiecare asemenea fişier de iniţializare este creat 
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în directorul Scripts (acolo unde se află foxisapi.dll şi 
foxisapi.ini)şiare un nume formalizat, de genul: FOXnn.ini (exemplu: 
FOX55. ini). Acesta va conține toate variabilele serverului, ale browserului şi de 
sistem, cu posibilitatea de a extrage informaţii diverse (exemplu: adresa IP a 
browserului ce accesează metoda) prin intermediul funcţiei API 
GetPrivateProfileString({()}); 

* pReleaseFlag — parametru de tip numeric transmis prin referință”? de 
foxisapi.dll, prin care se specifică dacă instanța componentei COM persistă 
(rămâne rezidentă în memorie) după execuția metodei apelate. Instanța persistă 
după execuția metodei numai dacă pReleaseFlag are valoarea O (zero), În mod 
implicit, parametrul este transmis cu o valoare generată de FoxISAPI mai mare 
decât 0. Pentru performanţe optime, în multe cazuri acest parametru trebuie setat 
pe 0 în cadrul aplicației Web, altfel fiecare nouă cerere de acces va necesita 
reîncărcarea serverului în memorie şi deci întârzierea răspunsului acestuia. 


Un alt aspect de maximă importanţă ce trebuie avut în vedere la crearea aplicaţiei Web 
se referă la faptul că aceasta nu trebuie să genereze sub nici un motiv vreo formă de dialog 
cu utilizatorul de tip GUI (Graphical User Interface). Cu alte cuvinte, singura modalitate 
de răspuns a unei metode ce va fi apelată de serverul Web va fi întotdeauna un text în 
format HTML. Oricare din următoarele situaţii va duce la blocarea componentei COM: 


e utilizarea funcţiei MESSAGEBOX ()sau a comenzii WAIT WINDOW; 
e încercarea de a deschide un formular (DO FORM); 


e eroare netratată care va încerca să genereze un mesaj de tip GUI sau o fereastră de 
dialog de tip File Open. 


O dată lămurite aceste aspecte, pasul următor constă în compilarea serverului. După 
cum observăm și în figura 14.3, în Project Manager vom utiliza butonul Build şi 
opțiunea Win32 executable. Numele proiectului este Test_conm, iar programul 
Test conţine secvența de cod pentru definirea componentei clasacoml (istingul 14.1). 
Ca urmare, vom obține un fişier executabil, (eventual) cu același nume ca şi al proiectului. 
Toate clasele publice definite în proiect vor fi înregistrate în Windows Registry, 


devenind astfel componente COM ce vor fi accesibile oricărei alte aplicații care suportă 
apeluri COM. 


Atenţie! Dacă nu aţi instalat şi Visual Studio 6.0 ServicePack 3, fereastra Build 
Options va arăta puţin diferit. l 


63. Mai multe despre modul de transmitere a parametrilor, în capitolul 4. 
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Figura 14.3. Compilarea serverului 


În Visual FoxPro putem crea cele două mari tipuri de componente COM: 

ə proces extern (out-of-process) — obţinem un fișier executabil (.exe) care se 
execută ca proces distinct față de aplicaţia ce-l va accesa. Comunicarea între cele 
două procese (clientul apelant şi serverul apelat) este denumită comunicaţie cross- 
-process (inter-procese); l 

e proces intern (in-process) — obținem o bibliotecă legată dinamic (DLL) care se 
execută în acelaşi spațiu de memorie ca şi procesul-client (se comportă ca o 
procedură internă a procesului apelant). 

Există avantaje şi dezavantaje ale fiecăruia din perspectiva utilizării lor pe Web. Astfel, 
serverele de tip in-process pot fi caracterizate prin: 

e interfața extrem de rapidă cu procesele-client apelante; 

e blocarea lor duce în cele mai multe cazuri la blocarea serverului Web; 

e nu pot fi descărcate complet o dată ce au fost încărcate de serverul MIIS. Aceasta 
poate deveni o problemă majoră dacă avem în vedere că orice aplicaţie trece prin 
mai multe versiuni intermediare, cu modificări dintre cele mai diverse, până la 
obținerea produsului final. 

ə sunt destul de greu de întreținut şi depanat. | 

Componentele de tip out-of-process prezintă câteva avantaje demne de luat în 
considerare pentru dezvoltatorii de aplicaţii, fiind caracterizate prin: 

e blocarea lor nu determină blocarea serverului de Web, MIIS, tocmai datorită 
faptului că se execută ca procese distincte; 

e pot fi descărcate uşor folosind metoda Reset furnizată de FoxISAPI (ne vom 
referi la ea în finalul capitolului); 

ə oferă disponibilitate pentru instanţierea multiplă, caracteristică foarte importantă în 
rezolvarea simultană a mai multor cereri de acces la aceeaşi componentă; 

ə pot fi apelate via DCOM (Distributed COM). Doar componentele construite ca 
fişier executabil pot fi rezidente pe o staţie oarecare în rețea şi accesate de pe 
serverul de Internet; 

+ timp de acces mai mare datorită comunicării inter-procese (cu toate acestea, 
vorbim încă de milisecunde); 
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Este momentul să precizăm că, în testele noastre, am utilizat numai componente de tip 
out-of-process. 

Compilarea unui proiect care conţine clase definite OLE Public duce la crearea a 
trei fişiere cu acelaşi nume: unul de tip . exe sau .d11, unul de tip .tlb {Type Library) 
şi altul de tip .vbr (fişier Registry). Acesta din urmă cuprinde identificatorii unici globali 
(GUID) pentru clasele publice precum şi alte elemente specifice componentelor COM ce 
vor fi scrise în Windows Registry (figura 14.4). 


i Bios convin: Norepad 


LASSE5_ROOTNT est „com. clasacomi » test „com, clasacoml 
Case ROOT rezee con, pa asacomi\yotInsertabla 

SES ROOTNTEST COM. stasacomicLăro m {2C8JOSEJ-9FGA-4CAS-AÇÕA-3FBF3ACODSD2} 
aa teapa æ test com, clasacomi 


SY a CLAS SES. ROOT NIL SION 22380874 -IFAI CAS -ACOA IF3FBACOOSI A ProgId a tast „e comă 
HKEYLELASSES ROOTNELSION? 2C3adapa ora 4CA3ACOA_3FSF8ACO0 533 SAE pendentârăui 

2C88D8F4-9FBA-4CA5-AGQA-3FBFBACOD 582 
20 S8DSF4 „SR SA-4CASACOA-35 Ss 8ACODSa2 


Nverstanrndependenrprogid = tast_com. clasam]. 
NLocalServer32 = test_Com.exe /automation 
NTypanib = 


TOM 2C38a8F4 -9FSA-ACAS-ACOA-3F3E84C00532 )Avarston = 1.0 
ERFACENI GDODOA Li 2270 4 FAZ-3958-Pcă1 49387275) » clasacomi 
ERFACEN{ 4090 ba 182794 -4 FAz-9855-7E3149657275 A ProxyStubCisid = 
00-300603300045) 

HKEY CLASSES _ROOT\INTERFACEN{ 30005 
[0002342 00-0000-C900-000000009 


ROOTNEL SION 
ROOTNEL SION 


HKEY CLASSE 


{032 394er -7483 -461A-9738-002ASF39795€} 
HKEY CLASS ZI 


332704 -4FAE-9856-FE31496E727F})\ProxyStubtisid3z =» 
2794 -4FAE-9856-F£814968727F PTypeLib = 
Hk5y_eLAssE5_ROOTNINTEREACEN( 500064 LE? 7 P44 FAE-9858-FE31496E727F}\TypeLib\ "version" = 1.0 


i TypeLibrary registration 
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Figura 14.4. Fişier de tip Registry creat la compilarea serverului 


După compilare, proiectul ne poate oferi câteva informaţii asupra serverelor COM pe 
care le înglobează. Astfel, dacă selectăm opțiunea Project—Project Info din 
meniul-sistem sau executăm un click-dreapta în Project Manager, vom obţine o 
fereastră ca în figura 14.5, 
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Figura 14.5. Informații privind clasele publice ale unui proiect compilat 


Un aspect deosebit de important se referă la faptul că, în momentul compilării, Visual 
FoxPro realizează automat înregistrarea claselor publice. Avem însă şi posibilitatea 
înregistrării/ştergerii componentelor COM în regiștrii Windows în mod independent. 

Pentru Înregistrarea unei componente .exe lansăm în execuţie fişierul executabil cu 
parametrul /REGSERVER, iar pentru eliminarea ei utilizăm parametrul /UNREGSERVER. 
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Spre exemplu, d:NTeste Webitest com.exe  /unregserver va determina 
eliminarea serverului test com din Windows Registry. 
În cazul componentelor . d1 1 utilizăm utilitarul REGSVR32 astfel: 
REGSVR32 d: Veste Webitest_com.all 
va înregistra serverul test_com (dacă acesta ar fi fost .411), pe când, 
REGSVR32 /U d: Veste _Webltest_com.all 
` îl va elimina. 


14.1.3. Testarea şi depanarea componentelor COM 


Asemenea oricărei aplicaţii, înainte de a fi exploatată efectiv pe Web, o componentă 
COM trebuie mai întâi testată. 

În acest scop, pentru exemplul nostru, vom introduce în fereastra de comandă a Visual 
FoxPro următoarele linii de cod: 

X=CREATEOBJECT ("test _com.clasacom1”) 

? x.paginastart ("param1”, “param2”, 0) 

RELEASE x . 

Prima linie va crea un obiect“ cu numele „x” prin instanțierea clasei cLasacom1 ce se 
găseşte în biblioteca test com. exe. 

A doua linie va afişa direct pe ecranul VFP rezulatul metodei paginastart, care a 
fost apelată cu cei 3 parametri de test — bineînţeles, respectând tipul acestora. 


y Micrasolt Visual fouPro. 


ontent-type: text/html 


<HTML><BODY> 


Acesta pagina a fost generata de Visual FoxPro astazi: 09/24/01 la ora :10:17:45<HR> 
ariabile : paramț /Fis. initializara: param2 Mag: 
BODY. 


Figura 14.6. Rezultatul testării serverului COM test_com. exe 


Crearea obiectului generează încărcarea fişierului executabil ce conține clasa instanțiată, 
ca proces distinct în memorie. Figura 14.7 prezintă cadrul de pagină Processes din 
fereastra Windows Task Manager. 


64. Vezi şi capitolul 1! — „Programare orientată-obiect în VFP”, 
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Figura 14.7. Server COM aflat în execuţie 


Procesul va rămâne rezident în memorie până la execuţia unei instrucțiuni de descărcare 
(distrugerea obiectului „x” prin comanda RELEASE x) sau până la intervenţia directă cu 
butonul End Process în Task Manager. Această ultimă opțiune o vom folosi în cazul 
blocării aplicaţiei ca urmare a apariţiei unuia dintre evenimentele despre care am vorbit în 
subcapitolul anterior. Spre exemplu, apelul metodei paginastart fără parametri va duce 
la blocarea serverului: 

x=CREATEOBJECT ("test _com.clasacon1“) 

? x.paginastart T 

Ce se întâmplă de fapt? Ştim că orice parametru declarat, dacă nu are un corespondent 
actual, va avea implicit valoarea .F. (False). Pentru că valorile parametrilor sunt 
utilizate, pe parcursul metodei, prin concatenarea lor cu un şir de caractere, neconcordanța 
între tipul caracter şi tipul logic va genera o eroare. Erorile netratate generează un 

. mesaj de avertizare de tip GUI care nu va ajunge niciodată la procesul apelant (mediul 
Visual FoxPro) şi va finaliza prin blocarea serverului în aşteptarea unui răspuns. În acest 
caz, singura modalitate de deblocare este butonul End Process din Task Manager. 


14.1.4. Utilizarea serverelor COM pe Web, Configurarea drepturilor de acces 


Pentru a putea utiliza o aplicație Visual FoxPro pe Web este necesară parcurgerea 
anumitor paşi: | 

e copierea fişierelor foxisapi.dll şi foxisapi.ini în directorul de 

scripturi al serverului Web (în genera] c: Ninetpubiscripts); 

e acordare drepturi de execuție pe directorul respectiv; 

e compilarea ca server out-of-process (fişier executabil) a aplicaţiei VFP ce conține 

clase OLE Public; 

e configurarea serverului COM; 

e configurarea drepturilor de acces la date. 

Aşadar, copierea celor două fişiere ce compun extensia FoxISAPI într-un director 
accesibil serverului de Internet nu este suficientă. Pe acest director trebuie să existe drepturi 
de execuţie care, pentru Microsoft Internet Information Server, se realizează astfel: în 
Internet “Services Manager, expandăm nodurile până la directorul unde se află 
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Foxisapi.dll şi, în fereastra de setări Properties, selectăm pentru opțiunea 
Execute Permissions valoarea Scripts and Executables (figura 14,83). 
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Figura 14.8. Acordarea dreptului de execuție pentru directorul 
ce conține fişierele FoxISAPI 


În ceea ce priveşte configurarea componentelor, COM, pentru a da drepturi de 
acces și de execuţie conturilor utilizatorilor de Internet, vom folosi utilitarul Windows 
DCOMCNEG (lansarea în execuţie a acestuia o realizăm din meniul principal al Windows-ului, 
Start-—>Run). Acest utilitar listează toate componentele COM de tip .exe instalate pe 
computer (figura 14.9). Este imperios necesar să regăsim componenta noastră în lista 
respectivă; în caz contrar, serverul nu a fost compilat bine și nu poate fi utilizat. 
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Figura 14.9. Utilitarul Windows DCOMCNEG 
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Configurarea poate fi realizată /a nivel | global (pentru toate componentele COM) şi la 
nivel individual (pentru fiecare în parte). În faza de testare este mai simplu să lucrăm la 
nivel global, astfel: în cadrul de pagină Default Security vom configura drepturile 
de acces (Default Access Permissions) şi drepturile de execuţie (Default 
Launch Permissions) pentru conturile-utilizator Windows NT/2000 specifice 


browserilor: IUSR_NumeCalculator; IHiAM_NumeCalculator (figura 14.10); 
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Figura 14.10. Configurarea globală a drepturilor de acces şi execuţie CoM 


Observăm, în figura de mai sus, că numele calculatorului (numele de rețea) în exemplul 
nostru este webtest. În final, fereastra de configurare va arăta ca în figura 14.11, cu 
precizarea implicită că numele serverului Web va fi, aproape sigur, altul. 
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Figura 14.11. Drepturi de acces la componentele COM pentru conturile clienților internet 


În sfârșit, ultima configurare necesară pentru ca aplicaţia noastră să funcţioneze pe Web 
constă în acordarea drepturilor de acces şi modificare a datelor din baza de date. Asta 
înseamnă că orice director care conţine fişiere ce vor fi accesate/modificate de 
componentele COM utilizate pe Web sau alte aplicaţii adiacente va trebui să permită acest 
lucru contului de utilizator NT/2000 specific browserilor: IUSR NumeCalculator 
(figura 14.12), Z 
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Figura 14.12. Configurarea drepturilor de acces/modificare pe directorul 
în care se află baza de date i 


Atentie! Aceleaşi setări sunt obligatorii şi pentru directorul unde se află 
foxisapi.d1l (c:\Inetpub\Scripts), datorită faptului că, la fiecare apei, 
acesta generează un fişier de iniţializare (FOXnn. ini) pe care apoi încearcă să-l 
şteargă. Ultima operaţiune nu va reuşi, bineînţeles, dacă nu acordăm drepturi de 
ştergere. În acest caz va trebui să efectuăm ştergerea periodică a fişierelor respective. 


14.2. Prima aplicaţie Visual FoxPro pe Web 


O dată ce am parcurs cu succes etapele premergătoare, putem trece la testarea efectivă a 
modului de funcţionare a unei componente COM pe Web. Ne vom opri în primul rând 
asupra serverului creat anterior: test_con. În acest sens, furnizăm browserului de 
Internet următoarea adresă: 


http:/INumeServerWeb/scripts/foxisapi.dil/test com.clasacom .paginastart 


Un asemenea URL (Universal Resource Locator) va determina următoarele eve- 
nimente: 
ə serverul Web, identificat prin nume, încarcă în memorie biblioteca 


foxisapi.dll; 

e  foxisapi.all lansează în execuţie test_com.exe şi invocă metoda 
paginastart prin instanţierea clasei publice clasacoml; 

e metoda va returna un text în format HTML; 

e  foxisapi.dll preia răspunsul metodei, îl înglobează într-un document HTML 
şi îl trimite serverului Web; 


ə procesul test_com este oprit. 
Rezultatul final, în fereastra browserului, ar trebui să fie cel din figura 14.13. 
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Figura 14.13. Testarea unei componente pe Web 


După cum observăm, cei trei parametri de apel ai metodei sunt: 


ə primul parametru are o valoare vidă, pentru că nu am specificat nici o valoare în 
adresa furnizată browserului; 


e aldoilea parametru: c:\inetpub\scripts\FOX39. ini; 


e al treilea parametru: 651612 (o valoare aleatoare generată de FoxISAPI, mai 
mare decât 0). 


Pentru a furniza metodei anumite valori ce se doresc a fi piglucrate; completăm adresa 
de mai sus cu semnul „?” şi valorile dorite: 


http:/Awvebtest/scripts/foxisapi.diltest com.clasacomî.paginastart?456%ETC%386 
Rezultatul îl regăsim în figura 14.14. 


Pagina TEST 


Acesta pagina a a fosi gonerata de Visual FoxPro astazi: IGA3AL la ora :16:24:59 


Figura 14.14. Utilizarea parametrilor în apelul metodelor pe Web 


Exemplul, deşi luat la întâmplare, încearcă să evidențieze folosirea unor caractere de 


a ala în cazul în care dorim să transmitem mai multe valori ce vor fi prelucrate 
istinct 
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14.3. Interogarea bazei de date. 
Interacțiunea cu utilizatorul 


Interacțiunea cu utilizatorul constituie latura esenţială a majorităţii aplicaţiilor ce 
implică baze de date. Dacă în paragrafele anterioare am insistat pe tehnica de construire a 
unui modul Visua! FoxPro utilizabil pe Web, în cele ce urmează vom evidenția modalități 
de conectare on line a utilizatorului (browserului) la date. 

În acest context, pornind de la baza de date utilizată cu titlu de exemplu pe parcursul 
întregii cărți“, presupunem că dorim să obținem un raport în format HTML care să prezinte 
situaţia vânzărilor pe clienţi şi 2o (figura 14.15). 
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Figura 14.15. Raport HTML privind situația vânzărilor pe clienti şi produse 


În acelaşi timp, dorim să oferim utilizatorului posibilitatea de a filtra lista în funcție de 
produsul şi/sau clientul dorit, astfel încât raportul să conțină fie toți clienții şi produsele 
cumpărate de fiecare, fie un anumit produs şi/sau un anumit client. În acest scop, vom 
construi un formular HTML ce va cuprinde un obiect de tip căsuță de text şi altul de tip listă, 
în care să se poată introduce/selecteze un cod de client sau un produs anume (figura 14.16). 


| Introduceti un cod de cant: fot 


Selactati produsul darit ;; [Produz] J 


23: godal 
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Figura 14.16. Formular HTML de preluare a opțiunilor utilizatorilor 


65. Vezi capitolul 2. 
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Desigur, utilizarea unui obiect de tip căsuță de text pentu introducerea codului 


clientului este puţin cam forțată, scopul (pur didactic, de altfel) declarat fiind acela de a 
verifica, în aplicaţia VEP, dacă respectivul cod de client există în baza de date. 


Dacă analizăm codul-sursă HTMLS% pentru formularul de mai sus (listingul 14.2) 


observăm că, pe de o parte, elementele listei (cu numele Combo!) trebuie generate dinamic 
în funcţie de produsele existente la un moment dat în tabela PRODUSE, iar pe de altă parte, 


a apăsarea butonului OK va fi invocată metoda Query parametrizat a componentei 
clasal. 


Listing 14.2. Sursa HTuL a formularului din figura 14.16 


value="toti"><BR> 


<HTML> 

<BODY> 

<H2> <b><i> SELECTATI UN PRODUS SI/SAU UN CLIENT </i></b></H2><HR> 

<FORM method="POST" ACTION="/scripts/foxisapi.dil/web_Test1.clasa1.query_parametrizat"> 
<p align="left"> <BR> 

<b>introduceti un cod de client:&nbsp; </b><input type="text" name="texti” size="20" 


<b>Selectati produsul dorit: </b>; <SELECT NAME="COMBO1" size="1"> 
<OPTION SELECTED VALUE="toate"> Toate produsele 

<OPTION VALUE={1> Produs 1 

<OPTION VALUE=2> Produs 2 

<OPTION VALUE=3> Produs 3 

<OPTION VALUE=4> Produs 4 

<OPTION VALUE=5> Produs 5 

<OPTION VALUE=6> Produs 6 

</SELECT> <BR><BR> 

<input type="submit" name="OK” value=" OK "><input type="reset”> 
</form> 

</body> 


Aşadar, vom construi un server COM cu numele web_test1 în care vom defini clasa 


publică denumită clasal (listingul 14.3) ce va conţine următoarele metode: 


66. 


ə Init — asigură deschiderea tabelelor necesare în momentul instanțierii clasei; 

e Query form — construiește un text HTML ce constituie codul-sursă al 
formularului din figura 14.16; 

e Query paranetrizat - pe baza datelor de intrare (valorile obiectelor de tip 
Input) preluate din formular de primul parametru al metodei, realizează intero- 
garea bazei de date şi construieşte codul-sursă pentru raportul din figura 14.15; 


e Destroy — închide toate tabelele în momentul în care componenta este 
descărcată din memorie, 


Atenție! Ca regulă general valabilă pentru orice formular HTML, atunci când clientul 
Web apasă 'un buton de tip Submit (exemplu: OK), foxisapi.dll transmite 
primului parametru al metodei invocate (în cazul nostru, parametrul p_input_forn, 


metoda Query parametrizat) un şir de caractere de genul: 
textl=toti&COMBO1=1&0K=+++OK++++, 


Pentru simplificare, formularul poate fi creat cu ajutorul unui editor HTML, după care se va utiliza şi modifica 
codul-sursă în cadrul aplicației VFP. 


492 Visual FoxPro 


După cum se observă, şirul conține numele tuturor obiectelor de tip Input ce se 
regăsesc pe formular, împreună cu valorile introduse de utilizator în ordinea în care sunt 
aşezate în pagina HTML şi delimitate prin semnul &. De asemenea, va conține numele şi 
valoarea butonului de tip Submit ce a fost apăsat, iar spaţiile vor fi înlocuite cu semnul +, 

Ca urmare, şirul de caractere va trebui să fie analizat pentru a extrage din el numai acele 
segmente ce contribuie la îndeplinirea obiectivului metodei. 


Listing 14.3. Cod-sursă pentru definirea componentei COM clasal 


PR a a ta 
4DEFINE CR CHR(13)+CHR(10) 


DEFINE CLASS clasat AS CUSTOM OLEPUBLIC 


FUNCTION INIT 
SET DEFAULT TO Ciidatabase_webi 
USE produse IN 0 SHARED 
USE liniifact IN O SHARED 
USE facturi IN O SHARED 
USE localitati IN O SHARED 
USE clienti IN 0 SHARED 
RETURN 


FUNCTION QUERY_FORM 
LPARAMETER IcFormVars, IciniFile, InReleaseFlag 
LOCAL v_pagina_form1 


v_pagina_formî= ; 


[<HTML>]+CR+; 

[<BODY>]+CR+; 

[<H2> <b><i> SELECTATI UN PRODUS SI/SAU UN CLIENT </i></p></H2><HR>HCR+; 
[<FORM method="POST" 


ACTION="/scripts/foxisapi.di/web_Test1.clasa1t.query_parametrizat">]+CR+; ` 
[<p align="left"><BR>]J+CR+; . 

[<b>introduceti un cod de client:</b><input type="text" name="textt” size="209" vaiue="toti"><BR>j+CR+, 
[<b>Seiectati produsu! dorit :</p>; <SELECT NAME="COMBO1” size="1">]+CR+; 
[<OPTION SELECTED VALUE="toate"> Toate produsele]+CR 

** generam lista de elemente 

SELECT produse 
SCAN 
v_pagina_form1=v_pagina_formt+; 
[<OPTION VALUE=I+ALLTRIM(STR(produse.codpr))+[> |+produse.denpr+CR 
ENDSCAN ` 


v_pagina_form1=v_pagina_form1+; 
[</SELECT> <BR><BR>HCR+; 
[<input type="submit" name="OK" value=" OK "><input type="reset"'>]+CR+; 
[</form>|+CR+; g 
[</body>]+CR 


RETURN v_pagina_form1 
FUNCTION Query_parametrizat 


LPARAMETER p_input_form,ciniFile, inReleaseFlag 
LOCAL. v_codcl,v_codpr,poz_delimitator,poz_egal 


câtă RETU p_input_form  && doar in faza de testare 
""*_stim ordinea in care sunt asezate valorile introduse in sirul de caractere ce vine ca parametru 
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SELECT dencl,ioc,denpr,cant, valoare; 
FROM clienti C,c1 localitati |; 


poz_delimitator=AT(&',p_input_form)  && preluăm poziția primului semn "&" în sirul de caractere 
v„codcl=LEFT(p_input_form,poz_delimitator-1) && poz_delimitator-1 :eliminam '&' 
poz_egal=AT('='v_codcel) 

v_codel=RIGHT(v_codei,LEN(v_code!)-poz_egal) && este de tip CHARIIIII 


p_input_form=RIGHT(p_input_form,LEN(p_input_form)-poz_delimitator) 


poz_delimitator=AT('&',p_input_form) 
v„codpr=LEFT(p_input_form,poz_delimitator-1) 
poz_egal=AT('='v_codpr) 


v_text_htmi="HTTP/1.0 200 OK'"+CR+; ; 
"Content-type: text/htmi"+CR+CR && neaparat si o linie libera (a! doilea CR) 


v_text_htmi=v_text_htmi+ ; 
[<HTML><BODY BGCOLOR="4FFFFFF">] +; 
[<H1>Situatia Livrarilor de Produse</H1>] + [<p>] 


*** test exista cod client 
„X=SEEK(v_codcl,'clienti','codel') 
IF x=.F. AND v_codel<> toti ' 
v_„codcl=toti && dam toti clientii daca a introdus un cod gresit 
v_text_htmi=v_text_html+; 
Se [<H3> Pentru toti clientii deoarece CODUL introdus.NU este valid</H3><HR><p>] 


** construim cursorul in functie de valorile introduse 
DO CASE 
CASE v_codci='toti' AND v_codpr='toate' 
SELECT denpr,codel,SUM(cantitate) AS cant, SUM(1+proctva)*cantitate*pretunit AS valoare ; 
FROM facturi F „liniifact I,produse p ; 
© WHERE I.nrfact=F.nrfact AND p.codprel.codpr: 
GROUP BY codcl,p.codpr; 
INTO CURSOR c1 
CASE v_codei=ttoti' F 
SELECT denpr,codci,SUM(cantitate) AS cant, SUM(1+proctva)*cantitate*pretunit AS valoare ; 
FROM facturi F,liniifact I, produse p ; 
WHERE l.nrfact=F.nrfact AND p.codpr=l.codpr AND p.codpr=VAL(v_codpr); 
GROUP BY codcl,p.codpr; 
INTO CURSOR c1 
CASE v_codpr='toate' 
SELECT denpr,codci,SUM(cantitate) AS cant, SUM(1 +proctva)*cantitate“pretunit AS valoare ; 
FROM facturi F liniifact L produse p ; 
WHERE l.nrfact=F.nrfact AND p.codpr=i.codpr AND codcl=VAL(y_codci); 
GROUP BY codel,p.codpr; 
INTO CURSOR c1 
OTHERWISE && avem valori valide selectate pe ambele 
SELECT denpr,codcl,SUM(cantitate) AS cant, SUM(1 +proctva)*cantitate“pretunit AS valoare ; 
FROM facturi F ,liniifact I produse p ; 
WHERE I.nrfact=F.nrfact AND p.codpr=l.codpr AND p.codpr=VAL(v_codpr); 
; AND codcl=VAL(v_codcl); 
GROUP BY codel,p.codpr; 
INTO CURSOR c1 
ENDCASE 
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WHERE C.codci=ct.codci AND C.codoost=l.codpost: 
INTO CURSOR c2 ORDER BY dencl,denpr 


v_text_himi=v_text_htmi+ 
[<TABLE BGCOLOR=HEEEEEE CELLPADDING=4 BORDER=1 WIDTH=100%>H+CR+; 
[<TR BGCOLOR=4FFFFCC><TH>Client</TH><TH>Localitate</TH><TH>NumeProdus</TH>]+; 
[<TH>cantitate</TH><TH>valoare</TH></TR>]+CR 


SCAN && cursorul C2 este in zona curenta de lucru 
*** Construim liniile tabelului ce va constitui raportul din figura 14.15 > 
v_text_htmi=v_text_htmi+ [<TR><TD>]+; 
ALLTRIM(IIF (EMPTY (c2.denci), "<BR>", ,c2.denci))+[</TD><TD>}+; i 
ALLTRIM(IF(EMPTY(c2.loc),"<BR>",02.loc))+[</a></TD><TD>]+; i 
ALLTRIM(IF(EMPTY(c2.denpr),"<BR>",c2.denpr))+[</TD><TD>]+; i 
ALLTRIM(STR(c2.cant))+[</TD><TD>]+; 
ALLTRIM(STR(c2.valoare))+[</TD></TR>]+CR 


ENDSCAN ; 
i 
RETURN v_text_htmi | EEN 
FUNCTION DESTROY. l Figura 14.17. Formular pe Web pentru vizualizare/actualizare date în timp real 
LOSE TABLES ALL 3 , : A uaa: 
paie A Codul-sursă HTML pentru formularul din figura de mai sus îl regăsim în listingul 
RETURN următor: 
Listing 14.4. Codul-sursă HTML al formularului din figura 14.17 
ENDDEFINE <HTML> 
<BODY bgcolor="4COCOCO"> 
SEE IRS i F A sa <BODY> 
Observăm în listingul de mai sus că pentru construirea textului HTML am utilizat <H2> <h><i>FORMULAR FACTURIa/i></p></H2><HR><p>Inregistrare curenta: 1 


<FORM method="POST" ACTION="/scripts/foxisapi. dilmeb_Test1. actualizari.actiune"> 
<p align="center"> 
<input type="submit" name="primul" value="Prima"><input type="submit" name="anterior" 
value="Anterior'><input type="submit" name="urmator" value="Urmator'><input type="submit" 
name="ultimul” vaiue="Uitima"> 
<input name="NR_INREGISTRARE" type="hidden" value = 1><p> 
<table border="0" width="100%"> 
<tr> 
<td width="21%"><b>Numar factura: </b></td> è 
Fie width="79%"><input type="text" name="TxiNrfact” size="20" value= - 1111><A4d> 
<tr> 
<tr> 
<td width="21%"><b>Data Factura: </p></td> 
a width="79%"><input type="text" name="TxtDatafact" size="20" value=08/01/00></td> 
r> 
<tr> 
<td width="21%"><b>Client:</b></td> 
<td width="79%"><SELECT NAME="CboClient" size="1"> 
<OPTION SELECTED VALUE=1005>Client 5 SRL 
<OPTION VALUE=1001>Client 1 SRL 
<OPTION VALUE=1002>Ciient 2 SA 
<OPTION VALUE=1003>Glient 3 
<OPTION VALUE=1004>Client 4 
<OPTION VALUE=1006>Client 6 SA 
<OPTION VALUE=1007>Cliient 7 SRL 
</SELECT></td> 
</tr> 


| o oste ssel 


paranteze pătrate în locul ghilimelelor. Acest lucru este necesar atât pentru sporirea 
lizibilității codului, cât şi datorită faptului că textul generat conține el însuşi ghilimele. 
O dată construită şi testată această componentă, o putem apela fie direct din browser 


(http:/NumeServerWeb/scripts/foxisapi.dii/web_test1.clasa1.auerv_form), fie iata intro- 
duce un link în HomePage-ul serverului Web astfel: 


<a HREF="/scripts/foxisapi.dil/web_test1.clasa1.auery_form'"> <i>INTEROGARI 
PARAMETRIZATE</i></a> <p> i 


14.4. Formular de vizualizare/actualizare înregistrări 


Orice aplicaţie Web care îşi propune să ofere acces în timp real la date conţine măcar un 
formular de actualizare înregistrări în baza de date. Modalitatea de abordare a unei 
asemenea probleme constituie scopul exemplului ce-l vom prezenta în continuare. 

Așadar, presupunem că se doreşte realizarea unui formular de actualizare a facturilor. 
Având în vederea organizarea bazei de date VINZARI, ştim că datele unei facturi sunt 
distribuite în două tabele, FACTURI şi LINIIFACT, relaționate prin numărul de factură 
(câmpul Nrfact). Ca urmare, pe formular trebuie să regăsim la un moment dat o 
înregistrare din tabela FACTURI şi toate înregistrările corespunzătoare (cu acelaşi număr 
de factură) din tabela LINIIFACT (figura 14.17). 


67. Pentru structura tabelelor, vezi capitolul 2. 


covor oi mama pr Aita aaa peace dna e 


<td width="21%"><b>Gestiune:</b></td> . A 
<td width="79%"><SELECT NAME="CboGestiune” size="1"> 
<OPTION SELECTED VALUE=002>Depozit Suceava 
<OPTION VALUE=001>Depozit Pacurari 
<OPTION VALUE=003>Sectie Pascani 
</SELECT></td> 
</tr> 
<itable> 
<HR> 
<p align="center"> 
<input type="submit" name="modifica" 
value="Anulez Modificari ><p> 
<table border="3" width="100%"> 
<tr> 
<td width="1%" align="center'><b>Linie</bp></td> 
<td width="12%" align="center'><b>Produs</b></td> 
<td width="27%" align="center"><b>Cantitate</b> </td> 
<td width="20%" align="center'><b>Pret</bp></td> 
</tr> 
<tr> 
<td width="1%"> 
<p align="left">1</td> 
<td width="12%"> 
<p align="center'><SELECT NAME=CboProd1 size="1"> 
<OPTION SELECTED VALUE=2>Produs 2 
<OPTION VALUE=1>Produs 1 
<OPTION VALUE=3>Produs 3 
<OPTION VALUE=4>Produs 4 
<OPTION VALUE=5>Produs 5 
<OPTION VALUE=6>Produs 6 
</SELECT><Atd> 
<td width="27%"> cec iile 
<p align="center'><input type="text" name=TxtCant1 size="20" value=300></p> 
</td> 
<td width="20%"> 
<p align="centar"><input type="text" name=TxtPret1 size="20" value=454></p> 
<ftd> 
<fr 
<tr> 
<td width="1%"> 
<p align="left"'>2</td> 
<td width="12%"> | 
<p align="center'><SELECT NAME=CboProd2 size="1"> 
<OPTION SELECTED VALUE=4>Produs 4 
<OPTION VALUE=1>Produs 1 
<OPTION VALUE=2>Produs 2 
<OPTION VALUE=3>Produs 3 
<OPTION VALUE=5>Produs 5 
<OPTION VALUE=6>Produs 6 
</SELECT></td> 
<td width="27%"> ouă tu 
<p align="center'><input type="text" name=TxtCant2 size="20" value=1000></p> 
</td> 
<td width="20%"> f , 
<p align="center'><input type="text” name=TxtPret2 size="20" value=58></p> 
</td> 
<r> 
<tr> 
<td width="1%"> 
<p align="left'>3</td> 


value="Salvez  Modificari'><input 
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type="reset" 
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<td width="12%"> 
<p align="center'><SELECT NAME=CboProd3 size="4"> 
<OPTION SELECTED VALUE=5>Produs 5 
<OPTION VALUE=1>Produs 1 
<OPTION VALUE=2>Produs 2 
<OPTION VALUE=3>Produs 3 
<OPTION VALUE=4>Produs 4 
<OPTION VALUE=6>Produs 6 
</SELECT></td> 
<td width="27%"> 
<p align="center"><input type="text" name=TxtCant3 size="20" value=100></p> 
</td> 
<td width="20%"> 
<p align="center"><input type="text" name=TxtPret3 siże="20" value=200></p> 
</td> 
</tr> 
- </table> 
<p><H4> ADRESA BROWSER-ULUI: 194.176.165.151 </h4> 
</form> 


L </body> 


La proiectarea unui formular ce va actualiza date în două tabele relaționate 
(părinte—>copil) apar câteva probleme conceptuale suplimentare. 

Astfel, pentru că mai mulți clienți pot accesa diverse înregistrări simultan, metoda ce 
asigură navigarea şi/sau actualizarea înregistrărilor va trebui să dispună de un „punct de 
reper” care să identifice în mod unic înregistrarea pe care se află clientului x sau y la un 
moment dat (nu uităm că numărul de factură este modificabil). Un asemenea identificator 
unic poate fi considerat numărul înregistrării, care este alocat fizic la introducerea acesteia 
în tabelă şi nu se modifică până la ştergerea definitivă a liniei respective. În exemplul de 
mai sus (listingul 14.4), obiectul de tip Hidden cu numele Nr_inregistrare introdus 
în formular are tocmai rolul de a stoca această valoare în vederea utilizării ei pentru 
navigare/actualizare. 

Știm deja că la apăsarea unuia dintre butoanele de tip Submit, foxisapi.all 
transmite ca parametru un şir de caractere ce cuprinde numele obiectelor de tip Input şi 
valorile introduse sau selectate de utilizator. Ca urmare, în cazul modificării unei valori în 
tabela Linii fact, trebuie să existe un mecanism care să identifice înregistrarea pe care 
trebuie efectuată actualizarea. l 

O modalitate de rezolvare a acestei probleme ar fi utilizarea unei tabele derivate (view) 
cu numele Vliniifact_1 (listingul 14.5) care să preia din tabela Liniifact doar 
liniile aferente facturii curente. Câmpurile modificabile din acest view vor fi apoi plasate pe 
formular prin intermediul unor obiecte a căror nume va urma o anumită codificare, astfel: 
ChoProdi, TxtCanti., TxtPreti, unde i constituie numărul de linie (corespunzător 
câmpului Liniifact.linie) la care se referă obiectul. Pe baza acestui cod intern, 
metoda de actualizare va modifica valorile câmpurilor corespunzătoare (codpr, 
cantitate, pretunit) în tabela derivată, pe linia pe care s-a făcut actualizarea. 

Un alt aspect foarte important se referă la faptul că, atunci când există mai multe 
butoane de tip Submit pe un formular, în şirul ce va fi transmis ca parametru se va regăsi 
doar numele şi valoarea butonului apăsat. Astfel, în situaţia din figura 14.17, apăsarea 


butonului „Urmator” va trimite, ca prim parametru al metodei Actiune, un şir de 
caractere de genul: 
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urmator=Urmator&NR_INREGISTRARE=1&TxtNrfact=1111&TxtDatafact=08%2F01%2F 

00&CboClient=1005&CGboGestiune=002&CboProd1=2&TxtCant1=300&TxtPret1=4548&C 

boProd2=4&TxtCant2=1000&TxtPret2=58&CboProd3=5&TxtCant3=100&TxtPret3=200 

Acest şir va trebui analizat în scopul extragerii valorilor ce corespund câmpurilor din 
cele două tabele. Este de la sine înţeles că șirul va avea o lungime variabilă, în funcție de 
numărul liniilor unei facturi (numărul de linii din tabela derivată vliniifact_1). 

Componenta COM, cu numele Actualizari (inclusă în acelaşi server Web_test1), 
prin care s-a realizat aplicaţia (listingul 14.6), cuprinde următoarele metode: 

e Init- deschide tabelele necesare în mod partajat; 

e Start Page — este metoda apelată la prima cerere de acces a clientului Web la 
formular cu rol de poziționare pe prima înregistrare în tabela Facturi şi de apel 
al metodei Gen_Html; 

ə  Gen_Html — generează codul HTML al formularului (vezi şi listingul 14.4), în 
funcţie de poziţia curentă a clientului Web în tabela Facturi. Este apelată de 
metodele Start Page şi Acţiune cu parametrul p_adresaIP, ce cores- 
punde adresei browserului clientului (preluat din fişierul de inițializare cu ajutorul 
funcției GetPrivateProfilestring()); 

e Acțiune — metodă apelată de formular ce analizează şirul primit ca parametru 
de la formular şi execută acţiunea solicitată de client: deplasare de la o înregistrare 
la alta sau actualizare date; 

e  Comite Modificari — compară datele existente cu valorile primite ca 
parametru şi, dacă există diferențe, „comite” modificările în baza de date; l 

» Parsing_Input_Form — analizează şirul de caractere primit ca parametru şi, 
în funcţie de poziţia delimitatorului &, extrage „blocurile” ce cuprind numele 
obiectului de tip Input şi valoarea sa (un exemplu de asemenea „bloc” extras din 
şirul de mai sus ar fi: TxtCant3=100). Fiecare segment de caractere este apoi 
transmis metodei Repartizare; 

e  Repartizare — populează un cursor cu două coloane, numeobiect și 
valoareobiect, prin analiza unui segment furnizat de metoda 
Parsing_Input_ Form şi extragerea a două subșiruri în funcţie de poziţia 
semnului pe în şirul inițial. În final vom obtine un cursor cu toate numele 
obiectelor de pe formular şi valorile lor (figura 14.18); i 

e Destroy — închide baza de date la descărcarea componentei din memorie. 


LEII i [7 
Figura 14.18. Cursor obținut în urma analizei şirului de caractere transmis 
ca parametru de formularul Web 
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Listing 14.5. Definiţia view-ului utilizat de componenta Actualizari 
pentru vizualizarea/actualizarea facturilor 


l nrfact_=1111 && variabila initializata cu o valoare aleatoare in scopul functionarii codului ce 
urmeaza 


REATE SQL VIEW viiniifact_1 AS ; 
SELECT nrfact linie, |.codpr.cantitate,pretunit,denpr i 
FROM liniifact i produse p WHERE p.codpr=l.codpr AND nrfact=nrfact_ ORDER BY linie 


DBSETPROP('vliniifact_1 „view tables' liniifact”) 


DBSETPROP(viiniifact_1 „nrfact field 'keyfield',.T.) 
DBSETPROP(viiniifact_1 linie field: 'keyfieid'..T.) 


DBSETPROP(vliniifact_1 „nrfact''field' 'updatename liniifact.nrtact') 
DBSETPROP('vliniifact_1 „linie 'field' 'updatename.,liniifact. linie') 
BSETPROP('vliniifact_1 „codpr”, field','updatename 'linlifact.codpr’) 
DBSETPROP(vliniifact_1 «Cantitate,, field ,'updatename'liniifaci. cantitate") 
DBSETPROP(viiniifact_1.preatunit, ield','updatename iiniifact.pratunit:) 


DBSETPROP('Vliniifact_1 „nrfact'„field' 'updatabla',.T.) 
DBSETPROP('vliniifact_1. linie' field 'updatable',.T.) 
DBSETPROP('vliniifact_1 .codpr'field','updatable', T.) 
DBSETPROP('vliniifact_1 „cantitate', field 'updatable',.T.) 
DBSETPROP('vliniifact_1 „pretunit.field','updatable', Ț.) 


DBSETPROP(vliniifact_1', view, 'SenduUpdates', T.) 


Listing 14.6. Program pentru definirea componentei Actualizari pentru obținerea 
formularului Web din figura 14.47 


4DEFINE CR CHR(13)+CHR(10) 


DEFINE CLASS actualizari AS CUSTOM OLEPUBLIC 


FUNCTION INIT 
"asiguram tratarea erorilor neprevazute 
PUBLIC a_fost_o_eroare 
a_fost_o_eroare=!nu' 
ON ERROR a_fost_o_eroare=STR(ERROR())+" " +MESSAGE() 


SET DEFAULT TO c'ldatabase_webi 
OPEN DATA vinzari SHARED 

USE produse IN 0 SHARED 

USE liniifact IN O SHARED 

USE facturi IN 0 SHARED 

USE localitati IN 0 SHARED 

USE clienti ÎN 0 SHARED 

USE gestiuni IN 0 SHARED 


RETURN 


FUNCTION START_PAGE 
LPARAMEȚER p_input_form,iciniFiie, inReleaseFlag 


“Vom extrage (din fisierul .ini trimis ca parametru de foxisapi.dil) cu ajutorul functiei API 
*"GetPrivateProfileString, adresa IP a browser-ului client 


RETURN this.gen_himi(adresalP) 
FUNCTION ACTIUNE 


La a i i eee 
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DECLARE INTEGER GetPrivateProfileStrina IN win32api STRING.STRING.STRING.: 
STRING @. INTEGER, STRING 

adresalP = SPACE(500) 

nien = GetPrivateProfileString("FOXISAPI",“Remote Host", QadresalP,LEN(adresa!P) iciniFile) 
adresalP= LEFT(m.adresa!P,m.nlen) 

SELECT facturi 

GO TOP 


LPARAMETER p_input_form,ciniFile, InReleaseFlag 
“return p_input_form && numai pentru teste 


LOCAL v_codcl,v_codpr,poz_delimitator,poz_ega! 
InReleaseFlag=0 && pastreaza serverul incarcat in memorie 


SET SAFETY OFF 

DECLARE INTEGER GetPrivateProfileString IN win32api STRING,STRING,STRING,; 
STRING @, INTEGER,STRING 

adresalP = SPACE(500) 

nlen = GetPrivateProfileString("FOXISAP!" "Remote Host", @adresalP,LEN(adresalP),IciniFile} 

adresalP= LEFT(m.adresalP,m.nlen) 


** extragem numaru! de inregistrare pe care se afla browser-ul 
x=AT(NR_INREGISTRARE=",p_input_form) 
trunc_sir=RIGHT(p_input_form,LEN(p_input_form)-(x+15)) 

x=AT('&'trunc_sir) 

v_nr_inregistrare=VAL(LEFT(trunc_sir,x-1)) && v_nr_inregistrare trebuie transformat în tip numeric 


SELECT facturi 
GO v_nr_inregistrare 


a_fost_pozitionare=.F. 
* vom folosi operatorul $ pentru a verifica daca un sir de caractere se regaseste in altul. 
* Concret, vom căuta numele butonului ce a fost apasat pentru a sti ce trebuie sa facem 
DO CASE 
CASE “primul="$p_input_form 
a_fost_pozitionare=.T. 
GO TOP 
CASE “anterior="$p_input_form 
a_fost_pozitionare=.T. 
SKIP -1 
IF BOF() 
SKIP 1 
ENDIF 
CASE “urmator="$p_input_form 
a_fost_pozitionare=.T. 
SKIP 1 
IF EOF(Q 
SKIP -1 
ENDIF 
CASE “uitimul="$p_input_form 
a_fost_pozitionare=.T. 
GO BOTTOM 
ENDCASE 
IF a_fost_pozitionare=.T, 
RETURN THIS.gen_htmi(adresa!P) 
ENDIF 


DO CASE 
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CASE 'modifica='$p input form && utilizatorul a apasat butonul de comitere a modificarilor 
THIS.comite_modificari(p_input_form,v_nr_inregistrare) 


IF a_fost_o_eroare<>'nu' 
RETURN a_fost_o_eroare 
ELSE 
RETURN THIS.gen_htmi(adresalP) 
ENDIF 
ENDCASE 


RETURN 


FUNCTION comite_modificari 
LPARAMETER p_sir_preluat,p_inreg_curenta ; 
** ne vom pozitiona pe inregistrarea corespunzatoare in Facturi 
SELECT facturi 
GO p_inreg_curenta 
SET DATA TO vinzari 
nrfact_=facturi.nrfact 


IF 'USED('vliniifact_1”) 
USE vliniifact_1 IN O 

ENDIF 

REQUERY ("vliniifact_1") 


THIS.parsing_input_form(p_sir_preluat) 


** cursorul Cparsing generat de metoda anterioara cuprinde numele obiectelor de pe formular si 
"valorile lor 
SELECT vaioarecontrol FROM cparsing ; J 
WHERE ALLTRIMLOWER(numeconitrol)) IN {"bdnrfact","oddatafact","cboclient","cbogestiune"); 
INTO ARRAY a_modif_facturi 


** efectuam modificarile in Facturi daca e nevoie 
IF VAL(a_modif_facturi(1))<>facturi.nrfact 
REPLACE facturi nrfact WITH VAL(a_modif_facturi(1)) 

ENDIF 

IF VAL.(a_modif_facturi(3))<> facturi codcl 
REPLACE facturi.codel WITH VAL(a_modif_facturi(3)) 

ENDIF 

IF ALLTRIM(a_modif_facturi(4))<>ALLTRIM(facturi.gestiune) 
REPLACE facturi.gestiune WITH ALLTRIM(a_modif_facturi(4)) 

ENDIF 


* efectuam modificarile in view, acolo unde este cazul, pe baza numarului de linie ce se regaseste 
*in numele obiectelor de pe formular 
SELECT vliniifact_1 
a_fost_modificare=.F. 
SCAN 
nr_rec=ALLTRIM(STR(RECNO0)) 
"ordinea din cursor o stim ; si sigur avem tot atatea linii in pagina web cate in view 
SELECT valoarecontrol FROM cparsing ; 
WHERE ALLTRIM(LOWER(numecontrol)) IN (“cboprod”+nr_rec,"txtcant"+nr_rec,"ttpret"+nr_rec); 
INTO ARRAY a_modit_linie 
IF vliniifact_1.codpr<>VAL(a_madif_linie(1)) 
REPLACE vliniifact_1.codpr WITH VAL(a_modif_linie(1)) 
a_fost_modificare=.Ț. 
ENDIF 
IF viiniifact_1 .cantitate<>VAL(a_modif_linie(2)) 


REPLACE vliniifact_1.cantitate WITH VAL(a_modif linie(2)) 
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a_fost_modificare=.T. 
ENDIF 
IF vliniifact_1.pretunit<>VAL.(a_modif_linie(3)) 
REPLACE vliniifact_1.pretunit WITH VAL(a_modit_linie(3)) 
a_fost_modificare=. T. 
ENDIF 


IF a_fost_modificare=.T. 
x=TABLEUPDATE() 
IF x=.F. 
TABLEREVERT() 
ENDIF 
a_fost_modificarez.F. 
ENDIF 
ENDSCAN 
RETURN 


FUNCTION parsing_input_form 
LPARAMETER p_input 


poz_delimit_stg=0 
CREATE CURSOR cparsing(numecontrol c(50), valoarecontrol c(59)) 
FOR i=1 TO LEN(p_input) 
IF SUBSTR(p_ input,i,1)="8&" && am ajuns la un delimitator 
* vom extrage bucata de sir din stanga pana la delimitatorul anterior 
* va iesi ceva de genul: numecontrol=valoare 


sir_extras=SUBSTR(p_input,poz_delimit_stg+1.i-1-poz_delimit_stg) 


* repartizam bucatile de sir din stg. si dr. egalului 
THIS.repartizare(sir_extras) 
poz._delimit_stg=i 
ENDIF 
ENDFOR 
** metoda "repartizare" mai trebuie lansata o data pentru a extrage si ultimul Txtpret 
" pentru ca acesta nu mai este urmat de un delimitator 


sir _extras=SUBSTR(p_input,poz_delimit_stg+1,LEN(p_input)) 
THIS. repartizare(sir_extras) 
RETURN 


FUNCTION repartizare 

LPARAMETER p_sir 
"” separam sirul din stanga egalului de cel din dreapta 
poz_egai=0 
FOR m=1 TO LEN(p_sir) 

IF SUBSTR(p_sir,m,1)="=" 

poz_egai=m 

ENDIF 
ENDFOR 
Sir_dreapta=LEFT(p_sir.poz_ega!-1) 
sir_stanga=RIGHT(p_sir,L.EN(p_sir)-poz_egal) 


INSERT INTO cparsing VALUES (sir_dreapta,sir_stanga) 
RETURN 


oo emana 
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FUNCTION gen_htmi 
LPARAMETERS p_adresalP 
PUBLIC nrfact_ 
nrfact_=facturi.nrfact 
SET DATA TO vinzari 


IF IUSED("vliniifact_1") 
USE vliniifact_1 IN 0 

ENDIF 

REQUERY ("vliniifact,_1") 


v_text_htmi=; 

<HTML>]+CR+[<BODY bgcolor="4COCOCO">]+CR+; 

<BODY>HOR+; 

[<H2> <b><i>FORMULAR FACTURI</i></><IH2><HR><p>inregistrare curenta: ]+; 
STR(RECNO("facturi))+CR+, 

[<FORM method="POST" ACTION="/scripts/foxisapi.dl/web_Test1 .actualizari.actiune">]+CR+; 
[<p align="center'>]+CR+; 

[<input type="submit" name="primul” value="Prima"><input type="submit" name="anterior" ; 
value="Anterior” ><input type="submit']+; 

[ name="urmator“ value="Urmator'><input type="submit" name="ultimul” value="Ultima">j+CR+; 
{<input name="NR_INREGISTRARE" type="hidden" value = J+ ; 
ALLTRIM(STR(RECNO("facturi") )))+î><p>h+CR+; 

(<table border="0" width="100%">1+CR+; 

[ <tr>]+CR+; 

| <td width="21%"><b>Nurnar factura:</b></4d>+CR+; 

[ <td width="79%"><input type="text" name="TxtNrfact" size="20" 

e=]+STR(facturi nrfact)+[></td>]+CR+; 

</tr>]+CR+; 

[ <tr>]JtCR+; 

[<td width="21%"><b>Data Factura:</b></td>]}+CR+; 

[ <td width="79%"><input type="text" name="TxtDatafact" size="20" value=]+; 
DTOC{facturi.datafact)+{></td>]+CR+; 

| <ArjCR+; 

[ <t]+CR+; 

[ <td width="21%"><b>Client:</p></td>+CR+; 

[ <td width="79%"><SELECT NAME="CboClient" size="1"> ]+CR 


valu 


* vom adauga obiectele de tip lista. Valoarea implicit selectata va fi valoarea curenta a ctientului 
* sau gestiunii din tabela Facturi 


v_eodc!l=facturi.codel 

x>SEEK(v_ codci,"'clienti",'codcl”) && cauta si pozitioneaza pe numele clientului din factura 
curenta 

v_denci=ciienti.denci 

v_gestiune=facturi.gestiune 

x=SEEK(v_gestiune,"gestiuni",“gestiune”) 

v_dengest=gestiuni.den_gest 


v_text_himl=v_text_htmi+; 
[<OPTION SELECTED VALUE=]J+ALLTRIM(STR(v_codcl))+[>1+ ALLTRIM(v_denc!)+CR 


SELECT clienti 
SCAN FOR codel<>v_codel . 

v_text_himi=v_text_htmi+; 

[<OPTION VALUE=]ALLTRIM(STR(ciienti.codcl))+[>]+ALLTRIM(clienti.denci)+CR 
ENDSCAN 
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v_text_htmi=v_text_htmi+; 
[</SELECT><Ad>]+CR+; 
[ <ftr>hCR+; 
[ <tr>]+CR+; 
[ <td width="21%"><b>Gestiune:</b></td>]+CR+; 
| <td width="79%"><SELECT NAME="CboGestiune" size="1"> J+CR+; 
[<OPTION SELECTED VALUE=J+ALLTRIM(v_gestiune)+[>]+ ALLTRIM(v_dengest)+CR 


SELECT gestiuni 
SCAN FOR gestiune<>v_gestiune 

v_text_htmi=v_text_htm!+; i 

[<OPTION VALUE=]+ALLTRIM(gestiuni.gestiune)+[>]+ALLTRIM(gestiuni.den_gest)+CR 
ENDSCAN 


v_text_himi=v_text_html+; 
[</SELECT></Atd>]+CR+; 
[ </tr>]+CR+; 
[</table>]+CR+; 
[<HR>]+CR+; 
[<p align="center">]+CR+; 
[<input type="submit" name="modifica" value="Salvez Modificari"><input type="reset" ; 
value="Anulez Modificari"><p>]+CR i 


** adaugam liniile facturii 

** incepem cu generarea capului de tabel 

v_text_htmi=v_text_html+; 

[<table border="3" width="100%">]+CR+; 

[ <tr>]+CR+; 

[ <td width="1%" align="center'><b>Linie</p></td>]+CR+; 

[ <td width="12%" align="center"><b>Produs</p></ftd>|+CR+; 

[ <td width="27%" align="center'><b>Cantitate</p><Ad>]+CR+; 

[ <td width="20%" align="center"><b>Pret</p><htd>]+CR+; 

[ <tr>+CR 

SELECT viiniifact_4 

“continuam cu generarea liniilor efective preluate din view 

SCAN 
text_linie_de_adaugat=” 3 ` 
SELECT codpr,denpr FROM produse WHERE produse.codpr<> vliniifact_1.codpr; 
„INTO ARRAY elemente_comba 
nume_controiCombo="CboProd"+ALLTRIM(STR(RECNO()) 
nume_controiTxtcant="TxtCant"+ALLTRIM(STR(RECNO()) 
nume_controiTxtpret="TxtPret"+ALLTRIM(STR(RECNO())) 
text_elemente_combo=" - 

FOR l=1 TO ALEN(elemente_combo,1) && pentru toate liniile din matricea generata anterior 

text_elemente_combo=text_elemente_combo+; 
[<OPTION i 
VALUE=]+ALLTRIM(STR(elemente_combofl,1)))+(>]+ALLTRIM(elemente_combo([,2))+CR 

ENDFOR 

text_linie_de_adaugat=; 
[<tr>]+CR+; 

[<td width="1%">]+CR+; 

[ <p align="let"'>]+ALLTRIM(STR(RECNO())+</Atd>]+CR+: && asta-i numarul liniei 

[<td width="12%">]+CR+; 

[ <p align="center'><SELECȚ NAME=]+nume_controiCombo+{ size="1"> J+CR+; 
[<OPTION SELECTED VALUE=]}+ALLTRIM(STR(vliniifact_1 „codpr))+[>]+vliniifact_1.denpr+CR+; 
text_elemente_combo+; && are deja CR de la ultimu! element generat din FOR 
[</SELECT></td>]+CR+; 

[ <td width="27%">]+CR+; 


|___Î__<p align="center'><input type="text" name=]+nume _controlTxteant+ size="20" value=|+; 


carate tat 
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ALLTRIM(STRIviiniifact 1.cantitate)+H></p>}+CR+: 
| </td>}+CR+; 
[ <td width="20%">]+CR+; 
[ <p align="center"><input type="text" name=]+nume_controiTxtpret+| size="20" value=]+; 
ALLTRIM(STR(vliniifact_1.pretunit))+[></p>]+CR+; 
[ </td>]+CR+; 
| </tr>]}+CR 
v_text_htmi=v_text_himi+text_linie_de_adaugat 
ENDSCAN 
v_text_htmi=v_text_htrnl+; 
[</table>|+CR+; 
[<p><H4> ADRESA BROWSER-ULUI: j+p_adresalP+[</h4>]+CR+; 
[</form>]+CR+; i 
[</body>] 
RETURN v_text_htmi 
FUNCTION DESTROY 
CLOSE DATA ALL 
RETURN 
ENDDEFINE 


Deşi, la prima vedere, metoda GenHtml pare complicată, ea se realizează foarte simplu 
dacă utilizăm un editor HTML pentru generarea formularului cu date de test pentru 
controale, după care intervenim în codul-sursă numai pentru a genera elementele listelor şi 
valoarea curentă pentru fiecare obiect în parte. 

Observăm în listingul de mai sus şi utilizarea funcţiei API GetPrivateProfile 
String (), cu ajutorul căreia putem obține diverse informaţii din fişierul de iniţializare 
creat de foxisapi.a1l la fiecare execuție a unei componente COM. Conţinutul unui 
asemenea fişier îl regăsim în listingul următor: 


Listing 14.7. Fişier .ini creat de foxisapi.a1ll 
la instanțierea componentei Actualizari 


[FOXISAPI] 

Request Method=GEȚ 

Query String= 

Logical Path=/web_test1.actualizari.start_page 

Physical Path=C'netpub'iwwwrootiweb_test1 .actualizari.start_page 

FoxISAPI Version=FoxISAP! v1.2 

Request Protocol=HTTP/1.1 

Referer=/scripts/foxisapi.d!! 

Server Software=Microsoft-|1S/5,0 

Server Name=webtest 

Server Port=80 

Remote Host=194.176.165.152 

Remote Address=194.1476.165.152 

(ALL_HTTP] 

HTTP_ACCEPT=image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms- 
powerpoint, application/vnd.ms-excel, application/msword, */* 

HTTP_ACCEPT_LANGUAGE=en-us 

HTTP_CONNECTION=Keep-Alive 

HTTP_HOST=webtest 

HTTP_REFERER=http://webtest/ 

HTIP_USER_AGENT=Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0; .NET CLR 1.0.2914) 

HTTP_ACCEPT_ENCODING=gzip, deflate ; 

[Accept] 


L__image/gif=Yes 
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imaae/x-xbitmap=Yes 
image/jpeg=Yes 

image/pipeg=Yes 
application/vnd,ms-powerpoint=Yes 
application/vnd.ms-excel=Yes 
application/msword=Yes 

"/"=Yes 

[SYSTEM] 

|__SMT Offset=7200 


14.5. Managerul instanțelor multiple în FoxISAPI 


După cum precizam şi la începutul capitolului, orice aplicaţie Visual FoxPro este de tip 
monofir (single-threaded), pe când extensia ISAPI este multifir (multi-threaded). Ca 
urmare, singura modalitate de a beneficia de avantajul procesării simultane a mai multor 
cereri de acces la aceeaşi componentă COM constă în utilizarea unor instanțe multiple ale 
acesteia. Astfel, în timp ce o instanţă a serverului preia o cerere ce determină prelucrări 
ceva mai substanţiale, o altă instanță poate prelua o cerere identică sau de un alt tip (care 
poate fi eventual rezolvată într-un timp mai scurt). 


BUFFER 
AŞTEPTARE 
“(Client ky . 


Figura 14.19. Rezolvarea simultană a mai multor cereri prin instanţierea multiplă 
a aceluiaşi server COM 


Figura de mai sus prezintă o situație de management al mai multor cereri spre același 
server COM, pornind de la premisa că putem avea maxim trei instanţe ce pot exista 
simultan. Observăm că cererile ce aparțin primilor trei clienţi (x, y şi z) sunt trimise spre 
prelucrare în paralel tot atâtor instanţe ale serverului. În acest timp, o a patra cerere este 
menţinută într-o zonă de memorie în așteptarea eliberării uneia dintre ele. 

Pentru ca FoxISAPI să apeleze la managerul de instanțe, trebuie să adăugăm în fişierul 
de configurare foxisapi.îni două noi linii de cod; numele componentei COM între 
paranteze pătrate şi numărul maxim de instanţe ce vor putea fi create. În urma acestei 
intervenții, fişierul de care vorbim va arăta ca în listingul 14.8: 


Listing 14.8. Conţinutul fişierului Foxisapi. ini 


[foxisapi] 
busytimeout=30 
releasetimeout=40 
statusuri=Status 
reseturi=Reset 


ae toledo i ai Lua aa ap aa tie aa ta 
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SinaleModeuri=SinaleMode 
MuitiModeUri=MultiMode 
[web_test1. actualizari] 
web_tesi1.actuaiizari=3 


Extensia FoxISAPI dispune și de două metode proprii: 
e Status —cu ajutorul ei putem afla informaţii despre instanţele serverelor COM 
atlate în execuţie la un moment dat (figura 14.20); 
e Reset — închide toate instanţele serverelor rezidente în memorie la un moment 
dai şi resetează parametrii de stare. 


Ele pot fi apelate astfel: http;//webtest/scripts/foxisapi.di!/status. 


cresa deac 


[SA beti poe street, ti 
„re Fgexmtes lo ep 


Figura 14.20. Metoda status a extensiei FoxISAPI 
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Deși este arhicunoscut faptul că Visual FoxPro nu oferă securitate de nici un fel asupra 
datelor, totuşi putem implementa „programatic” un sistem de protecţie la nivel de aplicaţie, 
folosind din plin securitatea sistemului de operare (Windows NT/2000). 


15.1. Citire/scriere Windows Registry. O modalitate 
de stocare a parolelor 


Visual FoxPro oferă un utilitar ce poate fi utilizat pentru creare/ştergere chei în 
Windows Registry şi citire/scriere de valori ale acestora. Utilitarul de care vorbim se 
prezintă sub forma unei biblioteci de clase cu numele registry.vex şi poate fi găsit în 
directorul .. . \Microsoft Visual Studio\Vfp98\FFC. Aici vom regăsi definițiile 
câtorva clase, cea care ne interesează în acest moment numindu-se chiar Registry. 

Aşa cum probabil ştiţi, Windows Registry reprezintă de fapt un depozit de date în 
care sunt stocate informaţii vitale referitoare la configuraţia calculatorului şi a tuturor 
aplicațiilor instalate. Regiştrii sunt organizați ierarhic, sub formă de arbore ce poate conține 
chei, subchei şi opţiuni ale acestora. Fiecare cheie poate avea o valoare, iar fiecare opțiune 
este caracterizată prin nume, tipul datei stocate şi valoarea în sine. 

Regiștrii pot fi editaţi cu utilitarul Regedit (în meniul principal al Windows-ului, 
Start—RunoRegedit), 


VALOARE CHEIE 


Data i 
(value not set) 
prim test 


„12 SECURITY 

ș E] SOFTWARE 

i A Reg fast ni 

: EI ACE Compression € v 
i > 


VALOARE OPȚIUNE 


Figura 15.1. Utilitarul Regedit 
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Clasa Registry oferă posibilitatea de creare, citire şi editare chei şi opțiuni, în funcţie 
de necesități. Utilizarea sa presupune copierea fişierelor ce constituie biblioteca de si 
Registry (registry.vex, registry.vet, registry.h) într-un director a 
aplicaţiei şi adăugarea la proiect (butonul ADD în Proj ectManagerClasses). 

Tabelul 15.1 prezintă cele mai importante metode ale acesteia. 


Tabelul 15.1. Metodele de bază ale clasei Registry 


Şterge o cheie din regiştri. 

Sintaxa: DeleteKey(nUserKey, cKeyPath) 
Argumente: 3 
nUserKey — valoare numerică i | 
cKeyPath — numele cheii (cuprinde şi calea pe arbore până la nivelul 
ei). 

Şterge o opțiune din structura unei chei. 
Sintaxa: DeleteKeyValue(cOpiName, cKeyPath, nUserKey) 
Argumente: 

cOptName — numele opțiunii 

cKeyPath — numele cheii (inclusiv calea pe arbore) 

nUserkey — valoare numerică. stea 
Returnează valoarea unei opţiuni din structura unei chei. 

Sintaxa: GetRegKey(cOptName, eOptVal, cKeyPath, User ie) 
Argumente: 

cOptName — numele opțiunii i a 

cOptVal — parametru, transmis prin referință” (2), ce va prelua 
valoarea asociată opțiunii respective 

cKeyPath — numele cheii (inclusiv calea pe arbore) 
nUserKey — valoare numerică. state 
Modifică valoarea unei opţiuni din structura unei chei. 
Dacă opțiunea nu există, va fi creată și i se va atribui valoarea 
specificată. 

Sintaxa: | 
SetRegKey(cOptName, cOptVal, cKeyPath, nUserKey, ICreate) 
Argumente: 

cOptName — numele opțiunii FI E 

cOptVal — valoarea ce va fi asociată opțiunii respective 

cKeyPath — numele cheii (inclusiv calea pe arbore) 

nUserKey — valoare numerică i 
LCreate — .T. (True) — creează cheia (eventual şi cheile de nivel 
superior din:cale) dacă nu există ERR. i 3 
- .F. (false) sau lipsă — cheia trebuie să existe deja. 


DelsteKeyValue 


GetRegkey 


SetRegkey 


Notă. Toate aceste metode vor returna valoarea 0 dacă şi-au îndeplinit cu succes 
obiectivul şi 2 în caz contrar. 


68. Vezi capitolul 4, pentru transmiterea parametrilor prin referință. 
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În Windows Registry, arborele de chei este organizat pornind de la cinci clase de bază 
(noduri rădăcină): HKEY CLASSES_ROOT, HKEY CURRENT USER, HKEY_USERS, 
HKEY_ LOCAL MACHINE. Aceste noduri sunt furnizate metodelor clasei registry prin 
intermediul parametrului nUserKey, ce poate lua una din valorile prezentate în listingul 
15.1. Din acest motiv, calea specificată prin CkeyPath pentru localizarea cheii nu va 
conține şi nodul rădăcină. i 


Listing 15,1. Extras din fişierul-header: registry.h 


* Registry roots 

4DEFINE HKEY_CLASSES_ROOT 
4DEFINE HKEY_CURRENT_USER 
ADEFINE HKEY_LOCAL_MACHINE 
4DEFINE HKEY USERS 


-2147483648 && BITSET(0,31) 

-2147483647 && BITSET(0,31)+1 
-21474838648 && BITSET(0,31)+2 
-214743838645 && BITSET(0,31)+3 


După cum se observă, pentru fiecare identificator de nod rădăcină este definită o 
constantă în fişierul-header al clasei registry. i 
Practic, pentru exemplul din figura 15.1, valorile parametrilor vor fi următoarele: 


cKeyPath 
nUserKey 


"SoftwareNA Reg_ test” 
-2147483646 sau HKEY LOCAL MACHINE 


Listingul 15.2 prezintă secvența de cod pentru crearea/citirea opțiunii cu numele Valtest 
şi valoarea „prim_test” exemplificată în figura 15.1. 


Listing 15.2. Procedura de scriere/citire Windows Registry 


SET CLASSLIB TO registry 
# INCLUDE registry.h 
obitest=CREATEOBJECT("registry”) 
rez=objtest SetRegkey("Valtest","prim_test" "Software A_Reg_test”, HKEY_LOCAL_! MACHINE, T.) 
IF rez<>0 - : 
MESSAGEBOX('NU pot scrie in Registry”, 16 Eroare") 
ELSE 
Vaireg="" 
objtest.GetRegkey("Valtest", QValreg, "Software A_Reg_test',HKEY_LOCAL_MACHINE) 
MESSAGEBOX(Valreg):, , 
-ENDIF 


Metodele clasei Registry pot fi folosite în formulare în combinație cu proprietatea 
PasswordChar a unui obiect de tip Textbox, în scopul autentificării utilizatorilor unei 
„aplicaţii sau pentru crearea/modificarea unei parole. 


15.2. Obţinerea numelui utilizatorului din rețea 


Aşa cum am văzut şi în capitolul 14, în Visual FoxPro putem accesa funcţii declarate în 
biblioteci externe (.d11) precum: Kernel32.dll, Gdi32.dll, User32.dl1, 
Mpr.dll şi Advapi32.q11, Astfel, într-o aplicaţie ce funcționează în rețea, putem 
obține numele stației de lucru şi al utilizatorului curent cu ajutorul unor funcții API. 

Înainte de a utiliza o funcție ce aparţine unei biblioteci externe trebuie, în primul rând 
să-i cunoaştem numele și sintaxa (numărul şi tipul parametrilor, care parametru este de 


sc getea ia acasa iaaa ainia 
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intrare și care de ieşire), iar în al doilea rând să o înregistrăm (instrucțiunea DECLARE- 
DLL), 

În Windows există o multitudine de funcții API ce pot fi folosite pentru extinderea 
facilităților diverselor aplicații. O listă exhaustivă a acestora poate fi regăsită cu ajutorul 
utilitarului Microsoft Visual Studio 6.0 Tools—=>API Text Viewer (din meniul 
principal al Windows-ului), dacă acesta a fost instalat o dată cu pachetul Microsoft Visual 
Studio, Figura 15.2 prezintă fereastra principală a urilitarului de care vorbim după ce a fost 
încărcat fişierul win32api.txt folosind opțiunea File—Load Text File din 
meniul acestuia. 


ia EdR view tb A 


ABI Type: : 
Decaras r , 
Type the first faw letters of the word you are IBoking fort 
'getcomputar 
.Avaiabla items: 


CetComputer Name 
GetComputerName W 

GatConsalecP 

GetConsoleCursarinta 

GetConsoleMode 

GetConsoleutputcP 

SetConsoleScreenbutferirfo . 


Salectea tems: 3 BrE Eau e acu 

Pic Deciare Function aonane ib Teren? Aias E Aa 
'GetComputerHameA" (ByVal ipăuffer As String, nSize As ~ 
Long) âs Long 


Figura 15.2. Vizualizarea listei de functii API folosind utilitarul API Text Viewer 


Observăm în figura 15.2 că, în zona Selected Items, regăsim sintaxa funcției 
selectate în format Visual Basic. Aceasta va trebui adaptată mediului Visual FoxPro. 

Pentru mai multe informații privind o anumită funcție API, poate fi consultată 
documentația MSDN locală (dacă a fost instalată complet) sau de pe site-ul Microsoft 


{(www.msdn.microsoft.com). 


Aşa cum precizam mai devreme, pentru a putea fi utilizată, funcția trebuie mai întâi 
declarată folosind sintaxa generală: 


DECLARE [cFunctionType] NumeFunctie IN NumeDLL [AS AliasName] 
[cParamTypel [4] ParamNamel, 
cParamType2 [@] ParamName2, ...] 


Ca urmare, înregistrarea funcției selectate în figura I 15.2 (GetComputerName) în 
Visual FoxPro se va realiza astfel: 


DECLARE  GetComputerName IN kernel32 AS GetComputerNane 
STRING @numecomp , LONG fcomplungime 
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Atenție! Numele funcțiilor trebuie scris identic cu cel specificat în API Viewer sau în 
documentaţie (litere mari și mici — case-sensitive), altfel funcția nu va fi regăsită în 
biblioteca respectivă şi va genera o eroare. De asemenea, multe funcţii necesită 
transmiterea parametrilor prin referință”? 


Listingul 15.3 prezintă secvența de cod pentru obținerea numelui calculatorului local, al 
utilizatorului curent şi, eventual, numele de reţea al unui server ce conţine un director 
partajat „mapar” local şi în care se găsesc fişierele aplicației (SET DEFAULT stabileşte 
calea spre discul virtual respectiv). 


Listing 15.3. Funcţia AFLA USER () 


** procedura pt. obtinere user, numecalculator, numeserver 
LOCAL cCompBuf, cUsrBuf,nUsrLen, nCompLen 


compbuf=SPACE(20) 
usrbuf=SPACE(20) 
usrlen=20 
complen=20 


DECLARE GetComputerName IN kernel32 AS GetComputerName STRING @ compbuf , LONG 
Qcomplen 

DECLARE GetUserName IN advapi32 AS GetUserName STRING @ usrbut, LONG @ usrlen 

DECLARE WNetGetConnection IN mpr.dil AS WNetGetConnection STRING @ IpszlLocalName, 
STRING @ lpszRemoteName, LONG @ cbRemoteName 


** invocam functiile 

=GetUserName(Q usrbut, @ usrlen) 

username_=LEFT(ALLTRIM(usrbuf), LEN(ALLTRIM(usrbuf))-1) && pentru că sirul returnat se 

&& termina cu nulistring 

=GetComputerName((8 compbuf, Q complen) 

computername_=LEFT(ALLT(compbuf) LEN(ALLT(compbuf))-1) && pentru că sirul returnat se 
&&termina cu nulistring 


"MESSAGEBOX(usrbut, compbuf) &&numai pentru faza de testare 


IF DRIVETYPE(SYS(5))=4 && suntem pe un disc virtual mapat din retea 
** mai bine zis SET DEFAULT-UL ESTE PE O UNITATE MAPATA DIN RETEA!!! 


Ipszl.ocalName=SYS(5) &&directorul curent 
„.. IpszRemoteName=SPACE(128) 
„cbRemoteName=128 
=WNetGetConnection(Blpszl.ocaiName, QipszRemoteName, QcbRemoteName) 


”"  MESSAGEBOX(IpszRemoteName,STR(cbRemoteName)) && numai pt testare 


servername_=" && două apostroafe (valoare vida, tip caracter) 
”  extragem numele server-ului dintr-un sir de genul “ Wnumeserverisharedfolder ” 
apare=0 


FOR i=1 TO LEN(ipszRemoteName) 
IF SUBSTR(IpszRemoteName,i,1)=" 
apare=apare+1 
IF apare=3 
EXIT 
ENDIF 


ENDIF 
IF SUBSTR(ipszRemoteName.i,1 )<> AND i>=3 
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Ba salad a =servername +SUBSTR(ioszRemoteName. i. î) 


ENDFOR 

ELSE && suntem pe harddisc sau alt disc local 
servername_=computername_ 

ENDIF 


""MESSAGEBOX(servername_) && numai pt. testare 


RETURN username 


15.3. Restricţionarea editării tabelelor 


Ideea mecanismului pe care vi-l propunem în continuare este relativ simplă. Se creează 
un director special denumit, spre exemplu ADMINISTRATOR, în care vom crea una sau 
mai multe tabele ce vor conține numele utilizatorilor preluate din Windows NT/2000 şi 
drepturile de acces la fiecare tabelă. Prin configurări de securitate specifice sistemului de 
operare, toți utilizatorii, cu excepția administratorilor, vor avea doar drepturi de citire 
pentru aceste tabele (fişiere). 

Prima tabelă cu această destinaţie, denumită chiar DREPTURI, este prezentată în 
listingul 15.4. Fiecare linie a acestei tabele specifică drepturile pe care le are un utilizator 
asupra unei tabele: 

e dacă poate adăuga linii; 

e dacă poate face modificări; 

e dacă poate şterge înregistrări; 

e intervalul calendaristic (datele şi orele iniţiale şi final e) în care sunt valabile 

drepturile respective; 

e dacă utilizatorul poate edita în weekend tabela. 


Listing 15.4. Crearea şi popularea unei prime tabele ce conține drepturi de acces 


CREATE TABLE administratoridrepturi { ; 
utilizator CHAR(25), ; 
tabela CHAR(20), ; 
inserare L, ; 
modificare L, ; 
stergere L, ; 
data_in DATETIME, ; 
data_fin DATETIME, ; 
weekend L ; 


) 


INSERT INTO drepturi VALUES ('FotacheM', 'judete', T., T., F., 
412001/12/01 08:00:00}, {2001/12/31 20:00:00}, .F.) 

INSERT INTO drepturi VALUES ('FotacheM', "localitati, T.,.T., F., ; 
{^2001/12/01 08:00:00}, {^2001/12/31 20:00:00}, .F.) 

INSERT INTO drepturi VALUES ('FotacheM,, 'clienti, T.T. F., ; 
(2001/12/01 08:00:00), (42001/12/31 20:00:00), .F. ) 

INSERT INTO drepturi VALUES ('FotacheM', 'persoane, F., F., Fa; 
412001/12/01 08:00:00), (12001/12/31 20:00:00), .F.) 

INSERT INTO drepturi VALUES ('FotacheM”, facturi, T., T.,F., ; 
(12001/12/01 08:00:00), (42001/12/31 20:00:00), .F.) 

INSERT INTO drepturi VALUES (FotacheM, 'liniifact, T.T. Fn; 
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12001/12/01 08:00:00). (12001/12/31 20:00:00). .F.) 
INSERT INTO drepturi VALUES ('FotacheM,, 'produse', .T., T., F., 
("2001/12/01 08:00:00). 42001/12/31 20:00:00), .F, ) 

INSERT INTO drepturi VALUES ('FotacheM,, incasari. T., T., F.,: 
(12001/12/01 08:00:00), (42001/12/31 20:00:00), .F. ) 
INSERT INTO drepturi VALUES (FotacheM', 'incasfact, T., T., .F.,: 


("2001/12/01 08:00:00), (12001/12/31 20:00:00), .F. ) 


INSERT INTO drepturi VALUES ('Cretul, judete, T., T., Fu; 
(2001/12/91 08:00:00), (12001/12/31 20:00:00), .F.) 

INSERT INTO drepturi VALUES (CretuL., 'clienti .T., T.E,; 
(12001/12/01 08:00:00), (42001/12/31 20:00:00), .F.) 

INSERT INTO drepturi VALUES ('Cretul., persoane, F., FF. 
(12001/12/01 08:00:00), (2001/12/31 20:09:00), .F. ) 

INSERT INTO drepturi VALUES (Cretu, facturi, T., T., Fu: 
(12001/12/01 08:00:00), (12001/12/31 20:00:00), .F. ) 

INSERT INTO drepturi VALUES ('CretuL”, finiifact, T., T., F.: 
(12001/12/01 08:00:00), (12001/12/31 20:00:00), .F. ) 

INSERT INTO drepturi VALUES ('CretuL', 'produse', .T., T., F.: 
{^2001/12/01 08:00:00}, {^2001/12/31 20:00:00}, .F. ) 

INSERT INTO drepturi VALUES ('CretuL', 'incasari, T., T., Fu; 
("2001/12/01 08:00:00), {^2001/12/31 20:00:00), .F.) 

INSERT INTO drepturi VALUES ('CretuL', 'incasfact, .T.,.T.,.F.,: 
(12001/12/01 08:00:00), (12001/12/31 20:00:00), .F. ) 


INSERT INTO drepturi VALUES ('StrimbeiC”, judete”, T.T. F., à 
(12001/12/01 08:00:00), (42001/12/31 20:00:00), .T. ) 

INSERT INTO drepturi VALUES ('StrimbeiC”, Mocalitati, T., T., Fi 
(12001/12/01 08:00:00), (12001/12/31 20:00:00), .T. ) 

INSERT INTO drepturi VALUES ('StrimbeiC', 'persoane', T., T., Fu; 
(12001/12/01 08:00:00), (12001/12/31 20:00:00}, .T. ) 

INSERT INTO drepturi VALUES ('StrimbeiC”, 'clienti, T., T., Fu; 
(12001/12/01 08:00:00), (12001/12/31 20:00:00), .T. ) 

INSERT INTO drepturi VALUES (StrimbeiC”, 'persclienti, T., T., F.: 
(12001/12/01 08:00:00), (2001/12/31 20:00:00), .T. ) 

INSERT INTO drepturi VALUES ('StrimbeiC', facturi, T.T. F..; 
(12001/12/01 08:00:00), (2001/12/31 20:09:00), .T. ) 

INSERT INTO drepturi VALUES ('StrimbeiC”, 'liniifact', T., T., F., | 
{^2001/12/01 08:00:00), {^2001/12/31 20:00:00}, .T. ) 

INSERT INTO drepturi VALUES ('StrimbeiC', 'produse', T., T., F.i 
(12001/12/01 08:00:00), (42001/12/31 20:00:00}, .T. ) 

INSERT INTO drepturi VALUES ('StrimbeiC”, “incasari”, Tabs Pia 
(12001/12/01 08:00:00), (2001/12/31 20:00:00), .T. ) 

INSERT INTO drepturi VALUES ('StrimbeiC”, 'incasfact, T., T., Ees 
^2001/12/01 08:00:00), (^2001/12/31 20:00:00}, .T. } 


La deschiderea bazei de date (execuția procedurii stocate SETUP™®), în afara 
operațiunilor descrise pe parcursul capitolelor precedente, se preia prin funcția 
AFLA_USER () (definită mai sus) numele utilizatorului Windows NT/2000 şi, pentru 
fiecare tabelă, se inițializează o serie de variabile legate de autorizarea inserărilor, 
modificărilor, ştergerilor, zilelor/orelor (şi weekend-ului) de lucru — vezi listingul 15.5. 


70. Pentru conținutul procedurii, vezi capitolul 6 sau capitolul 13. 
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; A i A 
Listing 15.5. Iniţializarea variabilelor ce conţin drepturi ale utilizatorului curen 


SET DELETE ON 
SET MULTILOCKS ON 


ifi j isa SHARED 
* erifica daca baze de date e deja deschisa S H 
IF DBUSED(Vinzari) AND !ISEXCLUSIVE(vinzari',2) 
* e-n reguia 


Sa MESSAGEBOX('Baza de date VINZARI nu este deschisa partajabil ') 


ENDIF 


PUBLIC utilizator_ 
utilizator_ = AFLA USER () 


* se incearca sa se deschida SHARED toate tabelele BD 
PUBLIC vTabele 

DIME vTabele(5,1) : 
ADBOBJECTS{vTabele, "TABLE”) 


tab_ = 'drepturi' 

iF 'deschidere_tabele (UPPER(ALL.T(tab_))) ai 
MESSAGEBOX('Cu durere in glas, aplicatia nu poate fi lansata ! 
QUIT 

ENDIF 


LOCAL i 
FOR i= 1 TO ALEN(vTabele) 

= vTabele(i) , l 
E functiei care incearca deschiderea SHARED a tabelei 


i tabele (UPPER(ALLT(tab_)) | 
i elegante durere in glas, aplicatia nu poate fi lansata !) 
QUIT 
ENDIF 


* daca exista macar un index, primul (dintre indecsi) devine principai 
SELECT (tab_) 
IF TAGCOUNT() > 0 
SET ORDER TO TAG 1 
ENDIF 
ins_&tab_, trg_upd_âtab_, trg_del_&tab_ bus 
palate era i dă del atab_/ data_in_&tab_, data_fin_âtab_, weekend_&tab_ 


* se incarca drepturile utilizatorului pentru tabela curenta 
drepturi _ 
gl FOR utilizator = utilizator_ AND UPPER(tabela) = UPPER(tab_) 
IF EOFQ 
ins_âtab_= .F. 
upd_âtab_ = .F. 
del_&tab_ =F. 
data_in_&tab_=.F. 
data_fin_&tab_= F. 
weekend_âtab_= „F, 
ELSE S 
ins_&tab_ = drepturi.inserare 
upd, âtab_ = drepturi.modificare 
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del &tab = drepturi.steraere 
data_in_âtab_ = drepturi.data_in 
data_fin_&tab_ = drepturi.data_fin 
weekend_&tab_ = drepturi.weekend 
ENDIF 
ENDFOR 


PUBLIC vRetatii, vCopii, vParinti, vTaguriCopil, vTaguriParinte 
DIME vRelatii(4,4), vCopii(1), vParinti(1), vTaguriCopi!(1), vTaguriParinte(1) 
ADBOBJECTS(vRelatii, 'Relation') 
* prima coloana din vReiatii - tabela COPIL 
* a doua coloana din vRelatii - tabela PARINTE 
* a treia coloana din vRelatii - index (tag) COPIL 
* a patra coloana din vRelatii - index(tag) PARINTE 
DIME vCopii(ALEN(vRelatii,1)), vParinti(ALEN(vRelatii,1)), ; 
vTaguriCopil(ALEN(vRelatii,1)), vTaguriParinte(ALEN(vRelatii,1)) 
FOR i = 1 TO ALEN(vRelatii,1) 
vCopii(i) = vRelatii(;,1) 
vParinti(i) = vRelatii(i,2) 
vTaguriCopil(i) = vRelatii(i,3) 
vTaguriParinte(i) = vRelatii(i,4) 
ENDFOR 


** la fiecare iesire din VFP se salveaza o copie a proceduriior stocate 
ON SHUTDOWN DO salvare_proceduri, stocate 


i 

După cum spuneam la începutul paragrafului, mino-mecanismul de securitate prezentat 
are la bază declanşatoarele. Astfel, cele trei declanşatoare apelează funcția de autorizare a 
editării. Pentru exemplificare, în listingul 15.6 este prezentată prima parte a declanşatorului 
general de inserare în care se apelează funcția stocată Drepturi () 


Listing 15.6. Inserarea secvenței de autorizare în declanşatorul de inserare 


| E 
* declansator general pentru inserare 
* 


PROCEDURE trg_ins 

parameter tabela__ 

* MESSAGEBOX('trg Inserare '+tabela__) 

LOCAL i, copil_, tagcopil_, nrindexcopil_, cheiecopil_, valoare_cheiecopil_,; 
tabela_, curent_, parinte_, tagparinte_, nrindexparinte_, ; 
cheieparinte_, valoare_cheieparinte_, sir. valoare_cheiecopil_ 


tabela_ = alit(upper(tabela__)) ` 

IF TYPE('vTabele') = "U" OR TYPE('vRelatii') = "U" i 
do setup 

ENDIF 

trg_ins_&tabela_ = t. 


IF tdrepturi(tabela_, 'INS') (!-— operator logic echivalent cu NOT) 
RETURN .F. 
ENDIF 


* 


* restul declansatorului ramâne identic 
+ 
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RR i i IF 
Analog se inserează secvența IF !drepturi(tabela » 'UPD ) E, ș 
'drepturi (tabela , 'DEL') în declanşatoarele generale de modificare, respectiv 


ştergere. Procedura stocată Drepturi () (de fapt, funcție) este cea din listingul 15.7. 


Listing 15.7. Funcţia stocată drepturi 


RER RR E RR ICTER TO E RR MAREI 


PROCEDURE drepturi SR 
PARAMETER tabela_, operatiune_ 
LOCAL var_ 

var_ = operatiune_+'_'+tabela_ 


* se testeaza daca utilizatorul este autorizat sa faca acest gen'de operatiune 
IF ! &var l "i 
A i i faceti '+ 
SSAGEBOX('Regret, dar in aceasta tabela nu puteii sa fac E PRI p 
i et Mac 'inserari l', IIF(operatiune_='UPD', 'modificari t, 'stergeri !))) 
RETURN .F. 
ENDIF 


* sunt permise modificari in aceasta zi/ora ? l 
! EEN(DATETIME(), data_in_&tabela_, data_fin_&tabe a_) ERN 
E RACE SON DA pacate, nu aveti autorizatia sa lucrati cu aceasta tabela la aceasta data si ora!') 
RETURN .F. 
ENDIF 


* daca e o zi din weekend, se face verificarea de rigoare ? 
IF INLIST(CDOW(DATE()), 'Saturday', 'Sunday') 
iweekend_&tabela_ | | i } 
j MESSAGEBOX(Öin pacate, nu aveti autorizatia sa lucrati cu aceasta tabela in weekend !') 
RETURN F. A 
ENDIF 
ENDIF 


ENDPROC 


RR AE E AE E AE AE e în Pe E RER fe ete deh eh eee 


Sunt verificate, pe rând, următoarele drepturi: 

ə operațiunea (inserarea, modificarea sau ştergerea) asupra tabelei respective de 
către utilizatorul curent, to s 

e încadrarea datei şi orei modificării (DATETIME ()) în interva ul a o 
utilizatorului și tabelei; ri | | 

e dacă ziua curentă este o sâmbătă sau duminică, se verifică dacă sunt permise 
editări în weekend. 


15.4. Autorizarea editărilor anumitor linii 


Paragraful anterior a fost unul dedicat autorizărilor „pe verticală”, în e 
un „administrator” primitiv al bazelor de date VFP. Ín continuare ne or adi 
exemplu de restricționare a accesului numai la anumite linii ale unei a e E T ia 
presupunem că firma realizează facturarea on-line şi că s-a convenit i se Saci al 
încredinţat unui utilizator anume. Altfel spus, datele generale şi facturile lega 
pot fi editate numai de unul sau mai mulţi utilizatori specificaţi. 


n 
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i întâi er a doua tabelă de drepturi, AUTORIZ CL -— vezi listi IF tabela = CLIENTI OR tabela = 'FACTURI! 
Mai întâi creăm o a doua tabelă de drepturi, AUTORI 2_CL — vezi listingul 15.8. LOCAL codel. 
isti ări ienți-utili i DO CASE ; i 
Listing 15.8. Tabela alocărilor clienti-utilizatori CASE operatiune_='INS' OR tabela_ = 'FACTURI 

CREATE TABLE administratoriautoriz_ci { codel_ = facturi.codel — cdi 

utilizator CHAR(25), ; T CASE operatiune_ = 'UPD' OR tabela_ = 'FACTURI 

codeci NUMERIC(6) ; codel_ = OLDVAL('codel', 'facturi”) 

) OTHERWISE 

codcl_ = codci 

INSERT INTO autoriz_cl VALUES ('CretuL, 1001) a ren eed sE 
NSERT INTO autoriz_c! VALUES ('CretuL', 1002 IFA votent, EN ; : ; a ient! 
RT INTO autoris e ALOES E 1009) MESSAGEBOX(Nu puteti edita date (inclusiv facturi) pentru acest client!) 
INSERT INTO autoriz_c! VALUES ('Cretul:, 1004) RETURN .F. 
INSERT INTO autoriz_c! VALUES ('CretuL!, 1005) ? ENDIF 
INSERT INTO autoriz_ci VALUES ('CretuL', 1006) ENDIF 
INSERT INTO autoriz_c! VALUES ('CretuL', 1007) 
INSERT INTO autoriz_ci VALUES ('CretuL!, 1008) ; ENDPROC 0 e nu ta do e 
INSERT INTO autoriz_cl VALUES (FotacheM', 1001) | 
INSERT INTO autoriz_cl VALUES ('FotacheM', 1002) 


INSERT INTO autoriz_cl VALUES ('FotacheM!, 1003) 
INSERT INTO autoriz_c! VALUES ('FotacheM', 1004) 


INSERT INTO autoriz_cl VALUES ('StrimbeiC', 1005) 
INSERT INTO autoriz_ci VALUES ('StrimbeiC“, 1005) 
INSERT INTO autoriz_cl VALUES ('StrimbeiC”, 1007) 
INSERT INTO autoriz cl VALUES ('FotacheM', 1008) 


Fireşte, se putea avansa pe ideea unei granularități mai fine, în sensul că fiecărei : 
combinaţii utilizator-elient i-ar putea fi specificate drepturi de inserare, modificare, ştergere i 
sau intervale de editare diferite. , 

Pentru atingerea scopului propus, adăugăm în procedura stocată Setup comenzile din 
listingul 15.9. Se declară public vectorul vClienti, în care se încarcă numai codurile 
clienţilor la care utilizatorul curent este autorizat să facă modificări (datele din tabelele i 
CLIENTI şi FACTURI). A fost preferat vectorul pentru a se asigura o viteză rezonabilă de i 
lucru. 


Listing 15.9. Secvența adăugată la finalul procedurii stocate setup 


** codurile clientilor pentru care poate opera modificari utilizatorul curent 
PUBLIC vClienti(1) 
SELECT code! FROM autoriz_c! INTO ARRAY vClienti WHERE utilizator = utilizator 


ENDPROC — 

ltima modificare este cea a funcției stocate Drepturi (), în care se adaugă liniile 
din listingul 15.10. Verificarea se produce la modificarea şi ştergerea unei linii din 
CLIENTI şi la orice operaţiune derulată asupra tablelei FACTURI. 


E 


Listing 15.10, Liniile de cod ce se adaugă funcţiei stocate Drepturi () 


* 


* 


* daca este vorba de un declansator al tabelei FACTURI sau CLIENTI, 
* se verifica daca utilizator curentul! are dreptul sa modifice date legate de acast clienti 


bers 


Capitolul 16 
Aplicaţii VFP cu servere de baze de date 


16.1. Specificul aplicaţiilor cu servere de baze de date 


Sistemele informaţionale economice de anvergură sunt clădite de regulă în jurul unui 
server de baze de date puternic, indiferent dacă datele gestionate în acest mod sunt 
disponibile în medii client/server sau pe Web. 

Bazele de date implementate în astfel de medii sunt proiectate respectând cu stricteţe 
anumite „canoane” privind modurile de organizare și sunt accesibile prin limbaje şi structuri 
conforme cât mai mult posibil standardelor consacrate în domeniu. Caracteristicile generale 
ale unor astfel de sisteme pot fi sintetizate după cum urmează: 

e protecţia datelor împotriva unor prejudicii (recuperarea — backup şi recovery); 

asigurarea accesului la date a unui număr mare de utilizatori (concurența — 
concurrency), precum şi a mai multor aplicaţii; 
asigurarea integrităţii datelor, prin reguli stricte, dintre care cea mai cunoscută este 
restricţia de integritate referenţială — referential integrity, 
interzicerea accesului neautorizat la date (securitatea — security); 
izolarea detaliilor referitoare la manipularea datelor pe diferite platforme 
(portabilitatea — portability). i 

Recuperarea se referă la capacitatea SGBD-ului de a readuce baza de date într-o stare 
funcțională, în urma unor defecţiuni ale aplicaţiilor ori sistemului de calcul ca atare. Dacă 
vom scrie o aplicaţie într-un limbaj de nivel înalt, dar stocarea şi regăsirea datelor se va face 
prin acces direct la un sistem de fişiere, ne vom expune la un înalt risc de defectiune la orice 
nivel. Va trebui să ținem cont de posibilitatea apariţiei acestei categorii de erori şi de 
tratarea lor în aplicaţia concepută. Spre deosebire de limbajele de programare procedurale, 
ce au un caracter aproape universal, limbajele pentru baze de date implementează 
mecanismul tranzacţiilor. Tranzacţia este o colecție de operaţii corelate, ce pot fi privite ca 
un tot unitar şi tratate conform principiului „totul sau nimic”, În multe cazuri, urmările unei 
erori software pot fi îndepărtate prin abandonarea tranzacţiei „vinovate”. Acest lucru este 
posibil și datorită unui alt mecanism propriu SGBD, cel al jurnalizării tranzacţiilor. 

Concurența este proprietatea bazei de date de a fi accesată de mai multe procese în 
acelaşi timp, fie acestea aplicaţii care se execută local sau la distanță. Deoarece concurența 
este strâns legată de recuperarea datelor, la baza ei stă tot mecanismul tranzacţiilor. 
Sistemele de gestiune a bazelor de date procedează la o „întreţesere” a tranzacţiilor 
efectuate de diferiți utilizatori, astfel încât aceștia nici nu sesizează accesul concurent. 
Această capacitate de întreţesere poartă numele de serializabilitate, În bazele de date 


relaţionale, cele mai folosite (încă) în zilele noastre, serializarea tranzacţiilor se bazează pe 
blocarea (automată) a tabelelor şi înregistrărilor accesate. 


Aplicaţii VEP cu servere de baze de date 


Independenta datelor. Accesul concurent este un puternic motiv pentru bazele A 
date să necesite o organizare stratificată, în acord cu așa-zisele niveluri de a cult, 
datelor. Organizarea pe cele trei paliere: fizic sau intern, conceptual şi extern a pe : e 
o parte, modificarea modelelor de date fără a afecta aplicațiile existente, iar pe de altă e 
aplicații diferite pot fi realizate fără a fi nevoie de partajarea vreunei structuri concep uale. 
Structurile de date dintr-o aplicație trebuie să reflecte nevoile apucanet i ei nu 
neapărat structurile de date memorate în bază. De aceea, prin comenzi adecvat dale e se 
prelucrează în forma dorită a aplicației. Ar fi o strategie neînţeleaptă Alia a pur şi 
simplu a întregilor tabele în memorie, urmată de extragerea unor date din i e. iale an 

Restricția referenţială este o facilitate a bazelor de date relaționale în ți ată la 
menţinerea coerenţei datelor situate în diferite tabele. În bazele de date relaţiona e, acras ă 
restricție se implementează prin valorile înseşi ale datelor memorate, nu prin pointeri sau 
pia ai DIE de date înseamnă protecția împotriva accesului sau modificarilor 
neautorizate (aici se consideră că accesul autorizat este întotdeauna sigur şi nu afectează 
na şi cea mai simplă măsură este a ba fizică a sistemului de calcul de accesul 

rizate (acolo unde este posibil). 
iai pată sistemului poate avea loc prin facilităţi de natura parolelor, 
profilelor utilizator sau matrice ale drepturilor de acces (privilegii). PRA 

Portabilitatea software-ului este capacitatea acestuia de a se executa pe diferite 
platforme hardware. Proprietatea se regăseşte o de operare (UNIX, Windows 

i bazate pe ferestre (X11, Windows) etc. 
Ao baze de date, problema portabilităţii îmbracă doua aspecte: 

ə portabilitatea la nivelul sistemului de gestiune a bazelor de date; 

jli la niyelul sistemului de operare. 

ra pa portabilităţii la nivelul interfeței cu SGBD-ul, aled de 
aplicații trebuie să se limiteze la acele comenzi care sunt recunoscute de bazele de ! 
avute în vedere. În cazul de față, el se va limita la standarde precum SQL2 sau (parțial 
ODBC. Cât priveşte portabilitatea la nivelul sistemului de operare, fie doar cae 
SGBD-ul, fie ambele trebuie să fie capabile să ruleze pe sistemele de operare SAN n 
poate fi o soluție şi în acest caz. Iar dacă nu se poate asigura compatibilitatea e ; e 
sistem de operare între aplicație şi SGBD, tehnologia client-server constituie oa ii 
elegantă. Se înțelege că, pentru a putea dezvolta o aplicaţie pentru ej E r 
operare, e necesar ca și instrumentele de dezvoltare a aplicaţiei să fie compatibile la nivel de 
poe a necesită în majoritatea cazurilor recompilarea codului surga ceed 
ce este totuşi mai avantajos decât rescrierea aplicației pentru un anumit hardware ori sistem 
de operare. 


Dacă suntem sinceri, trebuie să recunoaştem că totuși Visual FoxPro nu satisface A 
deplin nici una din caracteristicile de mai sus. Astfel, în ceea ce priveşte te A d cade 
în sarcina dezvoltatorului obligaţia construirii de la zero a unui (Regala. e la up şi 
recovery”, suportul nativ VFP în acest sens fiind nul. De asemenea, în Ta se MI 
concurenţa, este adevărat că există în VFP anumite opţiuni foarte utile privin tr le e i 
bufferingul în reţea, însă dacă veţi testa soliditatea acestor mecanisme în condițiile, să 
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zicem, a 50 de utilizatori simultan veţi avea parte de surprize neplăcute, pentru că ceea ce 
pare „comis” definitiv la nivel VFP s-ar putea să nu fie astfel şi la nivelul serverului de 
fişiere (în fond, aplicaţiile VFP în rețea ar putea fi asimilate unei versiuni îmbunătățite ale 
mecanismului de partajare a fişierelor). Apoi, în ceea ce priveşte restricțiile referențiale 
observăm şi aici inexistența unui mecanism nativ de implementare a acestora, dezvoltatorii 
fiind nevoiţi să folosească mecanismul triggerelor; iar în ceea ce priveşte securitatea, ca și 
în cazul recuperării, dezvoltatorii sunt nevoiţi să-şi construiască propriul sistem bazându-se 
eventual pe detalii ale sistemului de operare şi pe triggerele bazei de date. În fine, în ceea ce 
priveşte portabilitatea, din momentul în care FoxPro a devenit o marcă Microsoft, această 
caracteristică a dispărut (sau a fost uitată). 

Serverele de baze de date sunt evident net superioare unui SGBD gen VFP. Care este 
însă dezavantajul acestora ? Răspunsul este simplu: prețul (considerând că cei care fac parte 
din tagma dezvoltatorilor sunt mereu dornici să învețe lucruri noi, complexitatea unui astfel 
de mediu nedescurajându-i chiar de la început). 

O dată cu creşterea spectaculoasă a dimensiunii BD în VFP, cu extinderea numărului de 
utilizatori ai bazei de date (presupunând, bineînţeles, că acestea sunt consecințe naturale ale 
creşterii cifrei de afaceri, a veniturilor şi, prin urmare, şi a bugetului IT), apare drept 
imperios necesară trecerea la o arhitectură client-server pe două sau mai multe straturi. Cel 
mai la îndemână mod de extindere a aplicaţiilor VFP constă în păstrarea meniurilor, 
rapoartelor şi formularelor în VFP, trecerea bazei de date şi, implicit, a unei părți 
importante din „logica aplicaţiei” într-un SGBD de tip server de baze de date. Fireşte, 
Microsoft recomandă migrarea spre SQL Server, însă serverul BD pe care poate fi 
„deplasată” baza de date Fox poate fi oricare dintre cele importante (Oracle, Sysbase, 
Informix, DB2), câtă vreme prin mecanismul ODBC conexiunea nu mai este o problemă. 


16.2. Crearea schemei de baze de date pe serverul Oracle 


Ne propunem în continuare să transformăm arhitectura aplicaţiei de până acum, 
bazându-ne pe un server de baze de date, şi anume Oracle8i, pentru definirea şi menţinerea 
schemei BD şi înregistrărilor aferente tabelelor, în partea de client mediul VFP trebuind să 
asigure interfaţa cu utilizatorul. Cu alte cuvinte, formularele şi rapoartele vor rămâne în 
VFP dar vor accesa şi actualiza datele rezidente pe serverul Oracle. 

Un asemenea proces de migrare presupune parcurgerea în general a patru etape: 

Etapa I. Portarea bazei de date în mediul serverului de baze de date, care ar trebui 
realizată în doi paşi: crearea schemei bazei de date (specificarea structurii tabelor și 
declararea restricţiilor — inclusiv cele referenţiale) şi încărcarea datelor din mediul 
VFP în baza de date Oracle. 

Etapa II. Configurarea mediului client/server sau, altfel spus, crearea canalului de 
legătură între clientul VFP şi serverul Oraclei. 

Etapa TII Crearea mecanismelor de acces şi actualizare (regăsire şi 
modificare/inserare/ştergere) a înregistrărilor din baza de date Oracle prin structurile 
de date specifice clientului VEP. ; 

Etapa IV: Redefinirea formularelor şi rapoartelor ce vor rula pe clientul VFP, astfel 
încât să gestioneze corect datele rezidente pe serverul Oracle pe care le vor accesa 
prin mecanismele din etapa anterioară (inclusiv tratarea erorilor). 


anod aa n at 


tatele 
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In această secțiune ne vom ocupa doar de prima etapă, celelalte constituind obiectul 
subcapitolelor următoare. 


Migrarea bazei de date din VFP în Oracle s-ar putea realiza folosind un „vrăjitor” 
dedicat exclusiv unei asemenea sarcini, accesibil din meniul Tools: zara 
Vosizing prin selectarea din dialogul Wizard Selection a opțiunii Oracle 
Upsizing Wizard. Acesta ar trebui să refacă baza de date pe o platformă Oracle, 
redefinind structura tabelelor (ignorând însă detaliile legate de procedurile stocate, limbajul 
specific în Oracle fiind PL/SQL). Datorită faptului că n-am reuşit niciodată să finalizăm 
convingător această sarcină pe această cale (ne-am împiedicat întotdeauna de detalii 
„minore”, cum ar fi conversia tipului de dată DATE al VEP în Oracle, detalii de care 
wizard-ul nu avea — sau poate nu dorea să aibă — cunoştinţă), dar şi pentru a avea un control 


mai strict asupra întregului proces, nu vom detalia funcționalitatea instrumentului Oraci e 
Upsizing Wizard. 


In capitolele 2 şi 6 sunt propuse soluțiile şi scripturile de creare a bazei de date 
Vinzari în VFP. În esență, vom încerca să modificăm listingul următor adaptând 
comenzile SQL-DDL proprii VFP la canoanele comenzilor DDL specifice Oracle. 

Listing 16.1. Scriptul de creare a bazei de date în VEP 
CREATE DATABASE vinzari 


CREATE TABLE judete ( ; 
jud CHAR(2) ; 
PRIMARY KEY ; 
CHECK (jud=LTRIM(UPPER(jud))) ; 
ERROR 'Indicativul judetului se scrie cu majuscule !', ; 
judet CHAR(25) ; 
UNIQUE ; 
NOT NULL ; 
CHECK (judet=L TRIM(PROPER(judet))) ; 
ERROR 'Prima litera din fiecare cuvint a!+CHR(13)+: 
"denumirii judetului este majuscula; '+CHR(13)+: 
‘restui literelor sunt mici”, ; 
regiune CHAR(15) ; 
DEFAULT 'Moldova' ; 
CHECK (INLIST(regiune, 'Banat', 'Transilvania', 'Dobrogea', 'Oltenia', 'Munteniai, 'Moidova')) 
ERROR 'Regiunea poate avea o valoare numai din lista'+CHR(13)+; 
"Banat, Transilvania, Dobrogea, Oltenia, Muntenia, Moldova! ; 


) 


CREATE TABLE localitati (; 
codpost CHAR(5) ; 
PRIMARY KEY ; 
CHECK (codpost=L TRIM(codpost)) ; 
ERROR 'Codul postal se scrie fara spatii la inceput !', ; 
loc CHAR(25) ; 
NOT NULL ; 
CHECK (loc=LTRIM(PROPER(loc))) ; 
ERROR 'Prima litera din fiecare cuvint al'+CHR(13)+; 
‘denumirii localitatii este majuscula; +CHR(3)+; 


‘restul literelor sunt mici!', ; 
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jud CHAR(2) ; 
DEFAULT 'IS', ; 
FOREIGN KEY jud TAG jud REFERENCES judete TAG jud ; 
) 


CREATE TABLE clienti ( ; 
codel NUMBER(6) ; 
PRIMARY KEY ; 
CHECK (codeci > 1000), ; 
denci CHAR(30) ;. 
CHECK (SUBSTR(dencl,1,1) = UPPER(SUBSTR(dencl,1,1))), ; 
codfisca| CHAR(9) ; 
NULL ; 
CHECK (SUBSTR(codfiscal,1,1) = UPPER(SUBSTR(codfiscal,1,1))), ; 
adresa CHAR(40) ; 
NULL ; 
CHECK (SUBSTR(adresa,1,1) = UPPER(SUBSTR(adresa,1,1))), ; 
codpost CHAR(5), ; 
telefon CHAR(10) ; 
NULL, ; 
FOREIGN KEY codpost TAG codpost REFERENCES localitati TAG codpost ; 
) i 


CREATE TABLE persoane (; 
cnp CHAR(14) ; 
PRIMARY KEY ; 
CHECK (enp=LTRIM(UPPER(cnp))) ; 
ERROR 'Codul numeric personal se scrie fara spatii la inceput !', ; 
nume CHAR(20) ; 
CHECK (nume=LTRIM(PROPER(nume))) ; 
ERROR 'Prima litera din fiecare cuvint a!'+CHR(13)+; 
"numelui este majuscula; '+CHR(13)+; 
“restul literelor sunt mici!', ; 
prenume CHAR(20) ; 
CHECK (prenume=LTRIM(PROPER(prenume))) ; 
ERROR 'Prima litera din fiecare cuvint a!'+CHR(13)+; - 
"prenumelui este majuscula; '+CHR(13)+; 
‘restul literelor sunt mici!', ; 
adresa CHAR(40) ; 
NULL ; 
CHECK (SUBSTR(adresa,1,1) = UPPER(SUBSTR(adresa,1,1))) ; 
ERROR "Prima litera din adresa este obligatoriu majuscula !', ; 
sex CHAR(1) DEFAULT 'B'; 
CHECK (INLIST(sex,F',8)); 
ERROR 'Atributul Sex poate avea valorile F (de la Femeiesc)+CHR(13)+; 
'sau B (de la Barbatesc) !', ; 


codpost CHAR(5), ; 
telacasa CHAR(10) NULL, ; 
telbirou CHAR(10) NULL, ; 
telmobit CHAR(10) NULL, ; 
email CHAR(20) NULL, ; - 
FOREIGN KEY codpost TAG codpost REFERENCES localitati TAG codpost ; 


) 


CREATE TABLE persclienti ( ; 
enp CHAR(14),; 
code! NUMBER(6),; 
functie CHAR(25) ; 
CHECK (SUBSTR(functie, 1,1) = UPPER(SUBSTR(functie,1,1))) ; 


call pot are ia ei at il ot în ate fl ata 
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ERROR Prima litera din functie este obligatoriu maiuscula !. : 
PRIMARY KEY cnp+STR(codel,6)+functie TAG primaru, : 
FOREIGN KEY cnp TAG cnp REFERENCES persoane TAG cnp, ; 
FOREIGN KEY codel TAG codel REFERENCES clienti TAG codel ; 
) 


CREATE TABLE produse (; 
codpr NUMBER(6) ; 
PRIMARY KEY ; 
CHECK (codpr > 0) ; 
ERROR 'Codul produsului trebuie sa fie mai mare de 100000 1, ; 
denpr CHAR(39) ; : 
CHECK (SUBSTR(denpr,1,1) = UPPER(SUBSTR(denpr,1,1))) ; 
ERROR 'Prima litera din denumirea produsului este obligatoriu majuscula !', ; 
um CHAR(10),; 
grupa CHAR(15) ; 
CHECK (SUBSTR(grupa,1,1) = UPPER(SUBSTR(grupa,1,1))) ; 
ERROR ‘Prima litera din grupa este obligatoriu majuscula !', ; 
procTVA NUMBER(3,2) ; 
DEFAULT .22 ; 
) 


CREATE TABLE facturi ( ; 
nrfact NUMBER(8) ; 
PRIMARY KEY, ; 

datafact DATE ; 

DEFAULT DATE() ; 

CHECK (BETWEEN(datafact,{01/08/2000},{31/12/2010})) ; 
ERROR 'Baza de date functioneaza in intervalul 1 aug.2000 - 31 dec.2010 !', ; 

codeci NUMBER(S), ; 
Obs CHAR(50) NULL, ; 
vaiftva NUMBER(16) DEFAULT 0 CHECK (ValFTVA < 100000000) ; 

ERROR Valoarea fara TVA a unei facturi nu poate depasi 100 000 000 (ei)! ,; 
FOREIGN KEY codcl TAG codel REFERENCES clienti TAG coda ; 
) 


CREATE TABLE liniifact ( ; 
nrfact NUMBER(8), ; 
linie NUMBER) ; 
CHECK (linie > 9); 
ERROR 'Atributul linie trebuie sa fie mai mare ca zero |, ; 
codpr NUMBER(G), ; 
cantitate NUMBER(10), ; 
pretunit NUMBER (12), ; 
PRIMARY KEY STR(nrfact,8)+STR(linie,2) TAG primaru, ; 
FOREIGN KEY nrfact TAG nrfact REFERENCES facturi TAG nrfact, ; 
FOREIGN KEY codpr TAG codpr REFERENCES produse TAG codpr; 
) 


CREATE TABLE incasari (; 
codinc NUMBER(8) ; 
PRIMARY KEY, : 
dațainc DATE ; 
DEFAULT DATE); 
CHECK (BETWEEN(datainc,(01/08/2000),(31/12/2010))) ; 


coddoc CHAR(4) ; 
CHECK(coddoc=UPPER(LTRIM(coddoc))) ; 
|______________ ERROR 'Codul documentului se scrie cu majuscule l, ; 


ERROR 'Baza de date functioneaza in intervalul 1 aug.2000 - 31 dec.2010 !', ; 
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nrdoc CHAR(16),; 
datadoc DATE ; 
DEFAULT DATE -7 ; 
CHECK (BETWEEN(datadoc, (01/01/2000),431/12/2010))) ; f 
ERROR 'Data documentului trebuie sa fie intre 1 ian.2000 si 31 dec.2010.!'; 


) 


CREATE TABLE incasfact ( ; 

codinc NUMBER(8), ; 
nrfact NUMBER(8), ; 

transa NUMBER({16) ; 
NOT NULL, ; 

PRIMARY KEY STR(codinc,8)+STR(nrfact,8) FAG primaru, ; f 
FOREIGN KEY codinc TAG codinc REFERENCES incasari TAG codinc, ; 
FOREIGN KEY nrfact TAG nrfact REFERENCES facturi TAG nrfact ; 


IS 


Vom converti acest script ţinând cont de următoarele caracteristici ale limbajului SQL- 
DDL propriu Oracle: | 
e în primul rând, frazele SQL din Oracle se pot întinde pe mai multe rânduri 
(nedespărțite prin caractere speciale cum este „;” în VFP) finalul lor fiind însă 
declarat prin caracterul „;” ; 

ə în fraza CREATE TABLE din VFP, restricţiile de la nivelul câmpurilor sunt 
despărțite prin caracterul „,”, iar câmpurile — prin lipsa oricărui caracter special 
(deci pur şi simplu prin spaţiu). În mediul Oracle însă, restricţiile la nivelul 
câmpurilor nu sunt despărțite prin caracterul ,„,”, prezența acestuia semnificând 
încheierea declarațiilor pentru un câmp (adică nume + tip dată + restricții) sau 
încheierea declaraţiilor pentru fiecare restricție de la nivelul întregii tabele (nu la 
nivelul unui câmp) precizate în finalul frazei CREATE TABLE; 

ə în ceeace priveşte tipurile de date, vom respecta următoarele reguli: 

- tipul VFP Number va corespunde cu NUMBER şi în Oracle; - 

— tipul Char va corespunde în Oracle cu CHAR dacă respectival câmp face 
parte dintr-o cheie (primară sau străină), sau cu VARCHAR2 în majoritatea 
celorlalte cazuri, excepție făcând situațiile în care respectivele câmpuri au în 
mod obligatoriu o lungime fixă; 

— pentru tipul Logic nu există în Oracle un tip corespunzător, aşa încât acesta 
poate fi convertit fie în CHAR, fie în NUMBER, iar respectivului câmp îi va fi 
declarat un check care desemna un domeniu de două valori cores- 
punzătoare poziţiilor .T. (Adevărat) şi .F. (Fals) din VFP; 

- tipurile Date şi DateTime vor fi convertite în tipul DATE al Oracle. n 

ə în ceea ce priveşte restricţiile din VFP, ele corespund în mare celor permise şi în 
Oracle (VFP Primary Key — Oracle PRIMARY KEY, VFP Check ~ Oracle 
CHECK, VFP Not null — Oracle NOT NULL, VFP Foreign Key — Oracle 
FOREIGN KEY, VFP Unique — Oracle UNIQUE KEY). Va trebui să ţinem însă 
seama de următoarele detalii: i 


ile i irene A i iabi rându-se 

71. Tipul VARCHAR2 se recomandă pentru cazurile în care dimensiunea câmpului este variabilă, i afl n 

astfel doar lungimea maximă. În acest fel se obţine o economie de spaţiu, valorilor din respectiva coloan: 
fiindu-le rezervat spaţiu fizic numai pentru lungimea lor reală. 


| 
i 
| 
i 
Hi 
| 
i 
| 
| 
| 
| 
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— funcția Proper din VFP (invocată în Check-uri) este echivalentă cu 
funcţia INITCAP din Oracle; 

—  uncţia InList() din VFP va fi transformată în Oracle într-o expresie 
conținând operatorul IN; 

— funcţia Date() din VFP (prin care se obține data sistemului) este 
echivalentă cu funcţia SYSDATE din Oracle; 

— funcția Between () din VFP va fi echivalată cu operatorul BETWEEN din 
Oracle, care are următoarea sintaxă: 

~  <Expresie evaluată> BETWEEN <expresie 
inferioară> AND <Expresie limită superioară» 

— invocarea unei valori tip dată calendaristică în VFP (prin expresii de genul 
(01/01/20602)) va fi tradusă în Oracle “prin intermediul funcţiei 
TO_DATE 2, 

— în restricțiile PRIMARY KEY, UNIQUE KEY şi FOREIGN KEY din Oracle 
sunt specificate câmpurile (şi eventual tabelele) participante şi nu expresii de 
indexare ca în VFP, construirea şi gestionarea expresiilor indecşilor cores- 
punzători nefiind transparentă dezvoltatorilor. De exemplu, expresia VFP: 

— PRIMARY KEY cnp+STR (codel, 6)+functie TAG primaru 

— va corespunde în Oracle cu: 


~ CONSTRAINT Primar 


4 


limită 


PRIMARY KEY (enp, coace, 


În funcție de specificul bazei de date VFP ce urmează a fi convertită, apar diferite asifel 
de situaţii particulare; de aceea, pentru rezolvarea corectă a acestora, este necesară o 
consultare detaliată a documentaţiei Oracle privind sintaxa comenzilor DDL, tipurile de 
date disponibile, sintaxa operatorilor SQL specifici, sintaxa funcţiilor folosite în declaraţii 
de tip CHECK etc. 

În fine, ținând cont de precizările de mai sus, vom ajunge la un script DDL în Oracle 
care, într-o formă validă, va arăta în linii mari aşa cum este prezentat în listingul 16.2, 


Listing 16.2. Listing pentru crearea bazei de date Oracle 


DROP TABLE INCASFACT; 
DROP TABLE INCASARI; 
DROP TABLE LINIIFACT; 
DROP TABLE FACTURI; 
DROP TABLE PRODUSE; 
DROP TABLE PERSCLIENTI; 
DROP TABLE PERSOANE; 
DROP TABLE CLIENTI; 
DROP TABLE LOCALITATI; 
DROP TABLE JUDETE; 


72. În Oracle, o valoare tip dată calendaristică (DATE) nu poate fi scrisă într-o expresie printr-o sintaxă specifică, 
motiv pentru care se foloseşte funcția TO_DATE (<expresie dată calendaristică - şir de 
caractere>, <format interpretare - şir de caractere>), 
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CREATE TABLE judete ( 
jud CHAR(2) 
PRIMARY KEY 
CHECK (jud=L TRIM(UPPER(ud))), 
judet VARCHAR2(25) 
NOT NULL 
UNIQUE 
CHECK (judet=LTRIM(INITCAP(judet))), 
regiune VARCHAR2(15) 
DEFAULT 'Moldova' 
CHECK (Regiune IN (Banat, 'Transilvania', Dobrogea''Oltenia', 
'Muntenia','Moldova')) 


4 


CREATE TABLE localitati ( 

codpost CHAR(5) 

PRIMARY KEY 

CHECK (codpost=LTRIM(codpost)), 
loc VARCHAR2(25) 

NOT NULL 

CHECK (ioc=L.TRIM(INITCAP(loc))), 
jud CHAR(2) 

DEFAULT 'IS' 

REFERENCES judete(jud) 


) 
/ 


CREATE TABLE clienti ( 

codel NUMBER(6) 

PRIMARY KEY 

CHECK (codei > 1000), 
denci VARCHAR2(30) 

CHECK (SUBSTR(dencl,1,1) = UPPER(SUBSTR(denci,1,1))), 
codfiscai CHAR(9) 

CHECK (SUBSTR(codfiscal,1,1) = UPPER(SUBSTR(codfiscal,1,1))), 
adresa VARCHAR2(40) 

CHECK (SUBSTR(adresa,1,1) = UPPER(SUBSTR(adresa,1,1))), 
codpost CHAR(5) REFERENCES localitati(codpost), 
telefon VARCHAR2(10) 


) 
/ 


CREATE TABLE persoane ( 
cnp CHAR(14) 
CONSTRAINT pk_persoane PRIMARY KEY 
CONSTRAINT ck_cnp CHECK (enp=LTRIM(UPPER(cnp))), 
nume VARCHAR2(20) 
CONSTRAINT ck_nume CHECK (nume=LTRIM(NITCAP(nume))), 
prenume VARCHAR2(20), 
CONSTRAINT ck_prenume CHECK (prenume=i.TRIM(INITCAP(pre 
adresa VARCHAR2(40) 


sex CHAR(1) DEFAULT 'B' 
CONSTRAINT ck_sex CHECK (sex = 'F' OR SEX ='B'), 
codpost CHAR(5) CONSTRAINT fk_pers_loc REFERENCES localitati 
telacasa VARCHAR2(10) NULL, 
telbirou VARCHAR2(10) NULL, 
telmabil VARCHAR2(10) NULL, 


nume))), 


CONSTRAINT ck_adresa CHECK (SUBSTR(adresa,1,1) = UPPER(SUBSTR(adresa,1,1))), 


(codpost), 


sata linii im 
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) email VARCHAR2(20) NULL 
/ 


CREATE TABLE persclienti ( 
cnp CHAR(14), 
codel NUMBER(5), 
functie VARCHAR2(25) 
CHECK (SUBSTR(functie, 1,1) = UPPER(SUBSTR(functis,1,1))), 
CONSTRAINT pk_persclieni PRIMARY KEY (enp, codcl, functie), 
CONSTRAINT fk_persoane_clienti FOREIGN KEY (enp) REFERENCES persoane(enp), 
CONSTRAINT fk_clienti_persclienti FOREIGN KEY (codel) REFERENCES clienti(codel) 
) 
/ 


CREATE TABLE produse ( 
codpr NUMBER(6) 
PRIMARY KEY 
CHECK (codpr > 0), 
denpr VARCHAR2(30) 
CHECK (SUBSTR(denpr,1,1) = UPPER(SUBSTR(denpr,1,1))), 
um VARCHAR2(19), 
grupa VARCHAR2(15) 
CHECK (SUBSTR(grupa,1,1) = UPPER(SUBSTR(grupa,1,1))), 
procTVA NUMBER(3,2) 
DEFAULT .22 
) 
/ 


CREATE TABLE facturi ( 
nrfact NUMBER(8) 
PRIMARY KEY, 

datafact DATE 

DEFAULT SYSDATE 

CHECK (Datafact BETWEEN TO_DATE(01/08/2000', 'DD/MM/YYYY") 

AND TO_DATE('31/12/2010', 'DD/MM/YYYY')), 

codel NUMBER(S), 
Obs VARCHAR2(50) NULL, 
valftva NUMBER(16) DEFAULT 0 CHECK (ValF TVA < 100000000), 
CONSTRAINT fk_clienti_facturi FOREIGN KEY (codel) REFERENCES clienti(codci) 


) 
ł 


CREATE TABLE liniifact ( 
nrfact NUMBER(8), 
linie NUMBER(2) 
CHECK (linie > 0), 
codpr NUMBER), 
cantitate NUMBER(10), 
pretunit NUMBER (12), 
CONSTRAINT pk_iiniifact PRIMARY KEY (nrfact, linie), 
CONSTRAINT fk_facturi_liniifact FOREIGN KEY (nrfact) REFERENCES facturi(nrfact), 
CONSTRAINT fk_produse_liniitact FOREIGN KEY (codpr) REFERENCES produse(codpr) 
) 
l 


CREATE TABLE incasari ( 
codinc NUMBER(8) PRIMARY KEY, 
|_____ datainc DATE 
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i 
DEFAULT SYSDATE 


CHECK (datainc BETWEEN TO_DATE(01/08/20009', 'DD/MM/YYYY') 
AND ȚO_DATE('31/12/2910', 'D0D/;MM/YYYY')), 
coddoc VARCHAR2(4) 
CHECK(coddoc=UPPERILTRIM(coddoc)), 
nrdoc VARCHAR2(16), 
datadoc DATE sons 
EFAULT SYSDATE - 
ok (datadoc BETWEEN TO_DATE('01/08/2090', 'DD/MM/YYYY') 
AND TO_DATE('31/12/2010', 'DD/MM/YYYY')) 


) 
I 


CREATE TABLE incasfact ( 
codinc NUMBER(8), 
nrfact NUMBER(8), 
transa NUMBER(16) NOT e Ac, vedeti Bai 
RAINT pk_incasfact PR codinc,nrfact), | | 
CO ANT k ncasari_incasfact FOREIGN KEY (codinc) REFERENCES incasari(codinc), 
CONSTRAINT fk_facturi_inveasfact FOREIGN KEY (nrfact) REFERENCES facturi(nrfact) 


) 
/ 


Acest script poate fi rulat folosind utilitarul Oracle SOL* Plus, de aceea execuţia 
fiecărei comenzi este invocată prin caracterul „/” (echivalent este și caracterul „;”, care ar 
putea să însoțească ultimul caracter „)” al unei comenzi CREATE TABLE). Le 
În prealabil, presupunând că pe server a fost deja creată o bază de date Oracle accesibilă 
prin stringul VINZARI, ar trebui executate (tot din Oracle SQL*Plus) următoarele 
comenzi: l 
e pentru crearea schemei care va găzdui tabele din listingul de mai sus: 
CREATE USER vinzari IDENTIFIED BY vinzari 
DEFAULT TABLESPACE users, 
TEMPORARY TABLESPACE temp 
3 
LR connect, resource TO vinzari 
/ A A 
e pentru executarea scriptului din listingul 16.2 (presupunem că este salvat în 
directorul Migrare CracleiScripturi al locației aplicaţiei): 
CONNECT vinzari /vinzarilvinzari 
QK: NAplicatieVMigrare OracleNCreare_ BD Oracle. sql 


Verificăm existenţa tabelelor prin următoarea frază: 
select table name from user _tables; 
şi va trebui să obținem următorul rezultat: 


TABLE NAME 
CLIENTI 
FACTURI 
INCASARI 


73. Detaliu din punctul de vedere al administrării BD: este recomandabilă crearea unui rablespace special pentru 
schema vinzari. 
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INCASFACT 
JUDETE 
LINIIFACT 
LOCALITATI 
PERSCLIENTI 
PERSOANE 
PRODUSE 


10 rows selected. 


În pasul doi al acestei prime etape din procesul de migrare, ne-am propus să populăm 
tabelele create în baza de date Oracle. Vom încerca să realizăm acest lucru în felul următor: 
pentru fiecare tabelă din baza de date VFP vom genera un script de populare (fişier text cu 
extensia . SOL executabil folosind utilitarul Oracle SQL* Plus) care va conţine frazele 
INSERT-SOL necesare (bineînţeles, respectând sintaxa specifică Oracle), apoi vom 
centraliza apelurile de execuţie ale acestor scripturi într-un alt fişier cu extensia . SQL 
asociat bazei de date. : 

Pentru generarea fişierelor de comenzi mai sus amintite, interpretabile prin Oracle 
SOL* Plus, vom scrie o procedură în VFP care să prelucreze datele din baza de date sursă. 
Problemele mai serioase ridicate de crearea acestei proceduri se referă la scrierea în şirul 
care formează fraza SOL-INSERT a expresiilor pentru valorile corespunzătoare câmpurilor 
respectând sintaxa specificaţiilor limbajului SQL din Oraclesi. În acest scop, în 
listingul 16.3 veţi găsi definită o funcție specială format_expresie valoare () care 
rezolvă această problemă pentru tipurile de date întâlnite în baza de date VEP considerată 
ca exemplu (vezi listingul 16.1). După cum se poate uşor observa, listingul 16.3 este format 
din trei părţi: 

e prima parte conține programul de bază care va crea fişierul ce invocă procedura 
responsabilă de generarea scripturilor conținând comenzile INSERT-SQL pentru 
fiecare tabelă a bazei de date. Pentru a afla care sunt tabelele bazei de date, a fost 
utilizată funcţia ADBOBJECTS () ce va plasa într-un masiv numele acestora: 

e a doua parte cuprinde programul prin care sunt create fişierele de populare ale 
fiecărei tabele din baza de date. Aici se va construi de fapt câte un şir ce va conţine 
fraza INSERT corespunzătoare fiecărei înregistrări din tabela-sursă. Clauza 
VALUES a frazelor INSERT-SOL va fi formată ţinând cont de sintaxa specifică 
precizării valorilor din Oracle. Acest lucru este condiționat de tipul de dată, motiv 
pentru care am creat funcția format _ expresie valoare) ce realizează o 
conversie a tipurilor din VEP în Oracle; l 

ə a treia parte o constituie funcția format_expresie_valoare(). Aceasta 
realizează o conversie a valorilor din VEP în Oracle pentru tipurile de dată: 
N-Numeric, C-Character, D-Date, L-Logic, T-DateTime”. 


i e iei , 

74. Ne-am limitat doar la tipurile de date VFP de care ne-am lovit la crearea schemei în Oracle pe baza tabelelor 
VFP din listingul 16.1. Dacă în baza VFP inițiată ar mai fi implicate şi alte tipuri de date, funcţia 
format_expresie_valoare ()va trebui completată pentru a trata şi aceste cazuri, = 
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Listing 16.3 


”** Obtinere script pentru populare bazei de date de pe serverul Oracle 
PROCEDURE Generare_Script_Pop_BD_Oracie 
PARAMETER numeBazaDate, DirScriptGenerat 
Local nrtabele, a_tabele(1), nume_script_pop_tbl, numescriptgenerat 
IF !dbused(numeBazaDate) 
OPEN DATABASE (NumeBazaDate) SHARED 
ENDIF 
IF EMPTY(dirscriptgenerat) 
DirScriptGenerat = SYS(5)+SYS(2003) 
ENDIF 
numeScriptGenerat=DirScriptGenerat+"!populare_bd_'+numeBazaDate+"'.sa!! 
MESSAGEBOX('Atentie! Veti obtine un script localizat in '+numeScriptGenerat+" l’) 


nrtabele = ADBOBJECTS(a_tabele, "TABLE") 


** Obtin mai intai scriptul general din care vor fi invocate 
** scripturile pentru popularea fiecarei tabele 

SET TEXTMERGE ON 

SET TEXTMERGE TO (nurneScriptGenerat) NOSHOW 
1--Script populare BAZA DE DATE 
A<<numeBazaDate>> 

1--Generat la 

W<<DATETIME()>> 


© FOR i=1 TO ALEN(a_tabele, 1) 


IF EMPTY (numescriptgenerat) 
nume_script_pop_tbl = SYS(5)+SYS8(2003)+"popuiare_'+a_tabeie(i)+'.sgr 
ELSE i : 
nume_script_pop_tbi = DirScriptGenerat+"ipopulare_'+a_tabele(1)+'.sq!' 
ENDIF 
ee 
W<<nume_script_pop_tbl>> 
ENDFOR i a 
\ 


COMMIT; 


SET TEXTMERGE TO 
SET TEXTMERGE OFF 


** Invoc procedura Generare_Insert SQL pentru a obtine 

” cate un script de populare separat pentru fiecare tabela din baza de date 

FOR j=1 TO ALEN(a_tabeie, 1) 

= messagebox(DirScriptGenerat+a_tabeleţj)) 
Generare_insert_SQL(a_tabele(j), DirScriptGenerat) 

ENDFOR 

ENDPROC && Sfarsit procedura principala Generare_Script_Pop_BD_Oracle 


PROCEDURE Generare_Insert_SQL 
*** Generarea frazelor INSERT-SQL corespunzatoare inregistrarilor unei tabele FOX 
PARAMETER numetabela, DirScript 
Local nrcampuri, a_campuri(1), sir_clauza_campuri, sir_clauza_values, sir_sql_emd 
CLEAR 
SET STRICTDATE TO 0 
SET DATE TO BRITISH | 
SET CENTURY ON 
IF IUSED(numetabela) 
use (numetabeia) in 0 shared 
ENDIF A 
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nrcampuri = afield(a campuri, numetabela) 
"” col 1 - numele campului 
** col 2 - tipul campului N-Number, C-Character, D-Date, T-DateTime, L-Logic 
"? col 3 - dimesiunea campului 
** col 4 - dimensiunea partii zecimale 
*” in locul functie afield se pot folosi functiile: 
** FIELD(<nr camp>) - pentru a gasi numele campului 
** TYPE(FIELD(<nrecamp>)) - pentru a afla tipul campului 
select (numetabeia) 
sir_clauza_campuri=" 
sir_ctauza_values=" 
sqlcmd=" 
IF EMPTY(DirScript) 
ei nurnescript='K:AplicatieiMigrare_Oracletpopulare_"+numetabela+!.sqt' 
numescript=SYS(5)+SYS(2003)+populare_'+numetabela+'.sa/' 
LSE 


numescript=DirScript+"populare_tbl_'+numetabela+.sql' 
ENDIF 


? 'Atentie! Veti obtine un script localizat in '+*numescript+! !' 


FOR i=1 TO ALEN(a_campuri, 1) && sau FCOUNT() 
IF INLIST(a_campuriți, 2), 'N''C'D'"T', 'L') && sau INLIST(TYPE(FIELD(I)), 'N'CDT, 'L) 
sir_clauza_campuri=sir_clauza_campuri+a_campuri(i, 2) && sau +FIELD(i) 
IF i<>ALEN(a_campuri, 1) && sau FCOUNT() 
sir_clauza_campuri=sir_clauza_campuri+","* 
ENDIF 
ENDIF 
ENDFOR 
** Directionez textul generat in fisierul script declarat anterior 
SET TEXTMERGE ON 
SET TEXTMERGE TO (numescript) NOSHOW 
V-Script populare tabela 
W<<numetabela>> 
|Generat la 
W<<DATETIME(Q>> 
nrinreg=RECCOUNT() 
SCAN d 
FOR i=1 TO ALEN(a_campuri, 1) && sau FCOUNT( 
IF INLIST(a_campuriți, 2), 'NCD'T, 'L) && sau INLIST(TYPE(FIELD(I)), 'N'CDT, 'L) 
&& Formatul sintactic al expresiei prin care se precizeaza valoarea campului in fraza INSERT 
&& depinde de tipul campului - vezi mai jos functia format_expresie_valoare() ` 
sir_clauza_values=sir_clauza_values+format_expresie_valoare(a_campuriți, 1)) 
&& +delimitator(FIELD(I)) 
IF i<>ALEN(a_campuri, 1) && sau FCOUNT( 
sir_clauza_values=sir_clauza_values+"," 
ENDIF 
ENDIF 
ENDFOR 
sqicmd=INSERT INTO '+numetabela+' VALUES (+sir_clauza_values+");' 
WAIT WIND 'Asteptati <<< '+ ALLT(STR(RECNO()+/+ALLT(STR(nrinreg)) NOWAIT 
A<<saqlcmd>> ` 
“sir_clauza_values=" 
ENDSCAN 
A 
\COMMIT; 
SET TEXTMERGE TO 
SET TEXTMERGE OFF 
WAIT WIND "Gata!" NOWAIT 


ENDPROC && Sfarsit procedura Generare Insert SQL 
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FUNCTION format_expresie_valoare 
PARAMETERS numevar 
DO CASE 
case ISNULL(&numevar) 
RETURN 'NULL' 
CASE VARTYPE(&numevar)='N' 
RETURN ALLT(STR(ânumevar,16,2)) 
CASE VARTYPE(&numevar)='C' 
RETURN CHR(39)+ALLT(&numevar)+CHR(39) II 
CASE VARTYPE(&numevar)='D' OR VARTYPE(&numevan)="T 
RETURN Ne 
'TO_DATE(+CHR(39)+DTOC(&numevar)+CHR(39)++CHR(39)+'DDIMM/TYYY 
HH:MI:SS'+CHR(39)+") 
CASE VARTYPE(&numevan)=L! 
RETURN alit(str(IlF(&numevar,1,0))) 
OTHERWISE 
RETURN '<unknown>' 
ENDCASE 


ENDEUNC 


În urma execuţiei acestei proceduri poate fi obţinut un fişier cum este cel din 
listingul 16.4 şi totodată scripturile invocate în acest fişier (vezi figura 16.1) . 


Atenție! După generarea scriptului pentru popularea bazei de date din Oracle, 
verificaţi succesiunea apelurilor către fişierele de populare ale tabelelor individuale. 
Pentru a nu avea probleme cu restricţiile referenţiale, mai întâi trebuie invocate scrip- 
turile corespunzătoare tabelelor-părinte şi apoi cele ale tabeleior-copil. 


Listing 16.4 


Script populare BAZA DE DATEVINZARI 

-Generat la 29/11/2001 08:30:27 PM 
QOK:APLICATIEIMIGRARE_ORACLEScripturitpopulare_JHJDETE, sal 
OK APLICATIEIMIGRARE ORACLE NScripturilpopuiare_LOCALITATI.sal 
QOEOKMPLICATIEMIGRARE_ORACLEAScripturitpopulare_CLIENTI.sal 
QOK:APLICATIEIMIGRARE_ORACLEAScripturitpopulare_PERSOANE sal 
QOK: APLICATIEWMIGRARE_ORACLEAScripturilpopulare_PERSCLIENTI,sal 
QOKAPLICATIEIMIGRARE_ORACLEScripturipopulare_PRODUSE sai 
QOKMPLICATIEIMIGRARE_ORACLENScripturitpopulare_FACTURI. sai 
OQKAPLICATIEIMIGRARE_ORACLEIScripturiipopulare_LINIIFACT.sqi 
QQK:APLICATIEIMIGRARE_ORACLENScripturilpopulare_INCASARI sal 
QOK:WPLICATIEIMIGRARE_ORACLEiScripturipopulare_INCASFACT.sal 


COMMIT; 
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a È) creara _bd_Oracle.sg 
SE 3) populare_bd_VINZARI.sal 
„Scripturi | '2) populare tbi CLIENTI, sai 
cae] populare _tbl FACTURI, sai 
5 zm 
3 This folder is Online. |] populare tbl INCASARI sqi 
i i2] populara tb INCASFACT.so 
Select an item to view ts ta eroare PRON ret é 
E E ata Vevii :) popnlare_tbi_JUDETE, sai popie IDE ROETE suf e Note - aia 
populare tbi LINIIFACT.sqi Fie Edt Format Hep 
populare tbi LOCALITATI. sgi zj 
ay Doeners puare tbi PERSCHENTI,sgl--Script populare tabela JUDETE m 
: p! 
y Network Places F populara tol PERSOAME.sqi |--GEnerat la 29/11/2001 06:30:27 PM 
Mcatee F pondre H PEA INSERT INTO JUDETE VALUES Ç'IS','Iasi’,'Moldova'); 
că = Populare IO PRODUSE să [INSERT INTO JUDETE VALUES 'VN', vrancea’, ‘Moldova’ J; 
P INSERT INTO JUDETE VALUES Ç'NT',/'Neamt', 'Moldavă '); 
eN paat meme (INSERT INTO JUDETE VALUES 0'sv', "Suceava", 'Moldova!); 
(14.7 [INSERT INTO JUDETE VALUES ('ws', "vaslui", 'Moldova'); 
i2 INSERT INTO JUDETE VALUES Ç'TM','Timis', Banat d; 
INSERT INTO JUDETE VALUES C av’, ‘Brasov’, ‘Transi lvanta!); 
CCHMIT; 
lu i P 
zi] 


Figura 16.1. Scripturile generate şi conţinutul fişierului populare_tbl_ judete. sql 


Singurul  lucuru care mai rămâne de făcut ar fi rularea scriptului 
Populare_BD Vinzari, SQL din Oracle SOL*Plus. 


16.3. Configurarea mediului client-server: 
client VFP — server Oraclesi 


16.3.1. ODBC, drivere ODBC 


Open Database Connectivity (ODBC) reprezintă o interfață standard care permite unei 
aplicaţii să acceseze date din surse diferite: Oracle, MS SQL Server, DB2, Informix, MS 
Access, dBase ș.a. Iniţiativa ODBC a aparținut companiei Microsoft, având acceptul şi 
concursul firmelor de soft care produc servere BD. 

Legătura între aplicaţiile ce exploatează aceste surse de date şi serverele BD se 
realizează prin drivere specifice, care reprezintă, în fapt, DLL-uri invocate atunci când se 
solicită accesul la o anumită sursă de date. Prin urmare, o aplicaţie se poate conecta la 
oricare sursă pentru care există drivere (vezi figura 16.2). 
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Aplicația 
(VisualFoxPro)” 


Reţea: substratul de 
transport 


Figura 16.2. Componentele ODBC 


Conform intențiilor inițiatorilor, interfaţa ODBC defineşte: 

e  obibliotecă de apeluri de funcții care permit unei aplicaţii să se conecteze la o sursă 
de date, să execute fraze SQL şi să primească rezultatele acestora; 

e modalitate standard de conectare la o sursă (BD) de date externă; 

e modalitate standard de reprezentare a tipurilor de date. 


Mai trebuie menționat că această interfață mai permite şi recepționarea, tot printr-un 
mecanism standardizat, a erorilor generate de motoarele diferitelor servere de baze de date 
care gestionează BD sursă. , 

Sintaxa frazelor SQL prin care sunt apelabile sursele de date este (sau ar trebui să fie) 
conformă cu specificațiile standardului 'SQL-92. Prin urmare, sarcina traducerii speci- 
ficațiilor SQL-92 în specificațiile proprii serverelor ce gestionează diferitele surse de date 
aparține tot driverelor ODBC. 


16.3.2. Clientul ORACLESi şi protocolul de conectare NET8 


Într-o configuraţie client-server, dialogul dintre cele două entități poate fi rezumat astfel: 
când un client trimite o cerere (frază SQL) către un server BD, acesta o recepționează, o 
execută, după care trimite ca răspuns rezultatul frazei SQL sau erorile care rezultă în urma 
execuţiei, O astfel de comunicare simplă şi comodă între clienţi şi serverele de baze de date 
este posibilă în tehnologia Oracle prin protocolul NET8. 

Protocolul NET8 se sprijină pe substratul de transport din stiva protocoalelor de rețea 
(TCP/IP, SPX/IPX). NET8 furnizează în principal trei funcţii de bază care se referă la: 
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e operaţiile de conectare; 

e operațiile privitoare la date (transferul datelor între client şi server); 

e operațiile legate de excepțiile/evenimentele anormale ce pot surveni în cadrul unei 

sesiuni client-server. 

O sesiune de lucru Oracle nu poate fi descrisă fără a avea o imagine, chiar şi sumară, a 
ceea ce se întâmplă cu cererile clienţilor o dată ajunse pe maşina pe care rulează serverul 
Oraclesi. Rolul esențial în această privință îl are un serviciu special (în NT sau 2000) numit 
LISTENER. Acesta recepționează cererile trimise către serverul Oracle prin diferitele 
protocoale de rețea şi le redirecționează (rutează) către bazele de date (sau, mai specific, 
către instanțele bazelor de date) cărora le sunt adresate: efectiv. 

Procedura de conectare a unui client la un server Oracle se reduce în principal la 
următorii paşi: 

1. Un program sau aplicaţie-utilizator iniţiază o cerere de conectare trimițând numele de 
utilizator, parola şi un nume de serviciu (service name), care poate fi asimilat unui alias 


al bazei de date destinaţie. Acest service name este mapat direct pe un descriptor de 


conectare (connect descriptor). Maparea cade exclusiv în sarcina protocolului 
NETB, care va încerca să o rezolve citind fişierele de configurare în care se găsesc 
specificaţiile descriptorilor de conectare şi metoda de rezoluţie. 

2, După ce semnificația numelui de serviciu este determinată, cererea de conectare este 
transmisă, prin protocolul de rețea existent, serviciului LISTENER de pe maşina server a 
cărui adresă a fost dedusă din descriptorul de conectare obținut prin operația de mapare 
descrisă mai sus. 

3. Sesiunea de lucru dintre client şi serverul bazei de date nu este însă susținută de către 
LISTENER, rolul acestuia limitându-se doar la redirecționarea cererilor către instanţele 
bazelor de date cărora le sunt adresate, Astfel, când primeşte o cerere către o bază de date, 
LISTENER-ul creează un proces server căruia îi predă controlul sesiunii deschise între 
server şi client, i 

4. Adresa procesului nou-creat este trimisă procesului de pe maşina clientului. Astfel, 
cele două procese (procesul-utilizator — care a inițiat cererea de conectare — şi procesul- 
-server) vor comunica direct pe durata sesiunii fără a implica serviciul LISTENER. 


16.3.3. Arhitectura funcțională a driverului Oracle ODBC Driver 


Oracle ODBC Driver permite aplicaţiilor Windows (95, 98, NT sau 2000) să efectueze 
operaţii de scriere (actualizare) sau citire (interogare) în BD Oracle utilizând software-ul de 
comunicare proprietar Oracle, NETS. Se asigură, astfel, independența față de protocolul de 
transport (TCP/IP, IPX/SPX ş.a.) a dialogului dintre clienții şi serverele ORACLE, 

Acest driver foloseşte interfața OCI (Oracle Call Interface) de pe client pentru a trimite 
cererile de acces ale aplicației şi pentru a recepționa rezultatele acestora de la sursa de date 
invocată, Protocolul de comunicare NET8 este utilizat pentru realizarea legăturilor între 
clientul OCI şi serverul Oracle. 

Driverul furnizat de Oracle traduce sintaxa SQL proprie interfeței ODBC în sintaxa 
proprie serverului sursei de date. În momentul în care sursa de date invocată returnează 
rezultatul, acelaşi driver îl traduce în sintaxa SQL a ODBC. 

Arhitectura funcţională a mecanismului de comunicare prin Oracle ODBC driver este 
prezentată în figura 16.3. 
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"Aplicația (V isualFoxPro)- 


“Microsoft Driver Manager. 
5 IODBC32;0LL] 


oft de rețea: $ 
TCP/IP. IPX/SPX NoveliNetv 


Figura 16.3. Mecanismul de comunicare prin Oracie ODBC driver 


Se observă că peste stratul de transport al softului de rețea se suprapun componente ale 
protocolului NETS pentru care au fost construite adaptoare aferente tuturor protocoalelor de 
rețea importante. i | îi 

Dintre componentele arhitecturale ale protocolului NETS, interfața OCI şi serviciul 
LISTENER sunt prezentate în schema de mai sus. 

OCI constituie primul strat din stiva NETS, iar codul OCI (adică funcţiile din biblioteca 
OCI.d11) conţine toate informaţiile necesare pentru iniţierea şi desfăşurarea dialogului 
client-server ORACLE — sau, cu alte cuvinte, defineşte apeluri către server pentru: 

e descrierea conținutului câmpurilor returnate pe baza informațiilor din dicţionarul de 

date, pentru analiza (parse) frazelor SQL din punct de vedere sintactic; 

e  dechiderea unui cursor în urma unei fraze SQL; 

ə executarea frazelor SQL în spaţiul de memorie destinat cursorului creat; 

e aducerea (fetch) unei înregistrări sau a mai multor înregistrări în aplicaţia-client; 

e închiderea cursorului creat în scopul execuției frazei SQL. 

Aplicaţia-client utilizează o combinaţie a acestor apeluri pentru a trimite și executa 
cereri pe serverul ORACLE. 


Creareu unei surse de date Oracle prin ODBC 

Să clarificăm mai întâi la ce ne referim când vorbim despre o sursă de date sau despre 
un client ODBC pentru un server BD. S 

În sens larg, o sursă de date constă din datele (baza de date) pe care un utilizator doreşte 
să le acceseze, plus informațiile necesare pentru accesarea lor, referitoare la sistemul de 
operare, SGBD şi substratul de transport în reţea. 


Aplicații VFP cu servere de baze de date 539 


Clientul poate fi asimilat unei aplicaţii care accesează date de pe un server utilizând o 
interfață corespunzătoare. Serverul recepționează, procesează cererile clientului și transmite 
rezultatul clientului care a iniţiat cererea. Un client ODBC utilizează interfața API a 
driverului ODBC pentru a apela funcţiile specifice acesteia în scopul transmiterii frazelor 
SQL către serverele de date și recepționării; primirii rezultatelor acestor cereri, 

Pentru a crea o. sursă de date OracleBi accesibilă prin Oracle ODBC Driver, 
trebuie urmaţi mai mulți paşi, 

Mai întâi, trebuie apelat administratorul surselor de date ODBC (din Control Panel - 
ODBC Daca Source). Din cadrul de pagină (User /System/File) DataSour- 
ceName (diferențierea pe user, system sau file este proprie NT-ului şi se referă la domeniul 
de vizibilitate al sursei de date pe maşina respectivă) se alege butonul Ada..., care lansează 
fereastra de dialog Add Data Source. Din lista de drivere ODBC se alege Oracle 
ODBC Driver (care va ti disponibil o dată cu instalarea clientului Oracle pe respectiva 
maşină). De regulă, există şi drivere pentru Oracle create de Microsoft (care funcționează în 
mare măsură identic). 

Pasul imediat următor presupune completarea informaţiilor cerute în fereastra de dialog 
Oracle ODBC Setup (sau Microsoft ODBC Driver for Oracle Setupori 
Microsoft ODBC for Oracle Setup pentru driverele furnizate de Microsoft) — 
vezi figura 16.4. Dintre aceste informaţii, esenţiale sunt cele legate de: Data Source 
Name, UserId şi Service Name (sau Connect String ori Server pentru 
driverele Microsoft). După selectarea butonului OK din ultima fereastră de dialog, numele 
sursei de date se va regăsi printre celelalte surse de date disponibile pe respectiva maşină. 
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Figura 16.4. Fereastra de configurare a driverului ODBC pentru Oracle 
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Crearea unei conexiuni VisualFoxPro (client Oracle) 

O conexiune (un obiect de tip connection) poate fi asimilată definiţiei unei surse de 
date stocate într-o bază de date VFP. Această definiţie este utilizată atunci când se deschide 
o sesiune de lucru cu baza de date care este reprezentată prin sursa de date respectivă, 
Deschiderea unor astfel de sesiuni se realizează fie implicit prin remote views (tabele 
derivate la distanță), fie explicit prin interfața de transfer SPT (SQL Pass-Through). 

Definirea unui obiect de tip connection într-o BD VEP va cuprinde o serie de 
parametri care se referă la specificarea sursei de date pentru care este construită conexiunea 
VFP şi o altă serie de parametri care se referă la gestionarea comunicării/traficului dintre 
clientul VFP şi sursa (baza) de date remote (la distanţă). 

Crearea şi configurarea unei asemenea conexiuni se poate realiza fie asistat, cu ajutorul 
Connection Designer-ului, ca în figura 16.5, fie „manua!”, cu ajutorul comenzilor 
CREATE CONNECTION şi DBSETPROP (parametrii de configurare ai unui obiect de tip 
connection se stochează în dicționarul bazei de date) — vezi listingul 16.5. 


|: connection Desianer 


Verit Connection... 


d “New Data Source... | | 


i 
“Password: s „Database: ; | 
i 


| vinzari i l vinzari q 


[Display ODBC login promis 
1.19 When login information is not specifie 


i Ce Alias. i 


p Display Warnings: 


idee A G 4415 i d = 
M Batch processing i me a a a ea e 
K Aloma ranite de Je kiue (sec: i dal time (ms 
; l Packet size:: ] 036 zÍ ;, | 9 


Figura 16.5. Fereastra Connection Designer pentru crearea legăturii 
cu baza de date VINZARI localizată pe serverul Oracle 


Legarea VFP cu Oracle, chiar în condiţiile în care tabelele bazei sunt, în totalitate, 
gestionate în Oracle, presupune existența sau, în caz contrar, crearea unei BD şi pe client, 
pentru stocarea informaţiilor privitoare la conexiuni şi a definiţiilor eventualelor tabele 
derivate la distanţă. 

Precizarea sursei de date se poate face fie prin indicarea explicită a informaţiilor 
referitoare la: Data source, Userid, Password, Database (selectând opţiunea 
Data source, Userid, Password), fie prin completarea unui şir de caractere 
(selectând opţiunea Connection string) care se compune, în cazul driverului pentru 
Oracle, din specificaţiile parametrilor: DSN pentru numele sursei de date ODBC, UID 
pentru identificatorul utilizatorului în a cărui schemă se găsesc datele ce se doresc a fi 
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accesate, PWD - parola utilizatorului, DBQ pentru precizarea bazei de date/serviciului 
Oracle. 

l In cazul șirului de caractere pentru conectare, acesta poate fi construit şi automat de 
sistem, prin fereastra de dialog activată la selectarea butonului cu eticheta ,„.” din dreapta 
căsuţei de tip text aferentă şirului de conectare. Aceste două modalități de specificare a 
sursei de date sunt echivalente şi cu instrucțiunile din listingul 16.5: 


Listing 16.5. Crearea conexiunii prin program 


CREATE CONNECTION OraVinzari; 
DATASOURCE vinzari ; 
USERID vinzari PASSWORD vinzari DATABASE vinzari 
* sau 
CREATE CONNECTION OraVinzari ; 
CONNSTRING 'DSN=vinzari;UID=vinzari;PWD=vinzari:DBQ=vinzari 


Specificaţiile pentru gestionarea comunicării dintre clientul VEP şi baza/sursa de date 
Oracle se referă în principal la: suport pentru tranzacții, procesare sincronă/asincronă, 
modul de lucru bateh/non-batch. 

Tranzacţiile sunt gestionate fie automat, fie manual cu ajutorul interfeţei SPT prin 
funcțiile SOLCOMMI 7 () şi SOLROLLBACK (). 

| Modalităţile de prelucrare a datelor din sursele/bazele de date Oracle, sincronă sau 
asincronă, se referă la modul în care se returnează controlul aplicației după apelarea unei 
funcţii ce implică trafic ODBC. 

Modul de lucru batch sau non-batch stabileşte modul de execuție al unei funcţii 

care poate returna mai multe seturi de date dintr-o sursă de date ODBC (ce-i drept, nu am 
reuşit să convingem Oracle să returneze mai multe seturi de date în urma unui singur apel 
ODBC, cum este posibil cu MS SQLServer). ] 
Aceste specificații au mai mare importanță când se lucrează cu conexiunile ODBC 
într-un mod mal „intim”, prin funcțiile specifice interfeței SPT (SQL Pass-Through). Para- 
metrii privitori la aceste specificații se pot configura explicit pentru o conexiune, în dicțio- 
narul bazei de date, cu ajutorul funcţiei DBSETPROP. Prin această functie se pot stabili 
atributele: . 

* transactions, pentru managementul tranzacţiilor, ce poate lua” valorile 1 

(DB_TRANSAUTO din foxpro.h) sau 2 (DB_TRANSMANUAL din foxpro.h); 
* asynchronous, pentru care valoarea .f. specifică o conexiune sincronă, iar 
„t. una asincronă; 


°  batchmode, care setat pe .t. indică o conexiune care lucrează în modul batch. 


16.4. Actualizarea tabelelor din baza de date gestionată 
de către serverul Oracle | 


Pentru a regăsi/interoga sau modifica datele stocate în tabelele relaționale ale serverului 
Oracle se poate apela la două mecanisme: primul se bazează pe tabele derivate la distanță — 
remote data view, iar cea de-a doua pe dialogul SOL Pass-Through, care oferă flexibilitatea 


unui aS mai intim asupra canalului și structurilor de date prin care se face legătura cu 
serverul. 
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16.4.1. Tabele derivate la distanță 


O tabelă derivată, așa cum am descris în capitolul 9, reprezintă un tip de tabelă care se 
bazează pe o frază SELECT-SQL care se execută în momentul matarializării acesteia. Prin 
urmare, în cazul unui remote view, tabelele de bază sunt stocate în altă bază de date decât 
cea în care este definită, materializarea ei (adică regăsirea înregistrărilor provenind din baza 
de date sursă) realizându-se prin execuția frazei SELECT-SOL asociate folosind un canal 
ODBC, accesibil în VFP prin intermediul obiectelor de tip CONNECTION. 

Pentru exemplificare, creăm o tabelă derivată denumită VPERSOANE prin care în VFP 
se vizualizează şi (mai ales) actualizează tabela PERSOANE din Oracle. În listingul 16.6 
este prezentat programul de configurare a tabelei derivate la distanță, asemănătoare celor 
pentru tabelele derivate locale (vezi capitolul 9). 


Listing 16.6. Crearea tabelei derivate la distanță VMATERIALE 


“= Creare REMOTE VIEW pentru tabela Vinzari. PERSOANE 
**** de pe serverul Oracle 
include foxpro.h 
CREATE SQL VIEW vPersoane CONNECTION OraVinzari ; 
AS SELECT * FROM Persoane 


"+ =DBSETPROP('vPersoane',View'"Tables' 'Persoane') 
=DBSETPROP(vPersoane.CNP',Field' 'nuyField',.T.) 
=DBSETPROP(vPersoane.CNP',Field''Updatable',.T.) 


=DBSETPROP(vPersoane.nume',Field''Updatable',.T.) 

` 2DBSETPROP(vPersoane.prenume'Field''Updatable',.T.) 

: sDBSETPROP('vPersoane.adresa',Field''Updatable',.Ț.) 
=D8SETPROP('vPersoane.codpost','Field''Updatable',.T.) 
=DBSETPROP(vPersoane .emai!',Field''Updatable', T.) 
=DBSETPROP('vPersoana.sex',Field','Updatable',.T.) 
=DBSETPROP('vPersoane telacasa'Field''Updatable',.T.) 
=DBSETPROP('vPersoane telbirou','Field''Updatable',.T.) 
=>DBSETPROP(vPersoane.telmobil','Field','Updatable',.T.) 


=DBSETPROP('vPersoane', View 'UpdateType',DB_UPDATE) 
=DBSETPROP('vPersoane',View,'WhereType', DB_KEYANDMODIFIED) 


=DSSETPROP(vPersoane', View, SendUpdates".T.) 


Parametrului WhereType i-a fost atribuită valoarea DB_KEYANDMODIFIED, Aceasta 
înseamnă că, la „comiterea” bufferului în tabela-sursă, se verifică dacă, între timp, au fost 
modificate de la altă stație de lucru atributul (atributele) din cheia primară şi atributele 
modificate local. Dacă da, se declanşează eroarea Update conflict. 

Observaţie: Mai toate valorile din WhereType funcționează rezonabil (în 

general!), nu însă și DB_KEYANDUPDATABLE. Această valoare face ca în mai toate 

momentele de actualizare a tabelei la distanță să se declanşeze Update conflict, 

Nu am găsit o explicație logică pentru acest comportament, mai ales că pentru o parte 

din liniile modificate local, eroarea nu se declanşează ! ` 

Toate proprietățile tabelei derivate sunt memorate în dicționarul (containerul) BD. 


Deschiderea şi deci materializarea ei se realizează obişnuit prin comanda: 
USE vMateriale IN O a 


Caracter. Starea curentă SQL ODBC 
Ec ANNEI 


Aplicaţii VFP cu servere de baze de dale 543 


O atenție deosebită merită însă modul de propagare a modificărilor operate în tabela 
derivată către tabela-mamă din Oracle. În mod obişnuit, o tabelă derivată la distanță 
prezintă un mod de lucru de tip Optimistic Row Buffering. Aceasta înseamnă că 
modificarea unei linii se „comite” în tabela de bază atunci când pointerul VFP al tabelei 
derivate se poziţionează pe o altă înregistrare sau la execuţia funcției TABLEUPDATE (). 

Pe de altă parte, actualizarea tabelei derivate pe baza modificărilor de ultim moment 
apărute în BD Oracle se realizează prin funcția REQUERY (). 

În dezvoltarea aplicaţiilor este necesară preluarea şi tratarea erorilor provocate de către 
tabela derivată bazei de date Oracle. Figura 16.6 ilustrează un caz de violare (prin 
VPERSOANE) a cheii primare aparținând tabelei PERSOANE, ` . 


fee Voren TEE 


Enp 


Prenume Adiesa 


Connacitivity error, [Oracle DOBCIDra! ORA 00001; unique | 
constraint (VINZARI SYS C0904223) violated Fi 


eet. d Heo i 


Figura 16.6. Semnalizarea violării cheii primare 


Valoarea care se repetă pentru câmpul CNP este CNP1. Din mesajul afişat se poate 
observa codul Oracle al erorii (-00001). Problema este: cum preluăm într-o aplicaţie 
VFP, în partea sa de client, acest mesaj şi cum rezolvăm problema fără combinaţia 
salvatoare CTRL+ALT+DEL? 

Soluția vine de la funcţia AERROR (). Aceasta plasează într-un vector cu numele indicat 
informaţii despre ultima eroare produsă. Pentru erorile ODBC, fiecare component al 
masivului este descris în tabelul 16.1 4 


Tabelul 16.1. Descrierea informaţiilor obținute prin funcția AERROR () 


Component [ip sicontinut II 


Numeric. Conţine valoarea 1526 (Connectivity error....), 


indiferent de cauza erorii ODBC 


Caracter. Textul mesajului de eroare - 
Caracter. Textul mesajului de eroare ODBC 


Numeric. Numărul erorii preluat de la sursa ODBC 
Numeric. Numărul conexiunii ODBC l 


Dacă, de exemplu, la editarea tabelei derivate VPERSOANE, numele unei persoane va 
începe cu literă mică, în momentul comiterii modificării se generează o eroare care, preluată 
prin funcţia =AERROR (vErr), iniţializează masivul vErr, după cum este prezenat în 
tabelul 16.2: 
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Tabelul 16.2. Descrierea conţinutului masivului vEr x 


Componenta 
vErr 


vErr(2) Connectivity error: [Oracie][ODBCJ[OraJORA-02290: check constraint 
VINZARI.SYS_C004219) violated 
vErr(3) [OracleJ[ODBCIJOraJORA-02290: check constraint 


VINZARI.SYS_C004219) violated 


În baza de date Oracle a fost definită, pentru atributul Nume din tabela PERSOANE, o 
restricție (prin clauza CHECK nume=LTRIM (INITCAP (nume) ) prin care valorile 
acestui atribut trebuie să fie şiruri de caractere care încep cu majusculă, fără spaţii la 
început. Eroarea Oracle declanșată la încălcarea acestei restricții are numărul 2290 
(check constraint violated). 


16.4.2. Tehnogia SQL Pass-T, rough — SPT 


Cea de-a doua modalitate de a lega aplicații VFP la servere de baze de date o constituie 
tehnologia SOL Pass-Trough (SPT). . 

Dezavantajul, prin comparație cu tabelele derivate la distanță, ține de faptul că efortul de 
codare este mult mai mare. Fiecare operațiune prezintă funcții şi comenzi destul de 
laborioase. În plus, după cum am văzut, tabela derivată poate fi legată direct la controalele 
unui formular, propagarea modificărilor făcându-se automat, în timp ce în SPT orice 
actualizare trebuie operată explicit. 

Avantajul net ține de flexibilitate. Dacă în cazul tabelelor derivate doar triggerele Oracle 
puteau fi declanşate prin modificarea datelor (şi, automat, propagarea modificărilor în 
tabelele serverului BD), utilizând SPT, nu numai că gestiunea conexiunii VFP-Oracle este 
una miult mai analitică, dar se poate invoca explicit orice procedură stocată Oracle şi chiar 
pot fi utilizate comenzi DDL. De asemenea, există posibilitatea controlului „manua!” al 
tranzacţiilor serverului. l 

Interogările SPT creează implicit un cursor (o copie neactualizabilă a datelor extrase din 
BD Oracle). Cursorul poate fi făcut actualizabil prin setarea parametrilor cu ajutorul 
funcției CURSORSETPROP (9. ; =z 


Stabirea conexiunii 

Ca și în cazul tabelelor derivate la distanță, mai întâi este necesară stabilirea unei 
conexiuni ODBC. Legarea de BD Oracle se realizează prin funcţia SOLCONNECT () sau 
SOLSTRINGCONNECT (). Prin SOLCONNECT () fără argumente se afişează o fereastră de 
dialog prin care utilizatorul îşi poate alege una dintre sursele de date. 
SOLDISCONNECT () dezactivează conexiunea cu BD aflată pe server. În exemplul 
următor, variabila nrConexiune va conţine numărul conexiunii stabilite (mai mare decât 


DIE 
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zero). Atunci când legătura nu poate fi stabilită, valoarea nrConexiune este mai mică 
decât 1, 


nrConexiune = SQLCONNECT(OraVinzari”) 
IF nrConexiune < 1 
=MESSAGEBOX(“Conexiune esuata”,0.” Rezultat tentativa”) 
RETURN 
(ENDIF 


Interogarea BD şi apelul procedurilor stocate Oracle 

Pentru a accesa date aflate pe serverul BD. este necesară declararea unui 
canal/magistrală (traducere aproximativă a lui handle) pentru conexiunea activă. O dată 
stabilită legătura, prin funcţia SQLEXEC 0), din VFP pot fi lansate comenzi Oracle DML şi 
DDL şi pot fi apelate proceduri stocate. În miniexemplu! următor, din VFP, prin fraza 
SELECT se interoghează tabela Oracle PERSOANE. 


vSucces = SQLEXEC(nrCGonexiune, ‘select * from Persoane”, 'cPersoane') 
IF vSucces > 0 
SELECT cPersoane 
BROWSE 
ELSE 

=MESSAGEBOX('Interogare fara rezuitat "0," Rezultatul interogarii °) 
ENDIF 


Variabila vSucces va conține numărul de seturi de rezultate furnizat de serverul BD 
(în mod obişnuit 1) sau 0, dacă funcţia este încă în curs de execuţie. Setul de rezultate 
furnizat de Oracle va deveni în VFP un cursor denumit CPERSOANE. 

in dezvoltarea aplicațiilor, pentru optimizarea traficului pe rețea, deosebit de important 
este ca interogările să fie parametrizate. Exemplu: 


CodPost_ = 6800 
vSucces = SQLEXEC(nrConexiune, SELECT * FROM Persoane WHERE codpost = ?codpost_! 
„; 'CPersoane) 
SELE cPersoane 
BROWSE 


Variabila-parametru codpost_ este folosită pentru a extrage din tabela Oracle 
PERSOANE numai înregistrările persoanelor din localitatea având codul poştal 6600. 
Fireşte, această variabilă poate fi utilizată în formular pentru ca în grid-uri, combo-box-uri etc. 
să fie afişate un minim de date, deci fără aglomerarea reţelei. i 

Invocarea unei proceduri stocate de pe serverul BD este una dintre cele mai importante 
facilități ale tehnologiei SPT prin comparație cu tabelele derivate la distanță, Să 
presupunem că dorim să efectuăm operațiuni de ştergere înregistrări din tabela PERSOANE 
aflată în BD Oracle nu prin intermediul unei tabele derivate la distanță sau trimițând 
comanda DELETE-SQL, printr-un dialog SPT, ci invocând o procedură stocată care va fi 
executată pe serverul Oracle. În listingul 16.7 este prezentată comanda pentru crearea 
acestei proceduri stocate, comandă ce poate fi executată din utilitarul SOQL*Plus, 
bineînţeles, după ce în prealabil ne-am conectat la schema Vinzari, 
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Listing 16.7. Procedura stocată din BD Oracle pentru ştergere înregistrări 
din tabela PERSOANE 
CZE 0 aana aratata 


CREATE OR REPLACE 
Procedure STERG_PERSOANA 
(pCNP IN CHAR, pRezultat OUT VARCHAR2) 
IS 
violare_fk exception; 
v_client number; 
pragma exception_init(violare_fk, -02292); 
BEGIN 
DELETE FROM Persoane WHERE CNP = pCNP; 
pRezultat := 'Succes'; 
EXCEPTION 
WHEN violare_fk THEN 
SELECT codel INTO v_client FROM PersClienti WHERE CNP = pCNP; 
DELETE FROM PersClienti WHERE CNP = pCNP; 
DELETE FROM Persoane WHERE CNP = pCNP; 
pRezultat := 'A fost stearsa persoana de contact pentru clientul 'j|v_ciient; 
WHEN OTHERS THEN 
pRezultat := 'Insucces'; 
|___END; -- Procedure STERG PERSOANA 


Prin procedura Sterg_ Persoana se va încerca îndepărtarea din BD a înregistrării a 
cărei CNP este primit ca parametru. În cazul în care se constată violarea restricției 
referenţiale dintre tabelele PERSOANE şi PERSCLIENTI, se şterge mai întâi înregistrarea- 
-copil corespunzătoare. 

Invocarea unei proceduri stocate se face în mod obişnuit în felul următor: 

=SOLEXEC (nrConexiune, "BEGIN nume_procedura_ stocată; END;") 

Cu alte cuvinte, transmitem serverului Oracle un bloc PL/SQL anonim în care este 
apelată procedura stocată dorită, 

O problemă ridicată de apelul procedurilor şi funcţiilor stocate Oracle o constituie 
transmiterea parametrilor și preluarea rezultatelor returnate de funcţii. Procedura creată prin 
listingul anterior are un parametru de intrare pCNP, prin care se transmite CNP-ul persoanei 
care urmează să fie ştearsă, și un parametru pRezultat din care putem deduce ce a reuşit 
să realizeze serverul Oracle ca urmare a apeluiui nostru. În listingul 16.8 este exemplificat 
apelul procedurii stocate Sterg_Clienti, ținând seama de parametrii acesteia, 


Listing 16.8. Invocarea unei proceduri stocate Oracle cu parametri de intrare 


nrConexiune = SQLCONNECT('OraVinzari) 

IF nrConexiune < 1 
=MESSAGEBOX("Conexiune esuata",0," Rezultat tentativa") 
RETURN 

ENDIF 


** preluarea valorilor variabilelor-parametri ai procedurii Oracle 
vCNP = 'CNP1' 
vRezultat = 'Incert' 
nRezultat = SQLEXEC(nrConexiune,"BEGIN sterg_persoana(7vCNP, ?OvRezultat) ; END ;" 
IF nRezultat < O 
* operatiune esuata 
messagebox('Probiema'”) 
DIME vEroare(1,1) 


=AERROR(vEroare) i J 
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* secventa de tratare a erorii 


ELSE 
Messagebox(vRezultat) 
ENDIF 


=SQLDISCONNECT(nrConexiune) 

nrConexiune = SQLCONNECT('OraVinzari') 

IF nrConexiune < 1 
=M i; r i Aiton ntre fa : 
aN GEPON, Conexiunea n-a mai putut fi restabilita !",0," Rezultat tentativa”) 

ENDIF 

=SQLEXEC(nrConexiune, SELECT * FROM P: A i 

a ma aE ersoane' ,cPersoane) 

browse 


Variabila vCNP a fost inițializată în programul VFP având ca scop transmiterea valorii 
CNP-ului vizat procedurii stocate de pe serverul Oracle prin intermediul apelului 
SQLEXEC (). De asemenea, rolul variabilei vRezultat a fost de a prelua valoarea 
parametrului de ieşire al procedurii Sterg Clienti. Fireşte că, în aplicații, astfel de 
variabile pot fi legate la controale ale formularelor VFP. Este posibil ca execuţia ea Pa 
să se soldeze cu erori din partea BD Oracle. Un prim indiciu în acest sens îl reprezintă 
variabila nRezultat. Dacă în urma execuţiei SQLEXEC, nRezultat este —1, înseamnă 
că există o eroare. Preluarea erorii în vederea tratării se realizează prin funcţia AERROR Q 

SQLDI SCONECT () şi secvența care o urmează au drept scop reîmprospătarea 
cursorului. Reţineţi sintaxa folosită pentru a transmite valoarea unei variabile locale în 
apelul unei proceduri stocate (?nume_ variabilă) şi pentru preluarea valorii returnate 
de o procedură stocată printr-un parametru de ieşire (?@nume variabilă), 

Un interes aparte îl prezintă şi preluarea în variabile Fox a rezultatului unei funcţii PL/SQL 
Pentru ilustrare, creăm o funcție denumită Tel PersContact Client. Această functie 
are trei parametri de intrare prin care se precizează codul clientului funcția persoanei de 
contact, iar în la treilea se va prelua numele acesteia. Scopul este de a returna informații 
prin care poate fi contactată persoana de legătură cu un anumit client (vezi listingul 16.9). 


Listing 16.9. Comanda pentru crearea funcției Tel_PersContact_Client 


CREATE OR REPLACE 
a TEL_PERSCONTACT_CLIENT 
pCodC! IN NUMBER, pFunctie IN VARCHA 
AER EAT R2, pNume OUT VARCHAR2) 
IS o 
vTelefon VARCHAR2(100); 
BEGIN 
SELECT 'Acasa'||[DECODE{(telacasa, NULL, 'Necun j 
SELEC > A E oscut', telacasa 
sBirou:|IDECODE(telbirou, NULL, 'Necunoscut', telbirou)|| i 
;Mobil:'||DECODE(teimobii, NULL, 'Necunoscut', teimobil) 
Nume!!' '!|Prenume 
INTO vtelefon, pNume 
Fei ne p. persciienti c 
p.enp = c.enp and c.codel = pCodci ie = ie; 
RETINA aia p and c.functie = pFunctie; 
EXCEPTION 
WHEN NO_DATA_FOUND THEN 
RETURN 'No contact; 
END; — Function CONTACT_CLIENT 


/ 
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Apelul şi preluarea rezultatului returnat de această funcţie se realizează după cum este 
prezentat în listingul 16.10. 


Listing 16.10 


nrConexiune = SQLCONNECT('OraVinzari”) 

IF nrConexiune < 1 | 
=MESSAGEBOX('Conexiune esuata”,0,” Rezultat tentativa”) 
return 

ENDIF EI 

v_telcontact= " && initializam "manual!" variabilele 

y_codel = 1002 

v_functie = 'Director genera! 

v_nume =" 

sir _="DECLARE "+; 

"R VARCHAR2(100); "+; 

"N VARCHAR2(41); "+; 
"BEGIN "+; f A 
" 2@yv_telcontact := TEL_PERSCONTACT_CLIENT(?v_codci, ?v_functie, ?@v_nume); 
"END; 

nRezultat=SQLEXEC(NrConexiune, sir) 

IF nRezultat < O 
* operatiune esuata 
messagebox(eRR') 
dime vEroare(1,1) 
=aerror(vEroare) 


* secventa de tratare a erorii 
á 


ELSE 

* operatiune reusita 

messagebox{v_nume + CHR(13) + v_telcontact) 
ENDIF E 


Funcția VFP SQLEXEC (), ce realizează invocarea funcției Oracle, conține un minibloc 
PL/SQL. Pentru claritate, am compus şirul de caractere care va fi transmis serverului Oracle 
prin intermediul variabilei sir_. Esenţială în preluarea rezultatului din Oracle este 
variabila v_telcontact, ce trebuie musai prefixată de ambele caractere, 26. E 


16.4.3. Cursoare actualizabile 


În dezvoltarea aplicaţiilor VFP-Oracle, dincolo de invocarea procedurilor şi funcţiilor 
stocate pe server, important este şi modul de propagare a modificărilor operate. în 
tabelele/cursoarele VFP în baza de date aflată pe server, Un cursor obținut printr-un 
SELECT trimis serverului Oracle prin SQLEXEC () poate fi declarat ca modificabil într-o 
manieră nu cu mult deosebită de tabelele derivate. Setarea parametrilor de actualizare se 
face nu prin DBSETPROP (), ci prin CURSORSETPROP (). SRI: 

Spre deosebire de tabelele derivate la distanţă, definiţia cursoarelor actualizabile nu este 
stocată în dicţionarul (containerul) bazei de date, astfel încât programul de creare/setare 
trebuie executat la fiecare deschidere a cursorului. | 

În listingul 16.11, cursorul VFP CPERSOANE obținut din tabela Oracle PERSOANE este 


declarat actualizabil. 
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Listing 16.11. Crearea unui cursor VFP actualizabil 


1m Creare cursor actualizabil pentru tabela Vinzari. PERSOANE 
“= de pe serverul Oracle 
include foxpro.h 


nrConexiune = SQLCONNECT('OraVinzari') 
IF nrConexiune < 1 
=MESSAGEBOX("Conexiune esuata",0,"Abandon”) 
RETURN 
ENDIF 
IF used('cpersoane') 
sele cpersoane 
use 
endif 
Succes = SQLEXEC(nrConexiune, 'SELECT * FROM Persoane’, 'cPersoane”) 
if vSucces < 1 
=MESSAGEBOX("Interogare fara rezultat "0," Rezultatul interogarii ”) 
RETURN 
endif 


SET MULȚILOCKS ON 

* pentru cursor se declara bufferingul 

* de tip ROW OPTIMISTIC 

=CURSORSETPROP("Buffering",3,"cPersoane") 

=CURSORSETPROP(Tables',Persoane','cPersoane’) 

=CURSORSETPROP('KeyFieldList "CNP" 'cPersoane') 

>CURSORSETPROP('UpdatableFieldL ist, 'CNP,Nume, Prenume, Adresa, CodPost,; 
email,sex.telacasa.telbirou telmobit 'cPersoane") 

* maparea atributelor cursorului la atributele tabelei de baza 

=CURSORSETPROP('UpdateNamaList' 'CNP Persoane.CNP,Nume Persoane.Nume,; 

Prenume Persoane. Prenume, Adresa Persoane.Adresa, CodPost Persoane.CodPost,; 

email Persoane email, sex Persoane.sex, telacasa Persoane telacasa, telbirou Persoane telbirou,; 

telmobil Persoane.telmobir,'cPersoane') $ 

=CURSORSETPROP('WhereType',DB_KEY, 'cPersoana') 

=CURSORSETPROP('Sendupdates',.T. "cPersoane') 

=CURSORSETPROP('UpdateType',DB UPDATE 'cPersoane') 


Din momentul declarării şi editării cursorului, modificările operate vor fi propagate 
automat în baza de date de pe server. Rămâne de rezolvat problema reîmprospătării lui, 
pentru a vizualiza și modificările operate de alți utilizatori. Cum, pentru cursoare, funcţia 
REQUERIY () nu funcţionează, cel mai simplu mod de refresh este recrearea, de fiecare dată 
când se doreşte reîmprospătarea, a CPERSOANE, prin execuţia procedurii din listingul 16.7 
(grijă la închiderea conexiunii şi redeschiderea canalului), 


16.5. Formulare VFP — accesul şi modificarea datelor 
aflate pe serverul Oracle 


În ultima etapă de conversie/migrare a aplicaţiei din VFP în Oracle problemele cele mai 
deosebite le ridică formularele. 

Pentru a „convinge” un formular VFP să lucreze corect cu datele stocate în tabelele 
Oracle, acesta trebuie supus unui proces de transformare în mai mulţi paşi: în primul rând, 
definirea sau redefinirea mecanismelor de acces la înregistrările din tabela (tabelele) de 
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i sei biectele de acces la 
ă acum stocate pe serverul Oracle, redefinirea sursei datelor ide pi i 
$ TA ə a aya a 
A n formularului (căsuţele de text, listele combinate, AA Eu tal e 
ya irea mecanismelor de navigare pe înregistrările accesebile Tea a a 
$ A a g 5 pc î 
ide ie de control al operaţiilor de actualizare arsi modi sea E 
Pe ; i erațiile neinchei 4 : 
i iS ratare a erorilor peniru opera! a i 
definirea unui mecanism de tratare a e ai ati Sl te ate apte A ORI 
l i m recurs rr i 
Pentru exemplificare, a A 
capitolul 8, subcapitolul 8.2. Acesta va fi transformat după cur 
1) Sursa de date a formularului: 


j n i aP 
e Dacă se lucrează cu inecat dl T a aa tă 
coasă, iar în loc 
date locală VFP) va fi scoasă, 


Dacă tabe ele de bază sunt gestionate în m etoda oada formularului, atunci in 
: 
> 
codul-sursă al acesteia va fi specificată instrucțiunea USE pentru deschider ea tabelei 


ER A 
derivate la distanță VPERSOANE (vezi listingul 16.12). 


Listing 16.12. Metoda Load a formularului FrmPersoare 


ERSOANE (din baza de 


a aaa ae aa aaa emana mmm 


** Metoda FrmPersoane.LOAD E ROTE N 
LOCAL nrGonexiune, D aa 
BUSED('vinzari' A 

i POREN DATARE "aplicatiedatabasetwinzari” SHARED 
ENDIF l 
Jax chid tabela derivata VPersoane care 
tii ris legatura cu tabela Persoane de pe serverul ORACL 
IF JUSED('vpersoane') 

use vpersoane in 0 
ENDIF 


"+ Creez cheia de navigare necesară pentru indexare 
select vpersoane i0 
for i=1 to tagcount) | 
if ALLT(UPPER(tag(i))) = 'CNP 
exista_tag = Lt. 
endif 
endfor 
if lexista_tag 
index on cnp tag cnp 
endif 


*** Stabilesc sursa de date pentru cboCodPost 


select vpersoane II : 
; l = A lea i fi judet,codpost from localitati |„judete j; 
; n ; , 
vSucces = SQLEXEC(nrConexiune, 


where [.Jud=j.jud order by ioc", "erslocalitati”) 


s<0 T cai E 
a oE Nu s-a reusit popularea listei de localitati !!') 


return „f. 
endif 


“x Stabilesc sursa datelor pentru cboPersoana 


i ""urtri i nume)),; 
S s = SQLEXEC(nrConexiune, "select rtrim(itrim(nume))||' 'lirtrim(ltrim{pre 
vSucces = 


Wa ersoane" 
cnp from persoane order by nume, prenume”, crsp ) 


ir tat 


i 
Ei 


su iii toi 
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IF vsucces<0 
messagebox('Eroare! Nu s-a reusit popularea listei de persoane Ir) 
return f. 
endif _] 


2) Sursele de date Pentru obiectele de acces: 


e Pentru căsuțele de text txtCNP, txtNume, txtPrenume, txtAdresa, 
txtTelacasa, txtTelmobil, txtTelbirou, txtEmail proprietățile 
Control Source vor avea valorile: VPersoane. CNP, VPersoane. Nume, 
VPersoane. Prenume, VPersoane. Adresa, 


VPersoane.Telacasa, 
VPersoane, Telmobil, VPersoane „Email. 


e Pentru lista combinată cboPersoana, proprietatea RowSourceType va avea 
valoarea Alias, iar RowSource va avea valoarea crsPersoane. La fel şi 
pentru lista combinată cboCodPost: RowSourceType = Alias, iar 
RowSource = erslocalităţi. Cele două cursoare se formează în metoda 
Load a formularului ca urmare a execuţiei comenzilor SQLEXEC ce invocă frazele 
SELECT-SQL corespunzătoare (Vezi listingul 16.12). Pentru execuția acestor 
interogări am folosit același canal-conexiune ca şi cel utilizat pentru deschiderea 
tabelei derivate VPERSOANE, canal al cărui număr l-am aflat citind proprietatea 
ConnectHandle a cursorului acesteia, 

e Gestiunea grupului de butoane-radio OptGrupSex, care redă şi modifică 


informaţia din câmpul Sex, implică modificarea metodelor Refresh şi 
InteractiveChange (vezi listingul 16.13). 


Listing 16.13. Metodele controlului optGrupsex 


IF vpersoane sex='B' 
THIS.binB VALUE=1 
THIS.btnF. VALUE=Q 

ELSE 
THIS.btnB.VALUE=0 
THIS.btnF.VALUE=1 

ENDIF 


* 


** Metoda OptGrupSex. interactiveChange 


IF THIS.btnB.VALUE=1 


REPLACE vPERSOANE SEX WITH 'B' 
ELSE 


REPLACE vPERSOANE.SEX WITH 'F' 
ENDIF i 


° Navigarea în formularul FrmPersoane se realizează prin intermediul listei 
cboPersoane şi butoanelor de navigare din grupul CmdGrupNavigare (care 
însă se folosesc tot de comportamentul asociat listei cho Persoane). Acest contro 
invocă în metoda InteractivChange comanda SEEK pentru sincronizarea 
tabelei de bază. Comanda SEEK se bazează pe o cheie ce aparținea inițial tabelei 
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PERSOANE din baza de date VFP. Cum indecşii din Oracle nu pot fi invocaţi în 
astfel de operaţiuni, soluția pe care am putea-o folosi ar fi facilitatea VFP de a 
defini chei de indexare şi pentru tabele derivate. Aşa se explică prezenţa comenzii 
INDEX ON din metoda Load a formularului (vezi listingu! 16.12). 


3) Mecanismul tranzacţional (BEGIN TRANSACTION .. END TRANSACTION) şi. 


operaţiile de inserare/modificare/ştergere, controlate prin butoanele corespunzătoare, 
rămân în linii mari aceleaşi, dar cu următorul amendament: în metodele click — 
pentru butonul cmdOk și Destroy — de la nivelul formularului (vezi listingul 16.14) 
vom invoca, în scopul trimiterii modificărilor de pe clientul VEP pe serverul Oracle, 
o metodă nouă, definită de noi, şi anume Scrie Buffer (vezi listingul 16.15). 


Listing 16.14. Metodele cmdOk. click şi FrmPersoane.Destroy 


* 


” Metoda cmdOK.Click 
END TRANSACTION 

select vpersoane 
thisform,scrie_buffer 
thisform.refresh 


THISFORM.dezactivare 
THISFORM.CBOPERSOANA.REQUERY 
FOR l=1 TO THISFORM.CBOPERSOANA. LISTCOUNȚ 
IF THISFORM.CBOPERSOANA. LIST (1,2)==vpersoane.cnp 
THISFORM.CBOPERSOANA.LISTINDEX=I| 
ENDIF 
ENDFOR 


* 


* Metoda FormPersoane. Destroy 


IF TXNLEVEL()>0 
IF MESSAGEBOX('Salvati ultimele modificari?,32+4,Ultimele modificari nu au fost validate')=6 
END TRANSACTION 
ELSE 
ROLLBACK 
ENDIF 
ENDIF : y 
IF THISFORM.asters=.T. i 
SELECT persoane 
thisform.scrie_buffer 
ENDIF 


» 


i 


Metoda Scrie Buffer încearcă să scrie conţinutul bufferului VFP (înregistrarea 
modificată a tabelei derivate) în tabela PERSOANE din Oracle. Dacă operațiunea reuşeşte, 
variabila a are valoarea TRUE (.T.). În caz contrar, prin funcţia =AERROR (vErr) se 
inițializează masivul vErr cu informaţii despre eroare. Întrucât valorile returnate sunt 
diferite, în funcţie de cauza erorii, este necesară conversia din valori nule şi numerice în 
șiruri de caractere pentru afişare şi stocarea în tabela TEMP — o tabelă utilizată pentru 
jurnalizarea erorilor de acest tip, creată prin comanda 
CREATE TABLE temp (nr INTEGER, text CHAR (250)). 
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Listing 16.15. Metoda Scrie_Buffer 


select vPersoane 
rele all like sir* 
a = tabieupdateţ) 
if la 
=aerror(vErr) 
for i = 3 to 7 && conversia in sir de caractere a 
_ A && ultimelor cinci componentele ale vectorului 
ii=str(,1) 
sir&ii = NVL(vErr(i), "NULL") 
sir_ = sir&ij 
if TYPE("sir_") = "N" 
Sir&ii = str(sir&ii,10) 
endif i 
endfor i 
insert into temp values (1, str(vErr(1),7)) 
insert into temp values (2, vErr(2)) 
insert into temp values (3, sir3) 
insert into temp values (4, sir4) 
insert into temp values (5, sir5) 
insert into temp values (6, sir6) 
insert into temp values (7, sir7) 
do case 
case i eta ii && Update conflict 
Ox('inregistrarea actualizate a fost modificata intre timp d i r 
case vErr(1) = 1526 and vErr(5) = 1 and "PK_PERSOANE” $ vErr(2) iai ct 
messagebox('Se repeta valoarea atributului CNP!) 
case vErr(1) = 1528 and vErr(5) = 1438 
messagebox('Valoarea unui atribut numeric de imi ; 
noss paseste limitele ! 
case vEri(1) = fa and vErr(5) = 2290 and "CK CNP» $ vErr(2) 
messagebox('Codu! numeric personal se scrie fara spatii la i i 
3s patii la inceput ! 
case vErr(1) = 1526 and VErr(5) = 2290 and "CK_ADRESA” $ vErr(2) PE 
messagebox('Prima litera din adresa este obligatoriu majuscula !') 
case vErr(1) = 1526 and vErr(5) = 2290 and "CK_NUME" $ vErr(2) 
messagebox('Prima litera din fiecare cuvint a'+CHR(13)+; 
„numelui este majuscula; "+CHR(13)+; 
restul literelor sunt mici} 
case vErr(1) = 1526 and vErr(5) = 2290 and "CK_PRENUME" $ vErr(2) 
messagebox('Prima litera din fiecare cuvint al+CHR(13)+; 
prenumelui este majuscula; +CHR(13)+; 
restul literelor sunt mici!”) 
case vErr(1) = 1526 and vErr(5) = 2290 and "CK_SEX" $ vErr(2) 
messagebox( Atributul Sex poate avea valorile F (de ia Femeiesc)'+CHR(13)+: 
till sau B (de la Barbatesc) !') 
se vErr(1) = 1526 and vErr(5) = 20015 && extragem mesajul de eroare din 
&& exceptia definita in Oracle 
messagebox(substi 
PL g (subs r(vErr(3),31,65)) 
messagebox('Eroare netratata y 
endcase 
=tablerevert() 
endif 


Incălcarea unei restricții din baza de date va fi prezentată utilizatorului sub forma unui 


mesaj inteligibil (vezi figura 16.7): 
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Figura 16.7. Formularul Frmpersoane accesând tabela PERSOANE : 

de pe serverul Oracle şi tratând o eroare returnată de acesta În versiunea anterioară a pachetului Developer Studio (1997), Microsoft a inclus un 

Conversia rapoart annA instrument pentru realizarea fişierelor de ajutor într-un format compatibil cu sistemul Help 

Oracle este sed Ar sa su î SI Mara li sp stocate pe serverul al Windows 95 (figura 17.1 — cu afişarea fişierelor de asistenţă se ocupă aplicaţia 

capitolul 17.5 anuuzie: atrtietia detalii oalele, aaa SA i ân recomandarea făcută în Winhlp32.exe). Acest instrument, numit Help Workshop (figura 17.2), încă se livrează cu 

multe fraze SELECT-SOL. Ceea ce ar mai aa i z ui să se bazeze pe una sau mai f pachetul Visual Studio. Estè considerat uşor învechit şi de acesa nu vom oferi informaţii 
frazelor SELECT-SQL specifi Sma é cut în acest caz este traducerea - suplimentare asupra modului de utilizare. 

„specifice VFP în sintaxa Oracle (sau 'o sintaxă comună ODBC) şi 
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ia Figura 17.1. Asistenţă on-line (Word 97) în formatul suportat de aplicația Hinh1p32 
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O dată cu lansarea pachetului Visual Studio 6 (1998), a sistemelor de operare Windows 98 
şi Windows 2000, Microsoft a introdus un nou format al documentației, mai apropiat de 
aspectul și capacităţile paginilor Web (vezi figura 17.3). Dacă aţi lucrat până acum cu 
Visual FoxPro, Visual Basic, Visual C++ ori altă aplicație Windows recentă, v-aţi fami- 
liarizat cu navigarea în acest sistem de help. De aceea, nu vom oferi detalii asupra folosirii 
unei astfel de documentaţii, ci asupra modului cum puteți dumneavoastră înşivă să scrieți, 
adnotaţi şi compilaţi una asemănătoare. Vom spune doar că, „responsabil” de afişarea 
help-ului în acest format este programul Hh.exe, care împrumută câte ceva din functio- 
nalitatea browserului Internet Explorer. 


@ OLE gient Test Location: C:\Program Files\Microsoft Visual 
zi OLE Server Test Studioi common Togls 


Figura 17.2. Shortcut-ul pentru lansarea instrumentului Help Workshop 
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* Troubleshooting Installation Problems 


Preparing for Installation 


i îi Before installing Visual FoxPro, you should check the folowing: 


+ Requirements for installing Visual FoxPro 


e Requirements for instaltag the Upsizing Wizard 


Figura 17.3. Asistenţă on-line în noul format HTML Help 


Instrumentul pentru realizarea de documentaţii în acest nou format este numit HTML 
Help Workshop. Deşi nu se instalează implicit o dată cu pachetul Visual Studio, kit-ul 
de instalare se găseşte pe primul CD al acestuia, având numele HTMLHELP . EXE. 

Ultima versiune poate fi obținută şi de pe site-ul firmei Microsoft (figura 17.4). 
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75. 


În ordine, Windows MetaFile (g 


ratică vectorială), Graphics Interchange Format, Joint Picture Experts Group 


z Plasma Network Graphics ~ formate grafice uzuale în paginile Web 
„ Audio Video Interleave — format pentru animație (inclusiv filme). 
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HTML Help Workshop are şi capacitatea de a converti fişiere help din formatul vechi 
în cel nou, tip HTML. 


17.2. Cum se utilizează HTML Help Workshop ? 


La lansarea programului HTML Help Workshop, pe ecran se afişează fereastra din 
figura 17.5. Primul pas în realizarea unui sistem de ajutor interactiv este crearea unui 
proiect, care joacă rolul de catalog pentru fişierele de diferite categorii ce contribuie la 
crearea produsului final. Operația se lansează prin intermediul meniului Fi le—New. Se va 
afişa o fereastră cu câteva opțiuni, din care se alege Project. 


Dl] ls a 


c7 


Figura 17.5. Aspectul ecranului la lansarea aplicaţiei HTML Help Workshop 


Pot exista următoarele categorii de fişiere necesare pentru a crea un sistem de ajutor 

pentru o aplicaţie: : 

ə  fişierul-proiect (are extensia .hhp) — este fişierul principal; 

ə fişiere cu subiecte (topic files): fişiere HTML care descriu în amănunt fiecare 
modul al aplicaţiei pentru care se doreşte documentarea. Pot cuprinde elemente de 
grafică şi legături spre alte fişiere (HTML sau non-HTML), porțiuni de fişiere HTML 
(indicate cu bookma rk-uri) sau spre locații pe Web; 

e fişiere grafice, multimedia etc., în cazul în care se intenționează apelarea lor din 
fişierele de subiecte; 

e fişiere tip cuprins sau tablă de materii (contents), care organizează subiectele pe 
categorii; sunt facultative şi au extensia .hhc; ` 

ə fişiere tip index, care permit afișarea ordonată a subiectelor şi localizarea lor după 
cuvinte-cheie; sunt facultative; au extensia . nhk, 

După realizarea şi înglobarea într-un proiect a acestor categorii de fişiere, acesta se 

compilează, obținându-se un nou fişier cu extensia . chm. Acesta este singurul care trebuie 
distribuit împreună cu aplicația pentru care a fost creat. 


Notă. Dacă fişierele de subiecte apelează programe externe ori alt fel de fişiere 
(sunete, animații etc.), vor trebui distribuite şi acestea. 
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A iti la situația în care tocmai am optat pentru crearea unui nou fişier-proiect. Un 
ii (asistent) ne va propune stabilirea unui nume pentru proiect (figura 17.6) 


D a ogul surprins în figura l 7.7 propune ataşar ea unor fişiere de tip subiect, conținut sau 
index, dacă au fost create în prealabil 
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Figura 17.7. Opţiunea pentru includerea unor fişiere deja creaie 


Dacă nu există fişi TML ori di ii 
şiere HTML ori din celelalte categorii, acestea vor putea fi inserate ulterior. 


17.2.1. Crearea fişierelor de subiecte (conţinut) 


i Înainte de a crea fişierele de subiecte, este recomandabilă 
(„hartă”) a aplicaţiei ce va fi documentată. Spre exemplu, se poate ţine seama de optiuni! 
importante din meniul acesteia, Se creează câte un fişier HTML pentru fiecare s sua e 
cum Yom proceda în continuare) sau un fişier comun mai multor subiecte pe tă 
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Figura 17.8. Crearea unui fişier de subiecte (HTML) 
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Figura 17.9. Microsoft Word ca editor HTML 


De remarcat că editorul HTML încorporat lucrează în mod text, necesitând câteva 
cunoştinţe privind limbajul HTML (informaţii de ajutor sunt oferite chiar în Help—>HTML 
Tag Reference). Se poate însă folosi orice instrument extern care poate salva 
documente în format HTML; majoritatea instrumentelor dedicate HTML permit lucrul în 
manieră vizuală. Exemplele de faţă au fost realizate cu Microsoft Word 97 SR-177 (patch-ul 
SR-1 se poate obţine prin download de la http;//office.microsoft.com/Assistance/ 
9798/sr4howtoast.aspx). Varianta fără SR-! are unele probleme la salvarea în format 


HTML, 
Întrucât prezentul material are un rol demonstrativ şi nu se intenționează crearea unui 


sistem de ajutor complet pentru o aplicaţie, au fost ataşate doar trei fişiere HTML: 

e unul care foloseşte şi ca pagină de prezentare a aplicaţiei” (startpage.htm); 

e unul pentru informaţii cu privire la formularul de consultare a facturilor (vezi capitolul 10); 
e unul pentru informaţii cu privire la formularul de întocmire a facturilor (vezi capitolul 10). 

Ultimele două fişiere cuprind şi imagini ale formularelor în curs de execuție, obținute 
prin aşa-numitele „capturi de ecran”. Pentru acestea trebuie folosit un program special. 
Livrat şi instalat o dată cu HTML Help Workshop, programul HTML Help Image Editor 
poate fi apelat cu opțiunea Tools=HTML Help Image Editor sau separat, din 
meniul Start—Programs.... Acest accesoriu permite, printre diferite manipulări şi 
conversii de fişiere grafice, şi captarea conținutului ecranului (ALt+K, apoi deplasare în 
fereastra de „fotografiat” și apăsarea tastei F11; pentru copierea întregului ecran, se 
apasă F12). 

HTML Help Image Editor este un instrument performant, dar nu indispensabil. Astfel, 
se pot utiliza tastele PrintScreen (captează întregul ecran) ori Alt+Print Screen 
(captează fereastra curentă), Ulterior acestei operații, se lansează un program de grafică 
precum Paint şi se execută comanda EditoPaste, În loc de Paint se poate folosi, cu 
rezultate mai bune (recunoaşte mai multe formate grafice), Microsoft Photo Editor (inclus 
în pachetul Office 97). Acest din urmă program are opţiunea Edit—Paste As New 
Image, prin care creează o imagine exact cât captura de mare (spre deosebire de imaginea 


77. Service Release 1. Între timp, este disponibil şi SR-2. 
78. Am convenit ca aplicaţia să se numească „Facturare”. 
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din Pai i iuni ili i i 
r E care are dimensiuni prestabilite), precum și o serie de comenzi ce permit copieri 
ori decupări ale unor porţiuni de imagine. 


a ia ecranelor cu (Alt) PrintScreen nu captează şi săgeata cursorului 
ise-ului. HTML Help Image Editor are opțiune specială pentru aceasta 
(Capture->Preferences-General), 


SE presupunem că am terminat cele trei fişiere în format HTML. Vom reveni la proiectul 
u, in care pentru moment nu s-a adăugat nimic si i să î 
ip ob g mic şi care ar trebui să arate ca în 
Observăm că, de-a lungul laturii stângi 
n că, g urii stângi a ferestrei, se găsesc câteva butoane ă 
roluri le explicăm în continuare (de sus în jos): d 
(1) opțiunile proiectului: 
(2) adăugare/ştergere de fişiere HTML cu subiecte; 
î definiţii de ferestre personalizate pentru afişarea conținutului; 
intrumente pentru interconectarea şi afi i iilor. j 
şarea informaţiilor de a 
numele HTML Help API): iad ale 
(5) vizualizarea fişierelor de conținut, în cod-sursă HTML; 
(6) salvarea fişierului-proiect; 


(7) salvarea şi compilarea fişierului-proiect (se obține fişierul . chm). 


5 a opțiunile proiectului se găsesc şi cele privitoare la limba în care sunt redactate 

şierele de ajutor, precum și la fontul utilizat, de care trebuie să se țină cont la afișarea în 
browser (aţi încărcat vreodată o pagină în rusă sau japoneză fără a avea suportul 
multilingual instalat în sistemul de operare Windows?). În exemplul nostru, am optat ice 


limba română, efectuând i in i 
RA nd un click pe butonul (1). Pasul următor este redat prin intermediul 
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Figura 17.10. Proiect HTML Help Workshop fără fişiere ataşate 
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Figura 17.11. Stabilirea opțiunilor privind limba şi setul de caractere 


Tot din acest dialog se poate stabili şi un titlu pentru fereastra în care se va vizualiza 
mentația, în forma sa finală (Title). | 

i is) fişierelor cu subiecte se face prin acționarea butonului Q), Adad/ Remove 
topic files (vezi figura 17.12). După adăugare, unul dintre respectivele fişiere poate 
fi declarat ca pagină principală a sistemului Help. Aceasta va fi afişată întotdeauna 
automat o dată cu lansarea sistemului de ajutor sau dacă s-a căutat un subiect inexistent 
(vezi mai jos paragrafele Crearea unui cuprins şi Crearea unui index). Pentru aceasta, este 
necesar să ne întoarcem la fereastra de dialog din figura 17.11, caseta Default file, 
unde s-a ales fişierul startpage,htm. 


.) consubfacturi. tm 


Ji 


Figura 17.12. Adăugarea de fişiere cu subiecte 


În acest moment, proiectul cuprinde trei fişiere HTML: startpage „htm, 
intocmfacturi.htm și consultfacturi.htm. Putem recurge la o compilare „de 
probă” a proiectului (butonul (7)). Va rezulta un fişier . chm funcţional (pentru vizualizare, 
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17.2.2. Crearea unui cuprins (Table of Contents) 


Cum se procedează pentru a accesa diferitele capitole (fişiere) ale documentaţiei? Ei 
bine, este nevoie de proiectarea unei „table de materii” (cuprins) pentru sistemul nostru de 
ajutor. În acest scop, se apelează comanda File->New.. şi opțiunea Table of 
Contents. Se va crea un fişier fără titlu, pe care ulterior îl putem salva cu orice nume 
dorim (păstrând însă extensia .hhc). Imediat, vom putea trece în pagina Contents a 
ferestrei ATML Help Workshop. De-a lungul laturii stângi a ferestrei se găsesc câteva 
butoane (vezi figura 17.13), ale căror roluri le explicăm în continuare (de sus în jos): 

(1) opțiunile cuprinsului; 

(2) adăugarea de anteturi (informaţii grafice și textuale cu rol de grupare a subiectelor); 

(5) adăugarea de pagini (link-uri către anumite fişiere de subiecte); 

(4) modificarea paginii/antetului selectat(e); 

(5) ştergerea paginii/antetului selectat(e); 

(6) mutarea paginii/antetului selectat(e) mai sus în ierarhie; 

(7) mutarea paginii/antetului selectat(e) mai jos în ierarhie; 

(8) mutarea paginii/antetului selectate) spre dreapta (un nivel „mai adânc”) în ierarhie; 

(9) mutarea paginii/antetului selectat(e) spre stânga (un nivel „mai general”) în ierarhie: 

(10) afişarea sursei HTML a fişierului de subiecte corespunzător paginii selectate; 

(11) salvarea fişierului de cuprins. 

Vom crea pentru început o pagină cu butonul (2), intitulată Despre “Facturare”, 
iar cu butoanele Add.. respectiv Browse... (vezi figura 17.13, unde deja au fost adăugate 
câteva pagini) vom parcurge structura de directoare până la fişierul StartPage.htm. 
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Figura 17.13. Adăugarea la cuprins a unei referințe de pagină 


79. Altă modalitate: în Windows Explorer, se caută fişierul cu același nume ca proiectul, dar cu extensia . chm, 
şi se lansează prin dublu-click, 
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În continuare, se adaugă un antet — cu butonul (1) — intitulat Operatii. Anteturile se 
vor afişa cu pictogramele unor foldere şi nu trebuie să facă apel la vreo pagină HTML. 

Sub antetul Operatii se adaugă două pagini (cu butonul (3)): 

e Consultare facturi; 

e Intocmire facturi; i 

Lor le corespund documentele ConsultFacturi,htm, respectiv Intocm 
Facturi.htm. Asocierea se realizează după cum s-a explicat mai sus (vezi şi figura 
17.13). Ultimul element pe care-l mai adăugăm în această tablă de materii experimentală 
este un antet intitulat Liste, căruia nu-i vom asocia deocamdată nici o pagină (din acest 
motiv, în fereastra produsului final va fi afișat el însuşi ca o pagină). 
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Figura 17.14. Adăugarea fişierului de cuprins la proiect 


Dacă veţi efectua încă o compilare a proiectului, urmată de vizualizarea fişierului final, 
ar trebui să apară, în stânga ferestrei de vizualizare, cadrul de pagină Contents (figura 
17.15). După cum se observă, antetele sunt afişate ca foldere în manieră Windows Explorer, 
cu posibilitatea expandării/condensării. 


Beyen Facturare 


is) Liste 


Aplicație pentru gestiunea 


Figura 17.15. Sistem de help care posedă cuprins (faza de execuție) 


Livrarea produsului finit 


n 
D 
on 


Notă. Se poate asocia același document HTML oricâtor pagini din cuprins. 
Nu se va omite adăugarea fişierului de cuprins în proiect (figura 17.14). 


Observaţie. În timpul compilării proiectului de he/p, urmăriți mesajele afişate în 
dreapta ferestrei programului HTML Help Workshop (se cere şi specificarea unei căi şi a 
unui nume pentru un fişier-jurnal — . log, în care se scriu mesajele compilatorului). Un 
mesaj precum cel din figura 17.16 semnifică faptul că fişierul compilat este folosit 


undeva (verificaţi dacă nu e deschis sau dacă nu e deschisă o altă aplicație ce face 
referire la el). 


HHC5010: Error: Cannot open "KAAPLICATIE\Help 
\HelpAplicatieFacturare.chm". Compilation stopped. 


Figura 17.16. Proiectul nu poate fi compilat 


17.2.3. Crearea unui index 


O documentație voluminoasă se parcurge mult mai uşor dacă subiectele sale pot fi 
identificate prin unul sau mai multe cuvinte-cheie, stabilite încă în etapa de proiectare a 
sistemului de ajutor. Programul HTML Help Workshop utilizează în acest scop fişierele 
index (au extensia .hhk). 

Crearea fişierului index are loc în mod asemănător cu realizarea fişierului de cuprins 
prezentată în paragraful anterior, şi anume prin File->New... Index, ori pur şi simplu 
prin selecţia paginii Index din partea stângă a ferestrei programului HTML Help 
Workshop. Fişierul se poate salva cu orice nume, importantă fiind extensia , hhk. Un fişier 
index se completează urmând indicațiile din figura 17.17. De-a lungul laturii stângi a 
ferestrei se găsesc câteva butoane, ale căror roluri le explicăm în continuare (de sus în jos): 

(1) proprietăţile indexului; 

(2) inserarea unui cuvânt-cheie; 

(3) modificarea cuvântului-cheie selectat; 

(4) ştergerea cuvântului-cheie selectat; 

(5) mutarea cuvântului-cheie selectat mai sus în ierarhie: 

(6) mutarea cuvântului-cheie selectat mai jos în ierarhie; 

(7) mutarea cuvântului-cheie selectat spre dreapta (un nivel „mai adânc”) în ierarhie; 

(8) mutarea cuvântului-cheie selectat spre stânga (un nivel „mai general”) în ierarhie; 

(9) sortarea cuvintelor-cheie ce corespund aceleiaşi selecţii; 

(10) vizualizarea sursei HTML a fişierului-subiect referit de cuvântul-cheie selectat 
(echivalent cu dublu-click pe cuvântul-cheie selectat); 

(11) salvarea fişierului index. 

Cuvintele-cheie se organizează pe cel puţin două niveluri: principal (general) şi 
secundar (detaliat). De fapt, numărul de paliere depinde de gradul de detaliu urmărit pentru 
explicaţiile furnizate. Pentru „promovarea”, respectiv „retrogradarea” unui cuvânt-cheie se 
utilizează butoanele (7) și (8). Atenţie la folosirea butoanelor (5) şi (8): dacă selecția este un 
cuvânt-cheie de nivel general, e! va fi mutat împreună cn toate cuviotele.chaio conundara 
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i Î inte-cheie secundare 
care îi aparţin (sunt afişate sub el şi mai la dreapta). În plus, aceste cuvinte-cheie seci 
se pot sorta în ordine alfabetică, folosind butonul (10). 
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Figura 17.18. Mai multe subiecte asociate aceluiaşi cuvânt-cheie (faza de execuţie) 


Notă. Se poate asocia acelaşi document HTML oricâtor sc paz aa din pb 
rs. Î i intele-cheie principale: 
ii b anieră se procedează pentru cuvin i scri 
şi invers. În această manier 1 pie ERE 
i TML la care se vor feri cuvin 
referinţe la toate documentele HTM i A . 
â i i i î s-au asociat toate fişierele 
cazul de față, cuvântului-cheie facturi Í ştere ai 
referă la operaţii asupra facturilor (întocmire, si ea DNA n gl A 
final, utilizatorul va avea posibilitatea să aleagă un subiect din mai n p 
asociate aceleiaşi opţiuni (figura 17,18). ; 
Nu se va omite adăugarea fişierului index în proiect (figura 17.19). 
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Figura 17.19, Ataşarea la proiectul sistemului help a unui fişier tip index 


După această operațiune se va compila din nou proiectul şi se va încerca vizualizarea 
produsului final. Dacă lucrurile au decurs fără probleme, fereastra de afişare ar trebui să 


aibă acum, în partea stângă, două cadre de pagină: Contents, respectiv Index (vezi. 
figura 17.18). 


17.2.4. Ataşarea fişierului de help compilat la o aplicație Visual FoxPro 


Ataşarea fişierului compilat la o aplicație Visual FoxPro poate fi considerată o misiune 
destul de uşoară. Orice proiect Visual FoxPro care va fi transformat într-un program 
executabil dispune de o componentă principală, fie ea .prg, „mpr (meniu) ori formular 
„Sex. Pentru ca sistemul de ajutor să fie disponibil pe parcursul întregii aplicaţii, în 
programul principal trebuie inclusă comanda: ` 

SET HELP TO <nume-fişier.chm> 

Ulterior, apelarea informaţiilor de ajutor are loc printr-o simplă comandă HELP. 
Aceasta va lansa în execuţie fişierul specificat, cu afişarea paginii implicite. De exemplu, 
comanda HELP se poate plasa în meniul aplicaţiei. O altă soluţie este scrierea unei comenzi 
ON KEY LABEL F1 HELP, astfel încât sistemul de ajutor să poată fi apelat prin apăsarea 
tastei F1. Există şi varianta comenzii HELP <cuvânt-cheie>, în cazul nostru HELP 
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facturi, pentru afişarea imediată a paginii HTML, care a fost asociată cu respectivul 
cuvânt-cheie. ; 

Nu trebuie omis ca, în modulul de program ce se va executa la ieşirea din aplicație 
(acolo unde de obicei are loc închiderea bazelor de date şi tabelelor, restaurări ale unor 
parametri de mediu etc.), să se plaseze o comandă SET HELP TO, care are rolul 
restabilirii sistemului de help la fişierul .chm implicit pentru Visual FoxPro. Dacă este 
cazul, se va folosi şi comanda ON KEY, pentru a degreva tasta F1 de sarcina afişării 
informaţiilor de ajutor. 

Este bine să efectuăm astfel de teste pentru început în varianta de lucru (necompilată) a 
proiectului . pj x, eventual chiar în fereastra de comenzi. 


17.2.5. Asistenţă „senzitivă la context” 


Majoritatea aplicaţiilor ce rulează sub Windows, atunci când este apăsată tasta F1 
(generalizată ca modalitate de apelare rapidă a sistemului de asistență), reacționează prin 
afişarea diferitor porţiuni ale documentaţiei, corespunzătoare situației de pe ecran (practic, 
poziției în care se află cursorul). 

Într-un mediu de dezvoltare vizual, aşa cum este Visual FoxPro, majoritatea obiectelor 
ce pot fi inserate într-un formular dispun de proprietatea HelpContextID. Această 
proprietate are o valoare implicită ce nu semnifică nimic (în Visual FoxPro, valoarea 0). 
Programatorul poate atribui însă diferite valori numerice acestei proprietăți. Asistenţa 
senzitivă la context va funcţiona în cazul în care valorile stabilite pentru proprietatea 
HelpContextID în cazul diferitelor obiecte ale aplicaţiei corespund unor referințe 
special definite în proiectul realizat cu HTML Help Workshop. 

Aceste referințe sunt nişte numere (pozitive) care desemnează anumite pagini HTML din 
fişierele cu subiecte. În cadrul proiectului help, aceste numere trebuie să fie unice 
(reciproca nu este valabilă, întrucât un singur fişier HTML poate fi referit de mai multe 
numere distincte). Fiecărui număr (greu de ţinut minte) i se asociază însă o combinaţie de 
caractere sugestivă (mnemonică); prin convenție, aceste combinaţii încep cu caracterele 
IDH_, Descrierea lor trebuie să se facă într-un fișier distinct, de tip ASCII, care are 
neapărat extensia .h, după tipicul fişierelor header din C, C++ (sau din Visual FoxPro), şi 
care conţine doar directive #DEFINE. Acest fişier este cunoscut sub denumirea de fişier 
MAP (engl. map = hartă). În cazul nostru (proiectul  HelpAplicatie 
Facturare „hhp), fişierul AplicatieFacturare. h conţine doar următoarele linii: 


4DEFINE IDH_ConsultFacturi 1 //subiectul formularului “Consultare facturi” 
#DEFINE IDH_intocmFacturi 2 //subiectu! formularului "intocmire facturi” 


Cele două caractere „„/” succesive denotă un comentariu, deci compilatorul le va ignora. 
Nu se face distincție între literele mici şi cele mari. 
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Figura 17.20. Ataşarea unui fişier MAP 


După ce se realizează un astfel de fişier de „referințe la context”, el trebuie ataşat 
proiectului kelp (ulterior ataşării, se pot totuşi. adăuga oricâte directive +DEFINE sunt 


necesare, dar proiectul va trebui recompilat de fiecare dată). Ataşarea fişierului MAP se face 
urmând instrucțiunile din figura 17.20. 


Project | Contents ] Index | -- ; 
OPTIONS aa: | 
Ci 


| Text Pop-ups | 


to HTML files: 


ber is passed to F 


— 
z] = -Whenever this constanifor num! 
a 


e 


Figura 17.21. Stabilirea referinţelor la fişiere HTML 
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În continuare, se utilizează cadrul de pagină Alias, spre a întreprinde o asociere între 
constantele din fişierul MAP şi fişierele HTML cu subiecte (vezi figura 17.21). 

Urmează o nouă compilare a proiectului de asistență. Testarea modului de funcționare 
în Visual FoxPro se face, în linii mari, astfel: 

e se deschide o sesiune de lucru Visual FoxPro; 

e în fereastra de comenzi, se execută comanda: 

SET HELP TO “k:\Aplicatie\Help\HelpAplicatieFacturare. chm” 

(sau alt nume de fişier, după caz); 

> se scrie şi execută următoarea comandă: HELP ID 1. 

Ar trebui să apară, în fereastra de vizualizare a informaţiilor de ajutor, pagina HTML 
asociată anterior numărului 1, respectiv mnemonicei IDH_ConsultFacturi. 


Notă. Uneori, fereastra de asistenţă se deschide minimizată, dar clipeşte pe taskbar. 


Dacă testul a reuşit, urmează cuplarea propriu-zisă a „contextului” la formularele din 
aplicaţia Visual FoxPro. Vom începe cu formularul de consultare a facturilor, numit 
frmtree_List.scx. Paşii de parcurs sunt următorii; 

e în metoda Init a formularului, se ataşează sistemul de asistență on-line: 

SET HELP TO “\Aplicatie\Help\HelpAplicatieFacturare. chm” 
e în procedura evenimentului Destroy, scriem: 

SET HELP TO | 
e pe formular se plasează un buton, cu proprietăţile: 

-Caption: Help i 

 —HelpContextID: 1 

- Name: cmdHelp 
e în procedura evenimentului Click pentru butonul cmdHelp, vom invoca sistemul 

de ajutor prin comanda: HELP ID THIS.HelpContextID; 

e se testează formularul prin lansare în execuţie şi click pe butonul nou-creat 

(figura 17.22). 


r 
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[i] Primul pas este expandarea, în arborele din stânga 
ferestrei, a ramurii (nodului) care prezintă clientul 
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e dstalile facturii (produsele/mărforie facturate), 


Figura 17.22. informaţii de ajutor în funcţie de context 
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„Paşii de mai sus trebuie parcurşi pentru orice formular din proiectul Visual FoxPro, cu 


precizarea că se va schimba valoarea proprietății HelpContextID de la un formular la 
altul. 


17.3. Construirea kit-ului de distribuţie - 


Livrarea aplicaţiei către utilizatorii finali presupune existenţa unui kit de distribuţie. 
Acesta va conţine o formă compilată a codurilor-sursă (programe, formulare, rapoarte, 
meniuri), baza de date şi alte tipuri de fişiere necesare funcționării aplicaţiei (imagini, 
sunet, fişiere text de configurare etc.). Realizarea sa presupune parcurgerea a doi paşi: l 

ə compilarea codurilor-sursă în unul sau mai multe fişiere de tip . exe sau .all; 

e crearea fişierelor de instalare (setup). 

In funcţie de modul de abordare în proiectarea arhitecturii generale, produsul finit poate 
îmbrăca două forme: 
forma monolitică — diferitele componente (proceduri, formulare, rapoarte etc.) 
aparțin unui singur proiect, caz în care obţinem un singur fişier final executabil care 
le înglobează pe toate; 

° forma modulată — aplicația este organizată în module funcționale distincte 
implementate fizic prin intermediul claselor publice care vor fi compilate şi livrate 
sub formă de componente COMB, 

l Nu încape nici o îndoială că o aplicație modulată va fi mult mai uşor de întreținut atât 
timp cât eventualele modificări sau actualizări ce apar după implementare vor avea 
implicații doar asupra unuia sau câtorva dintre module. i 


17.3.1. Noţiunea de „componentă principală” a unui proiect 


Pentru a putea fi compilat, orice proiect trebuie să dispună de o componentă principală. 
Aceasta este de fapt un program, un formular sau un meniu pentru care va fi selectată 
opțiunea ProjectoSet Main din meniul sistem şi care va servi drept punct de plecare 
pentru aplicația compilată. În general, o.asemenea componentă (listingul 17.1) trebuie să 
asigure îndeplinirea următoarelor obiective: 

e configurarea parametrilor de mediu (căile implicite şi alternative de căutare, 
formatul datei calendaristice, parametrii interni de securitate etc.) şi deschiderea 
bazei de date; 

e inițializarea și afișarea interfeței aplicației (meniu sau formular); 

e inițierea procesării evenimentelor — comanda READ EVENTS. 

| Din momentul execuţiei comenzii READ EVENTS, programul principal este întrerupt, 
iar Visual FoxPro intră în bucla de procesare a evenimentelor (un gen de standby) aşteptând 


intervențiile utilizatorului: selecția unei opțiuni din meniu sau declanşarea unor evenimente 
recunoscute de obiectele formularelor (click, dublu-click ete.). 


Pentru a întrerupe bucla, vom utiliza comanda CLEAR EVENTS, 
Atenție! Lipsa comenzii READ EVENTS din componenta principală a unei aplicații 


Ep de va determina o apariție „meteorică” a interfeţei pe ecran, după care aceasta se 
va închide. 


80. Vezi capitotul 14, pentru detalii asupra componentelor COM. 
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Listing 17.1. Conţinutul standard al componentei principale 


SET SAFETY OFF 

SET CENTURY ON 

SET EXACT ON 

SET DATE TO british 

ON SHUTDOWN DO prgiesire && pentru functionarea butonului de inchidere a ferestrei pricipale 
DO FORM frmlogon  && un formular de autentificare a utilizatorului 

** sys(16)- numele (cu tot cu calea intreaga) a fisierului care se executa {fisierul curent) 

** spre exemplu : haplicatielprincipalu.prg 

x>RAT(V SYS(16))  && pozitia ultimului “in sirul returnat de sys(15) 


zona_lucru_curenta=" '"+LEFT(SYS(16),x-1)+* 

** numele directorului in care se executa fisierul a fost incadrat intre apostroafe (“'*) : daca unul din 
-** directoarele ce compun calea contine spatii, comanda trebuie sa arate astfel: 

** set defa to 'ciiprogram filesivinzari 


SET DEFAULT TO &zona_lucru_curenta 

SET PATH TO database, help,imagini,imaginiicons,meniuri,progs,reports, forms, heip 
SET HELP TO HelpAplicatieFacturare.chm . 

ON KEY LABEL F1 HELP 

OPEN DATABASE vinzari SHARED 

_SCREEN.ICON='green18.ico' 

„ „SCREEN.PICTURE='background.jpg' 

_SCREEN.CAPTION>Evidenta clienti 

_SCREEN.WINDOWSTATE=2  && fereastra principala va fi implicit maximizata 
DO initializare 

DO mainmenu.mpr && lansarea meniului principal 


READ EVENTS 


În listingul 17.1 observăm următoarele: A 

e la stabilirea căilor alternative de căutare (comanda SET PATH) au fost luate în 
considerare şi subdirectoare ce nu vor fi livrate utilizatorului final (ex.: meniuri, 
rapoarte etc.). Acestea sunt însă necesare în faza de testare, înainte de compilarea 
aplicaţiei, pentru buna funcţionare a modulelor. Oricum, orice director ce nu va fi 
regăsit fizic pe disc va fi ignorat, fără ca Visual FoxPro să genereze vreun mesaj de 
eroare; 

e utilizarea funcţiei SYS (16) pentru a obține calea spre directorul-rădăcină al 
aplicației, oricare ar fi poziția- fizică pe disc a acestuia. Pentru a putea fi utilizată 

această funcţie, componenta principală, ca și fişierul executabil final trebuie să se 
găsească în directorul-rădăcină al aplicaţiei; 

e seutilizează ghilimele pentru a încadra calea implicită de căutare în cazurile în care 
aceasta conține spații; 

e  lansăm în execuţie procedura generalizată de deschidere a tabelelor bazei de date (în 
mod partajat, dacă lucrăm în reţea — listingul 17.2); 

e ON SHUTDOWN - instrucțiune cu ajutorul căreia specificăm procedura ce se va 
executa atunci când utilizatorul închide aplicația din butonul specific oricărei 
ferestre Windows; E 

e _SCREEN — variabilă sistem de tip obiect prin intermediul căreia  accesăm 


proprietăţile şi metodele ferestrei principale Visual FoxPro în scopul personalizării 
interfeței aplicaţiei. 
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Listing 17.2. Exemplu de cod generalizat pentru deschiderea tabelelor unei baze de date 


ser procedura INITIALIZARE eee 
“functia ADBOBJECTS populeaza un vector cu obiectele bazei de date curente 
ADBOBJECTS(vTabele, "TABLE") 
FOR i= 1 TO ALEN(vTabele,1) 

USE (vTabele(i)) IN 0 SHARED 
ENDEOR 


Conţinutul procedurii de închidere a aplicaţiei îl regăsim în listingul 17.3; 


Listing 17.3. Procedura Prgiesire — se execută la ieşirea din aplicație 


CLOSE DATA ALL 
SET HELP TO 

ON KEY ; 
DO COMPACTARE && procedura de ştergere definitivă a înregistrărilor marcate pentru ştergere 
CLEAR EVENTS 
QUIT 


Atunci când lucrăm în reţea (aceeaşi bază de date este partajată între mai mulți 
utilizatori), comanda PACK nu poate fi utilizată în interiorul aplicaţiei. De aceea trebuie 
concepută o procedură adecvată care: 

e încearcă să deschidă baza de date în mod exclusiv; 

e execută comanda PACK pe tabele dacă deschiderea exclusivă a reuşit. 


Listing 17.4. Procedura de compactare a tabelelor bazei de date (PACK) 


a=0 

ON ERROR a=ERROR( && instituie o tratare personalizata a erorilor 

* se incerca deschiderea exclusiva a bazei de date a 

OPEN DATABASE Vinzari EXCLUSIVE j S 

IF a=1705 && s-a semnalat eroarea "file access denied" (baza este deschisă de alt utilizator) 
ON ERROR : | 
RELEASE a && sterge variabila din memorie si elibereaza zona respectiva 
RETURN 

ENDIF 

DIMENSION aȚabele(1) 

LOCAL i 

ON ERROR a=ERRORO 

WAIT WIND "Se elimina datele sterse, aveti putintica rabdare..." NOWAIT 


* ne asiguram ca inregistrarile marcate 
* pentru stergere sunt vizibile 
SET DELETED OFF 
=ADBOBJECTS(aTabele, "TABLE”) && aflam care sunt tabelele 
FOR i=1 TO ALEN(aTabele,1) 
tab_ = ALLTRIM(aTabele(i)) 
USE (tab_) IN 0 EXCLUSIVE 
SELECT (tab_) 
WAIT WIND "Compactare "+ALLTRIM(UPPER(tab_))+"..." NOWAIT 
PACK 
WAIT CLEAR, 


ENDFOR | 
SET DELETED ON && refacerea parametrului SET DELETED 
CLOSE DATABASE && inchidem baza dedate 
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WAIT CLEAR && se sterae orice mesai de pe ecran 
RELEASE a 
ON ERROR && se restaureaza mecanismul implicit de tratare a erorilor 


Deşi procedura din listingul 17.3 va fi lansată de fiecare utilizator care părăseşte 
aplicaţia, ea se va executa în totalitate doar atunci când baza de date nu mai este utilizată pe 
alte calculatoare, deci când deschiderea exclusivă devine plauzibilă. S-a folosit 
instrucțiunea WAIT WINDOW <mesaj > pentru a afişa un mesaj într-o fereastră, în colțul 
din dreapta-sus al ecranului, În mod normal, această instrucțiune suspendă programul până 
Ja apăsarea unei taste, dar opțiunea NOWAIT împiedică acest lucru. 


17.3.2. Compilarea proiectului 


Compilarea unui proiect Visual FoxPro se realizează cu ajutorul butonului Build din 
project Manager (figura 17.23). În fereastra Build Options putem selecta fie 
reconstruirea proiectului pentru reactualizarea legăturilor spre diversele fişiere componente, 
fie compilarea sa ca fişier executabil sau DLL. Aşa cum am văzut şi în capitolul 14, dacă 
proiectul conţine clase definite OLE Public, vom obţine componente COM de tip in- 
process sau out-of-process. 

Este recomandabil să bifăm şi opţiunile Recompile All Files şi Display 
Errors pentru a fi siguri, pe de o parte, că ultimele modificări ale fişierelor componente 
sunt şi compilate, iar pe de altă parte, că orice eroare apărută la compilare va fi stocată 
într-un fişer de erori (extensia .err). i 

Observăm că, o dată instalat Visual Studio Service Pack 3 sau o versiune ulterioară, 
putem crea componente COM-DLL de tip multifir (multi-threaded) ce vor fi capabile să 
proceseze în paralel mai multe cereri de acces simultane. 

Fişierul final, obținut în urma compilării, va cuprinde doar acele componente pentru 
care a fost selectată opţiunea Project—Include din meniul sistem Visual FoxPro care 
se prezintă sub formă de buton cu două stări: Include/Exclude. Astfel, pentru 
componentele deja „incluse” vom regăsi în meniu opţiunea Exclude şi viceversa, pentru 


cele „excluse”, opțiunea Include. 


Notă. În afară de baza de date, toate celelalte componente (programe, rapoarte, formu- 
lare, clase etc.) sunt implicit incluse în proiect. Acelaşi regim îl au şi fişierele de imagini 
utilizate în formulare sau rapoarte. 


Având în vedere aceste aspecte, utilizatorilor finali le vor fi livrate următoarele fişiere: 
e executabilul sau componentele COM (pentru acestea din urmă sunt necesare şi 
fişierele asociate . tlb şi . vbr); 

e fişierele bazei de date (. dbc, . det, . dcx, . dbf, . cdx); A 

ə fişierele de imagini ce nu sunt incluse în executabil; 

ə fişierul help compilat (. chm). 

Aşadar, orice componentă „inclusă” se va regăsi în fişierul compilat şi nu va mai fi 
livrată utilizatorilor în forma ei independentă, în timp ce toate celelalte vor trebui să se 
regăsescă pe discul utilizatorului. 


=: : . . 
34. Fereastra Build Options arată ca în figură numai dacă aveți instalat Visual Studio Service Pack 3 sau 
versiunile ulterioare. 
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Attach Icon, în fereastra Project Information din meniul Projsct— 
Project Info (figura 17.25). 
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Figura 17.25. Fereastra Project Information 


Atenție! Opţiunea Encrypted trebuie obligatoriu selectată. Altminteri fişierul 
obţinut în urma compilării este suficient de inteligibil pentru o persoană avizată dacă 
este deschis cu un editor de texte (ex.: WordPad). 


17.3.3. Crearea fişierelor de setup 


După testarea şi compilarea aplicaţiei urmează instalarea acesteia pe calculatoarele 
utilizatorilor. În acest scop, simpla copiere a fişierelor componente pe discul destinaţie nu 
este suficientă, Pentru a funcționa, aplicaţia are nevoie de bibliotecile de bază ale Visual 
FoxPro. ; ' 

O modalitate foarte simplă şi rapidă de creare a kit-ului de instalare este furnizată prin 
intermediul opțiunii Tools—Wizarads—Setup din meniul sistem. Astfel se pot crea, în 
mod asistat, fişierele de distribuţie ce vor cuprinde o formă arhivată sau nu a modulelor 
aplicaţiei, nucleul Visual FoxPro şi modulul de instalare (setup. exe). 

Primul pas, şi cel mai important, constă în specificarea directorului în care se găsesc 
fişierele ce compun aplicaţia (figura 17.26). 
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Figura 17.26. Pasul 1 — localizarea fişierelor aplicației 
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Directorul respectiv va conține doar fişierele strict necesare funcționării sistemului. Aşa 
cum spuneam şi în paragraful anterior, în acestă categorie intră: baza de date şi tabelele 
acesteia, sistemul de ajutor (help), imaginile ce nu a fost incluse în proiectul compilat, 
fişierul executabil cu cele două tipuri asociate (. tlb şi .vbr) în cazul în care acesta 
conţine clase definite OLE Public. 

In cel de-al doilea pas (figura 17.27) vom selecta componentele externe necesare astfel: 

e Visual FoxPro runtime -vor fi incluse librăriile de bază ale Visual FoxPro. 

Această opţiune trebuie selectată obligatoriu; 


Multi -threaded server runtime — pentru funcționarea serverelor COM 
compilate în format DLL de tip multifir; 


° ActiveX controls — deschide o listă cu toate componentele de tip ActiveX 
instalate pe calculatorul respectiv. Vom selecta din această listă doar pe acelea 
utilizate de aplicație; 

(3 COM components — se vor selecta fişierele externe (. exe sau .d11) ce conţin 
biblioteci de componente COM utilizate de aplicație; 

æ 


ODBC drivers - în cazul în care aplicaţia se conectează la surse de date externe, 
altele decât Visual FoxPro (Oracle, SQL Server, Excel etc.); 


Microsoft Graph 8.0 runtime — dacă a fost utilizat acest utilitar pentru 
crearea graficelor. 


| Step 2- Specify Components 4 


Which components does your application require? =S -- 


Select the components that must be distributed with pour - 
application in order for it to function: : 
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Figura 17.27. Pasul 2 — componente externe utilizate de aplicație 


La pasul 3 se stabilește directorul în care vor fi create fişierele de setup şi dacă se 
doreşte arhivarea lor pentru distribuția prin intermediul disketelor ca mediu de stocare, 
| Pasul 4 constă în furnizarea informaţiilor ce vor apărea pe fereastra principală de 
instalare (titlul aplicaţiei şi elemente de copyright). 
| A pasul 5 (figura 17.28) specificăm următoarele elemente referitoare la modul de 
instalare: 


e PAS şi localizarea directorului-rădăcină al aplicației ce va fi creat de programul 
e setup; 
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ze i = = f 579 
e numele grupului de link-uri ce va fi creat în meniul principal al Windows-ului După instalare, pentru exemplul dat în figura 17,29, grupul de programe din meniul 
T > 
(Start—Programs—Dengrup); Windows va arăta ca în figura 17.30. 
ə dacă utilizatorul va putea modifica localizarea directorului-tădăcină şi/sau numele = 


E PowerArchiver 
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T E i Figura 17.30. Grup de programe din meniul Windows 


Figura 17.28. Pasul 5 — directorul-rădăcină al fişierelor aplicației 


La ultimul pas (figura 17.29) se vor selecta fişierele pentru care vor fi create link-uri în 
grupul de programe (din meniul principal al Windows-ului) cu numele precizat la pasul i 
anterior. i 
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Figura 17.29. Pasul 6 — elementele grupului precizat în pasul anterior 


După cum se observă şi în figura de mai sus, orice fişier al aplicaţiei poate fi inclus în 

grupul de programe. 

În urma „„bifării” căsuţei respective apare o fereastră cu următoarele zone: 

e description — numele link-ului ce va fi creat în grupul de programe; 

e command line — fişierul ce va fi lansat în execuţie ca urmare a unui click pe link-ul 
respectiv. Trebuie obligatoriu specificată şi calea de subdirectoare dacă fişierul nu se 
găseşte în rădăcina directorului principal al aplicației. De asemenea, este obligatorie 
utilizarea secvenţei de caractere %s (cu literă mică) pentru a asigura independența 
faţă de localizarea aplicației pe disc în momentul instalării. 


Bibliografie 


Atrinei, D., Filip, M., Grama, A, Fotache, M., Fînaru, La, Dumitriu, F, Țugui, A. — Medii de 
programare, Sedcom Libris, Iaşi, 200! 


Bazian, M. et al. — Totul despre Visual FoxPro, Teora, Bucureşti, 1999 

Creţu, L. — „Aplicaţii Visual FoxPro pe Web”, Net Report, noiembrie 2001 
Pinaru, L. — Programare vizuală şi RAD, Junimea, laşi, 2001 

Fînaru, L., Brava, |. — Visual Basic, Primii paşi... şi următorii, Polirom, laşi, 200! 


Fotache, M. — „Fiola de SQL (18). Exporturi FoxPro — Oracle/PostgreSQL”, PChReport& Byte, 
nr. 109, octombrie 2000 


Fotache, M. - „Fiola de SQL (20). Declanșatoare generalizate dedicate restricţiilor referențiale. Cazul 
Visual FoxPro 6”, PCReport& Byte, nr. | 11, decembrie 1999 


Fotache, M. — SQL. Dialecte DB2, Oracle şi Visual FoxPro, Polirom, laşi, 2001 


Fotache, M., Strîmbei, C. — „Aplicaţii client-server Visual FoxPro — Oracle (1)”, PCReport4 Byte, 
nr. 94, iulie 2000 : 


Fotache, M., Strâmbei, C. — „Aplicaţii client-server Visual FoxPro — Oracle (ID, PCReport& Byte, 
nr. 95, august 2000 


Fotache, M., Strimbei, C. — „De la Visual FoxPro la Oracle (1)”, PCReport&Byte, nr. 87, decembrie 
1999 


Fotache, M., Strîmbei, C. — „De la Visual FoxPro la Oracle QI). Triggere pentru asigurarea 
restricțiilor referenţiale”, PCReport&Byte, nr. 88, ianuarie 2000 


Fotache, M., Strimbei, C. — „De la Visual FoxPro la Oracle (HI). Triggere pentru asigurarea 
restricțiilor referențiale”, PChRepori& Byte, nr. 89, februarie 2000 


Fotache, M., Strimbei, C, — „De la Visual FoxPro la Oracle (IV). Tabele PL/SQL utilizate în 
„ declanşatoare”, PCReport& Byte, nr, 90, martie 2000 


Fotache, M., Strimbei, C. — „Dezvoltarea aplicaţiilor pentru rețea în VFP”, PCReport&Byte, nr. 82, 
iulie 1999 


Fotache, M., Strîmbei, C. — „Optimistic Row Buftering şi tranzacţii”, PCRepori& Byte. nr. 83, august 
1999 


Fotache, M., Strîmbei, C. — „Proceduri stocate şi triggere în FoxPro”, PCReport& Byte, nr. 80, mai 
1999 i 


Fotache, M., Strimbei, C. — „Tabele derivate”, PCheport&Byte, nr. 81, iunie 1999 


Strahal, R. — Building applications with FoxISAPI, http:/www.west-wind.com/ 
*x* — www.msdn.microsoft.com: 


| ist, CENTR, UNIV, | 


Mi Fier LASI: 


CUPRINS 


În loc de PEJA a a Îl aa a a a a a a a 5 

Conpnutullaeririi cau 20 n a ina ul a aa a 7 
CAPITOLUL 1 

VISUAL k EA PRO: ein seta ce ta îi ai ua PIE aa Fi e 0 etate eu ala 11 

1.1. Caracterizare generală „eee, u 

1.2. Dela xBase la Visual FORBIO i pă edi nl a i a 12 

1.3. Moduri de tucru în FOXPrO „na 16 

L4. Crearea unui proiect Visual FOXPTO 17 

1.5. Configurarea mediului Visual FOXPLO „n 20 

1.5.1. Comenzile SET saca moda da aaa ia a 8 ac ua 21 

1.5.2. Comenzile ON aa. E E E TAN EE 25 

1.5.3. Variabile de medik T 26 

1.5.4. Fişierul CONFIG.FPW mana 27 
CAPITOLUL 2 

BAZE DE DATE ÎN VISUAL FOXPRO „a, 30 

2.1. Conceptul de „bază de date” şi o confuzie de pe vremea xBase-urilor......, 30 

2.2. Tabelele unei baze de date în Visual FOXPEO: ET E 33 

2.2.1. Tipuri de date în VEP Y 33 

2.2.2. Conversia între tipurile de date noaa. 35 

ETET E E ate tb ea a 35 

2.2.4. Crearea şi modificarea structurii unei (ADE A mc atatia ea tă dă piata daca 36 

2.2.5. Restricţiile unei baze de date... 39 

2.26. Cheia PriMaTĂ «a noa pact sia aa d ua a 39 

2.2.7. Restricţia referențială. e 39 

2.2.8. Alte tipuri de restricții ale bazei de date noona 40 

2.3. Tabelele bazei de date VINZARI... 40 

270, ET cre ada tat Ea A a tă pl a e Eu AI 0 48 

2.4.1. Crearea indecşilor în mod VIZIE iu EE o 20 lanul et 50 

2.4.2. Crearea indecşilor prin comenzi. „ca 5! 

2.4.3. Probleme şi erori legate de indet „nana 53 

2.5.  Restricţiile declarate într-o bază de date VFP soi ia natie eta ala aa al a SS 

2.5.1. Definirea restricţiilor la nivel de atribut Şi înregistrare „eee, 55 


2.5.2. Legăturile permanente dintre tabele şi editarea restricțiilor referențiale . 58 


2.5.3. Valori implicite pentru atributele de tip cheie străină ceea 62 
2.5.4. Momentul activării restricţiilor unei baze de date. aocor 63 
CAPITOLUL 3 
NUCLEUL XBASE. ACTUALIZAREA ÎNREGISTRĂRILOR eee 65 
3.1. Zone de lucru. Deschiderea tabelelor bazei de date 
sau atabelelor Here; isca catea tea maia pile asc a etc ati ea a te da 65 
3.2. Noțiunea de pointer sau înregistrare curentă. Navigare l... 68 
3.3. Acces la înregistrări în modul indexat şi neindexat.. eee Ti 
3.4. Adăugarea şi editarea înregistrărilor folosind modul asistat 
şi comenzi xBase ....... AA ace A mai aaa dată e da e ceia Aaa E za A ad cotata de 74 
3.4.1. Editarea înregistrărilor în mod asistat... 74 
3.4.2. Comenzi xBase pentru actualizarea directă a înregistrărilor aaun., 79 
CAPITOLUL 4 
PROGRAMAREA ÎN VISUAL FOXPRO ocres 82 
4.1. Scurtă introducere în teoria programării „eee eee eee ana 82 
42 Structuri dE:CONITOI vene alpaca n zeta Stea Ea else dd dedat a 83 
4.3,  Variabile şi constante, Instrucţiuni de atribuire în Visual FoxPro ............., 86 
4.4. Instrucţiuni de intrare-ieşire |... E a cata 91 
4,5, Proceduri şi funcții în Visual FoxPro ......esessseereerirereresrrerrirerararerers 91 
4.6.  Macrosubstituţia: într-un cuvânt, mai multă putere „nenea 104 
4.7. Importúk şi exportul: de date: nea sa ot fai a ta ada ou Dati a zi aa 106 
4.7.1. Accesarea fişierelor binare în Visual FoxPro. Recuperarea datelor 
din tabele cu antetul (header-ul) eronat... eee eee eee 110 
4.8. Tratarea erorilor în programele Visual FoxPro ........... daia odata dara 113 
4.9. Depanarea programelor cu instrumentul Debugger ccecce 119 


CAPITOLUL 5 


SQL ÎN VISUAL FOXPRO ..... eee 126 
5.1. Principalele comenzi SQL din VFP... eee nea raaee 126 
5,2. Crearea şi modificarea structurii tabelelor... nenea 127 
5.2.1. Crearea tabelelor şi declararea restricțiilor onecie 127 
5.2.2. Modificarea structurii tabelelor/restricțiilor în VEP nenea 134 
5.2. 9: APLErBErE O Tabel lOt caiet oa ia ant a cari da 08 Dr al a 136 
5:3: COMENZI: de actualizare. pna ie cata ace e a ai aa n area 136 
3.521. Adăugarea unet Vini acasa na seta ză astă gta Dia Da a oil e a a 136 
5.3225 Șlergerea LUNII LO sas no ata ru A A a olt asia 0 du Ba A 137 
5.3.3. Popularea bazei de date prin comenzi SQL... cena eee neoane 137 
5.3.4. Modificarea valorilor unor atribute... 141 
5.4. Interogarea bazelor de date - fraza SELECT eee cena 142 
3.4.1. Sintaxa de bază a în so an at a aud date în tau ile a eta a a so 142 
3.4.2. Funcţii-agregat, cu şi fără grupare „nene eee 145 
5.4.3. Clauza TOP. Operatorii ALL şi ANY (SOME) ceea nn eee eenecae 152 


` 


5.5. Actualizarea datelor folosind (sub)consultări 


5.6. Includerea frazelor SELECT în programe Ii isa e au Ma im È 
5 6.1. Salvarea rezultatulului unei fraze SELECT în cursor . i Ai a i 
5.6.2. Utilizarea cursoarelor pentru actualizări a TUUS 160 
5.6.3. Alte considerații privind Cuisodrele ii it aa aa aa E 162 

5.7. Variabile utilizate în consultări. Macrosubstituţie şi SOL pica eta e 166 
5.7.1. Variabile pentru filtrarea interogărilor a TUTTY 1 
5. 7.2. Macrosubstituția Ji fraze SEDET a i a e 
5. 7.3. Calculul automat al valorilor unor atribute agregate 169 
5.7.4. Macrosubstituţie TETTES 2) ARRDINRINIO A A IOAN ec 170 

CAPITOLUL 6 
PROCEDURI STOCATE ......... 17 
ÎTI catei a A RER 4 

6.1. Dicționarul de datet a i 
6.1.1. Informaţii despre tabele E aA a că ze 
6.1.2. Informaţii despre Gir bute esa a A E i 
6.1.3. Reflectarea în containerul bazei a relaţiilor permanente Aa 

dintre tabele a, 
6.2, Tipologia si aria de utilizare a procedurilor e a AS i 
6.3, Valori implicite obținute prin funcții stocate OTUN 
6.4. Reguli de validare n E O e 
E e ete trena einen pna 188 
6.5.1. Declanşatoare Pentru restricții referenţiale HoA a i f S, 50 
6.5.2. Atribute actualizate prin declanşatoare „n 193 
6.5.3. Declanşatoare pentru controlul actualizărilor „a 196 
6.6. Salvarea/restaurarea procedurilor stocate, i 
> Refacerea containerului BD... 200 

A ; Ii BD, na ea, 

î dia ca generalizate pentru asigurarea restricţiilor referenţiale .. 206 

„8. ptimizarea procedurilor stocate pentru aplicaţii ce rulează 00 

pe un singur calculator (locale) l., 216 
CAPITOLUL 7 
RAPOARTE ÎN VISUAL F OXPRO 2 
na po AE ANEAN ot ae a atatia ee Ai a 4 
7.1. Descrierea structurii unui raport... 
7.1.1. Structura de DOE în at lea a a ai a A Aia ta 
a ine a SS ic ec ia at 225 
ST e e Meritul fe PA în N a 228 
7.3. Rapoarte complexe A ta NN a il ESCALA ta d i 
7.3.1. Imprimarea preferenţială pe anumite pagini sa l l (i l E ANR Ra = 
7.3.2. Gruparea înregistrărilor în ODO RP dea Du aaa pia 
7.3.3. Variabilele de colac POR NAIN ACASA ANA Ni 


7. 3. 4. introducerea câmpurilor calculate 242 
7.3.5. Formatul de afişare pentru datele ci a 220 IRAN e 4 
7.3.6. Alinierea obiectelor în raport 


7.4, Setarea imprimantei la momentul execuţiei. 


Modalităţi de imprimare rapidă eee 246 
7.5. Rapoarte dinamice în VEP eee eee eee eee neam 247 
CAPITOLUL 8 
FORMULARE VISUAL FOXPRO eee 233 
8.1. Generalităţi. Tipuri de controale nea a a 253 
8.2. Macheta primului formular. Tranzacţii „cecene 261 
3.3. Proprietăţi, metode şi evenimente ory ati an EE EEA IR E N sA 266 
8.3... Despre proprieti sa ea i atac E d i OVERTE R 267 
8.3.2. Despre evenimente şi metode... eee nenea nana 271 
8.4. Proprietăţi ale controalelor pentru formularul în Studiu „nano 274 
8.5. Sursele de date ale controalelor, „nenea 282 
8.5.1. Utilizarea Data Environment 
pentru deschiderea tabelelor ......<c nenea 283 
8.3.2. Deschiderea explicită a bazei de date şi tabelelor nnana 285 
8.6.. Metodele formularului şi lansarea în execuție nene 286 
CAPITOLUL 9 
TABELE VIRTUALE sue sote Pr et ata a 098 a e a ea pn ali E Că aa i ala 292 
9.1. Generalităţi despre tabele virtuale .....nen eee 292 
9.1.1. Ce sunt tabelele virtuale şi care este utilitatea lor „<a 292 
9.1.2. Tabele virtuale în SQL-92 nenea 293 
9.2. Crearea tabelelor derivate VFP în mod asistat nenea 295 
9.3. Conflicte la propagarea modificărilor în tabelele de bază... 301 
9.4. Obținerea de informaţii privind structura tabelelor virtuale. 
Crearea view-urilor prin Program. 307 
9.4.1. Tabelele derivate în dicționarul de date... nenea 308 
9.4.2. Crearea „programatică ” a tabelelor virtuale... 309 
9.5, Alte consideraţii privind tabelele derivate în Visual FoxPro... 312 
CAPITOLUL 10 
FORMULARE COMPLEXE eee 318 
10.1. Controlul Grid şi controale pentru câmpuri de tip General oscesrccecre 318 
10.2. Tratarea erorilor în faza de execuţie a formularelor |... 328 
10.3. Formulare şi tabele derivate, Specificul formularelor 
Master Details natie a iai a ga aa i n a ariei tt OD pf ad 3 ea 330 
10.4. Formulare parametrizate „eee 339 
10.5. Utilizarea controalelor ActiveX în formularele Visual FoxPro ............,.., 340 
10.5.1. Ce este şi ce-şi propune tehnologia ActiveX ? auessen 340 
10.5.2. Utilizarea controlului Chart Într-un JOrmular. nana ee 341 
10.5.3. Controlul Calendar sau o altă modalitate 
de lucru cu datele calendaristice aaiae eee 350 
10. 5.4. Controlul Progress Bar sansa ea ia arti ta ao ia ee pn a at 355 


10.5.5. Controalele Imagelist, TreeView şi ListView 357 
10.5.6. Controlul Timer a ennnen 366 


10.6. Depanarea formularelor cu utilitarul Debugger ............. 368 


CAPITOLUL 1 
PROGRAMARE ORIENTATĂ-OBIECT ÎN VISUAL FOXPRO 


ia aaa a este eee TORO 370 
„i. Delimitări conceptuale... 

11.2, Clase în Visual FoxPro E ICOANA Daia Nita a 
1].2.7. De ce să folosim clase ? AN N NENE ANN A a 
11.2.2. Clasele de bază Visual FoxPro MAE d e SIE AI ien Al 
11.2.3. Clasele definite de utilizator SAA N OO AY 375 
1.2.4. Crearea de clase cu instrumentul Class Desi gier A i U 377 
H: 2:5; Definirea şi instanțierea claselor prin cod PANN RIN i ci 05 

11.3. Gestionarea claselor A SES a o aaa a E a 
11.3.1. Instrumente „vizuale” donded claselor a an PR 

n » VIZ pentru gestionarea claselor uo. 
11.3.2. Funcţii pentru gestionarea claselor... | k 


11,4. Crearea de biblioteci DLL cu Visual FoxPro 417 


CAPITOLUL 12 
MENIURI ÎN VEP 


A a a E E ETA A 420 
2 iuri i 
12.1. Crearea meniurilor folosind generatorul de meniuri al Visual FoxPro 421 
12.1. t. Planificarea meniului aplicajei cc ca Eat aaa 421 
12.122. Crearea/definirea meniului principal E 
şi Submeniurilor corespunzătoare 
d SNOGIE a natatie ca ada a ab 22 
12.1.3. Căi suplimentare de acces de la tastatură la optiunile i 
A din meniu si separarea opțiunilor în cadrul submeniurilor ........... 424 
Id. Includerea in meniul aplicaţiei a unor submeniuri system „i 427 
A 1 5. Dezactivarea opțiunilor dintr-un meniu. 427 
12.1.6. Asocierea directă a unor module de program ~ cod-sursă = 
la nivelul meniurilor oa, 428 
12.1.7. Generarea unui meniu şi câteva precizări sumare TTY i 
pes despre comenzile de definire a acestuia o. 433 
2.2: Sile ea unui meniu vertical şi crearea barelor de instrumente o 435 
12.2.1. Definirea unui meniu de pornire vertical... 435 
12.2.2. Crearea unei bare de instrumente pentru aplicaţie E S a 445 
CAPITOLUL 13 
OPȚIUNI PENTRU DEZVOLTARE | 
U h SA APLICAŢIILOR ÎN 5 
ARHITECTURA FILE-SERVER int su 449 
13.1. Arhitectura fileserver n 449 


13.2. Deschiderea bazei de date şi tabelelor pentru lucru în reţea. 
Moduri de blocare... 450 


13.2.1. Deschiderea partajabilă a bazei de date şi tabelelor 
13.2.2. Blocajul la nivel de tabelă 455 


13.2.3. Blocajul antetului unei tabele eee 455 


13.2.4. Blocajul la nivel de înregistrare... eee ia aid: 
1343... Despre BUERNE seu în necitit a e il ale Paid alt dea ML Aa 458 
13.3.1. Row Optimistic Buffering „eee 459 
13.3.2. Table Optimistic Buffering aooiie eccsseererrerserrrsrrererserserernn: 460 
13.4. Formular în care se foloseşte buffering optimist la nivel de înregistrare .... 461 
13.5. Formular în care se foloseşte buffering optimist la nivel de tabelă ........... 470 


CAPITOLUL 14 


APLICAŢII VISUAL FOXPRO PE WEB ........... ei oi Sie a Ciad al 477 
14.1. FoxISAPI şi Servere COM - fundamentu! aplicaţiilor VFP pe Web ......... 477 
14.1.1. FoxISAPI. Noțiune şi funcţionalitate inaenea 477 
14.1.2. Componente COM în Visual FoxPro aocor 479 
14.1.3. Testarea şi depanarea componentelor COM oaase 484 
14.1.4. Utilizarea serverelor COM pe Web. 
Configurarea drepturilor de acces... nenea 485 
14.2. Prima aplicaţie Visual FoxPro pe Web... eee 488 
14.3. Interogarea bazei de date. Interacțiunea cu utilizatorul nea 490 
14.4. Formular de vizualizare/actualizare înregistrări... eee 494 
14.5. Managerul instanţelor multiple în FOxISAPI eee merr 506 
CAPITOLUL 15 
SECURITATE ÎN VISUAL FOXPRO acea 508 
15.1. Citire/scriere Windows Registry. O modalitate de stocare a parolelor, ....... 508 
15.2, Obţinerea numelui utilizatorului din reţea ceea 510 
15.3. Restricţionarea editării tabelelor ..... eee ata 513 
15.4. Autorizarea editărilor anumitor linii nea 517 


CAPITOLUL 16 


APLICAŢII VFP CU SERVERE DE BAZE DE DATE... 520 
16.1. Specificul aplicaţiilor cu servere de baze de date... 520 
16.2. Crearea schemei de baze de date pe serverul Oracle... eee, 522 
16.3. Configurarea mediului client-server : client VFP - server Oraclei ......... 535 
16.3.1. ODBC, drivere ODBC.......ccc eee ate 535 
16.3.2. Clientul ORACLESi şi protocolul de conectare NET8 u... 536 
16.3.3. Arhitectura funcţională a driverului Oracle ODBC Driver... 537 
16.4. Actualizarea tabelelor din baza de date gestionată 
de către:serverul Oracle, arse e poata aaa diodă e Eaa Ca a 541 
16.4.1. Tabele derivate la distanță eee eee 542 
16.4.2. Tehnogia SQL Pass-Trough ~ SPT... eee 544 
16.4.3. Cursoare actualizabile nec eea ace 548 


16.5. Formulare VFP - accesul şi modificarea datelor aflate 
pe sérverul Oracle. ae 2 era in i Aa a deea ti a EA 549 


CAPITOLUL 17 


LIVRAREA PRODUSULUI FINIT asa 555 
17.1. Crearea unui sistem de asistenţă. HTML Hel P Workshop deneni aa 555 
17.2. Cum se utilizează HTML Help Workshop 7 rai e ei a it era a 558 
17.2.1. Crearea fişierelor de subiecte (CONNU ne sea d e at Aa bat a a ea 559 
17.2.2. Crearea unui cuprins (Table of Contents)... 563 
17.2.3. Crearea unui index „nn aaa 565 
17.2.4. Ataşarea fişierului de help compilat la o aplicaţie Visual FoxPro... 567 
17.2.5. Asistenţă „senzitivă la context” ....... sea E ajutat E a le 568 
17.3. Construirea kit-ului de distribuţie „a 571 
17.3.1. Noțiunea de „componentă principală” a unui VAALA A PEPEE AE 571 
17.3.2. Compilarea proiectului eee 574 
17.3.3. Crearea fişierelor de setup... eee eee, 576 
BIBLIOGRAFIE casare do ai eu aaa bă Cta aaa i 581 


